private static void GestionarSeleccionCFL(SAPbouiCOM.Form oForm, SAPbouiCOM.ItemEvent pVal)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String CflID = string.Empty;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.DataTable oDataTable = null;
try
{
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
CflID = oCFLEvento.ChooseFromListUID;
oCFL = oForm.ChooseFromLists.Item(CflID);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
switch (CflID)
{
case "CflCC":
oForm.DataSources.UserDataSources.Item("ds_Acc").Value = oDataTable.GetValue("AcctCode", 0).ToString();
break;
case "CflDim1":
oForm.DataSources.UserDataSources.Item("ds_Dim1").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim2":
oForm.DataSources.UserDataSources.Item("ds_Dim2").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim3":
oForm.DataSources.UserDataSources.Item("ds_Dim3").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim4":
oForm.DataSources.UserDataSources.Item("ds_Dim4").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim5":
oForm.DataSources.UserDataSources.Item("ds_Dim5").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
default:
break;
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oCFLEvento);
FuncionesComunes.LiberarObjetoGenerico(oCFL);
FuncionesComunes.LiberarObjetoGenerico(oDataTable);
}
}
public static void ItemEventEventHandler(String FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
SAPbouiCOM.Form oForm = null;
try
{
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
switch (pVal.EventType)
{
case SAPbouiCOM.BoEventTypes.et_CLICK:
switch (pVal.ItemUID)
{
case "1":
break;
}
break;
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oForm);
}
}
public static void m_SBO_Appl_ItemEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
SAPbouiCOM.Form oForm = null;
try
{
if (!pVal.BeforeAction)
{
switch (pVal.EventType)
{
case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST:
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
GestionarSeleccionCFL(oForm, pVal);
break;
case SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED:
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
if (pVal.ItemUID.Equals("Item_15"))
{
Descripcion = oForm.Items.Item("Item_1").Specific.Value.ToString();
Cuenta = oForm.Items.Item("Item_3").Specific.Value.ToString();
Dim1 = oForm.Items.Item("Item_6").Specific.Value.ToString();
Dim2 = oForm.Items.Item("Item_8").Specific.Value.ToString();
Dim3 = oForm.Items.Item("Item_10").Specific.Value.ToString();
Dim4 = oForm.Items.Item("Item_12").Specific.Value.ToString();
Dim5 = oForm.Items.Item("Item_14").Specific.Value.ToString();
IntegracionServicio();
oForm.Close();
}
if (pVal.ItemUID.Equals("Item_16"))
{
oForm.Close();
}
break;
default:
break;
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oForm);
}
}
/// <summary>
/// funcion controla los eventos del formulario
/// </summary>
/// <param name="FormUID">identificador unico del formulario</param>
/// <param name="pVal">Item even</param>
/// <param name="BubbleEvent">BobbleEvent</param>
public static void m_SBO_Appl_ItemEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
SAPbouiCOM.Form oForm = null;
try
{
if (!pVal.BeforeAction)
{
switch (pVal.EventType)
{
case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST:
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
GestionarSeleccionCFL(oForm, pVal);
break;
case SAPbouiCOM.BoEventTypes.et_CLICK:
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
switch (pVal.ItemUID)
{
case "btnInt":
IntegracionServicio(oForm);
oForm.Close();
break;
case "btnCompl":
CopyInfo(oForm);
break;
}
break;
default:
break;
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oForm);
}
}
private static void CargarFormulario(String FormUID)
{
SAPbouiCOM.Form oForm = null;
SAPbouiCOM.EditText oEditText = null;
try
{
oForm = Conexion_SBO.m_SBO_Appl.Forms.Item(FormUID);
oEditText = oForm.Items.Item("Item_3").Specific;
FuncionesComunes.CrearCFL_CuentaContable(oForm, oEditText);
oEditText = oForm.Items.Item("Item_6").Specific;
FuncionesComunes.CrearCFL_Dimensiones(oForm, oEditText, "1");
oEditText = oForm.Items.Item("Item_8").Specific;
FuncionesComunes.CrearCFL_Dimensiones(oForm, oEditText, "2");
oEditText = oForm.Items.Item("Item_10").Specific;
FuncionesComunes.CrearCFL_Dimensiones(oForm, oEditText, "3");
oEditText = oForm.Items.Item("Item_12").Specific;
FuncionesComunes.CrearCFL_Dimensiones(oForm, oEditText, "4");
oEditText = oForm.Items.Item("Item_14").Specific;
FuncionesComunes.CrearCFL_Dimensiones(oForm, oEditText, "5");
}
catch (Exception ex)
{
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oForm);
FuncionesComunes.LiberarObjetoGenerico(oEditText);
}
}
/// <summary>
/// funcion integra facturas
/// </summary>
/// <param name="oForm"></param>
private static void IntegracionServicio(SAPbouiCOM.Form oForm)
{
//DTE objDTE = null;
SAPbobsCOM.Documents oDoc = null;
SAPbouiCOM.Matrix oMatrix = null;
string Descripcion = string.Empty;
string Cuenta = string.Empty;
string Dim1 = string.Empty;
string Dim2 = string.Empty;
string Dim3 = string.Empty;
string Dim4 = string.Empty;
string Dim5 = string.Empty;
string RutEmisor = String.Empty;
string Tipo = String.Empty;
string Folio = String.Empty;
string FebId = String.Empty;
string CardCode = String.Empty;
string FchEmis = String.Empty;
string FchVenc = String.Empty;
string MntTotal = String.Empty;
string IVA = String.Empty;
string NroRef = null;
string RzRef = null;
SAPbobsCOM.Recordset oRecordset = null;
bool blAcepComer = false;
try
{
oMatrix = oForm.Items.Item("MatrixIM").Specific;
oRecordset = Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRecordset.DoQuery("SELECT \"U_SentAcepC\" FROM \"@SEI_SETVALH\"");
blAcepComer = (oRecordset.Fields.Item("U_SentAcepC").Value == "Y" ? true : false);
for (int i = 1; i <= oMatrix.VisualRowCount; i++)
{
Descripcion = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_0").Cells.Item(i).Specific).Value; // oForm.Items.Item("Item_1").Specific.Value.ToString();
Cuenta = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_1").Cells.Item(i).Specific).Value;
Dim1 = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_2").Cells.Item(i).Specific).Value;
Dim2 = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_3").Cells.Item(i).Specific).Value;
Dim3 = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_4").Cells.Item(i).Specific).Value;
Dim4 = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_5").Cells.Item(i).Specific).Value;
Dim5 = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_6").Cells.Item(i).Specific).Value;
RutEmisor = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_7").Cells.Item(i).Specific).Value;
Tipo = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_9").Cells.Item(i).Specific).Value;
Folio = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_8").Cells.Item(i).Specific).Value;
FebId = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_10").Cells.Item(i).Specific).Value;
CardCode = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_11").Cells.Item(i).Specific).Value;
FchEmis = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_FEmis").Cells.Item(i).Specific).Value;
FchVenc = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_FVenc").Cells.Item(i).Specific).Value;
MntTotal = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_Total").Cells.Item(i).Specific).Value;
IVA = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_IVA").Cells.Item(i).Specific).Value;
NroRef = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_1-1").Cells.Item(i).Specific).Value;
RzRef = ((SAPbouiCOM.EditText)oMatrix.Columns.Item("Col_1-4").Cells.Item(i).Specific).Value;
ResultMessage rslt = FuncionesComunes.ValidacionDTEIntegrado(RutEmisor, Int32.Parse(Tipo), Folio);// Int64.Parse(Folio));
rslt.Success = true;
if (rslt.Success)
{
//objDTE = ListaDTEMatrix.ListaDTE.Where(x => x.FebosID == FebId).Select(x => x.objDTE).SingleOrDefault();
//if (objDTE != null)
//{
switch (Tipo)
{
case "33":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "34":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "56":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "61":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes);
break;
}
oDoc.CardCode = CardCode;
//oDoc.CardName = FuncionesComunes.ObtenerCardName(RutEmisor, oDoc.CardCode);
switch (Tipo)
{
case "33":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "34":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "52":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes;
break;
case "56":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "61":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseCreditNotes;
break;
default:
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
}
oDoc.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Service;
oDoc.DocDate = Convert.ToDateTime(FchEmis);
oDoc.DocDueDate = Convert.ToDateTime(FchVenc);
oDoc.DocTotal = Convert.ToDouble(MntTotal);
oDoc.FolioNumber = Convert.ToInt32(Folio);
oDoc.FolioPrefixString = Tipo;
oDoc.Indicator = Tipo;
oDoc.UserFields.Fields.Item("U_SEI_FEBOSID").Value = FebId;
oDoc.NumAtCard = RzRef.PadRight(99);
oDoc.Comments = RzRef.PadRight(254);
oDoc.Lines.ItemDescription = Descripcion.PadRight(99);
oDoc.Lines.AccountCode = Cuenta;
oDoc.Lines.LineTotal = Convert.ToDouble(Convert.ToDouble(MntTotal) - Convert.ToDouble(IVA));
switch (Tipo)
{
case "34":
oDoc.Lines.TaxCode = "IVA_EXE";
break;
default:
break;
}
if (!string.IsNullOrEmpty(Dim1))
{
oDoc.Lines.CostingCode = Dim1;
}
if (!string.IsNullOrEmpty(Dim2))
{
oDoc.Lines.CostingCode2 = Dim2;
}
if (!string.IsNullOrEmpty(Dim3))
{
oDoc.Lines.CostingCode3 = Dim3;
}
if (!string.IsNullOrEmpty(Dim4))
{
oDoc.Lines.CostingCode4 = Dim4;
}
if (!string.IsNullOrEmpty(Dim5))
{
oDoc.Lines.CostingCode5 = Dim5;
}
Int32 RetVal = oDoc.Add();
String Mensaje = String.Empty;
if (RetVal.Equals(0))
{
rslt = FuncionesComunes.EnviarRespuestaComercial(FebId, "ACD", String.Empty, String.Empty);
if (rslt.Success)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Exito: El DTE :" + Folio + " Tipo :" + Tipo + " de :" + RutEmisor, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
// Aceptacion comercial
if (blAcepComer)
{
rslt = FuncionesComunes.EnviarRespuestaComercial(FebId, "ACD", String.Empty, String.Empty);
if (rslt.Success)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(String.Format("Exito: El DTE {0} Tipo {1} de {2}-{3} Se integro.", Folio, Tipo, RutEmisor), SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
else
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(String.Format("Reparo: El DTE {0} Tipo {1} de {2}-{3} Se integro, pero no se completo proceso de intercambio.", Folio, Tipo, RutEmisor), SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
}
}
}
else
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Reparo: El DTE :" + Folio + " Tipo :" + Tipo + " de :" + RutEmisor + " Se integro, pero no se completo proceso de intercambio.", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
//file.WriteLine(String.Format("Reparo: El DTE {0} Tipo {1} de {2}-{3} Se integro, pero no se completo proceso de intercambio.", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor));
}
}
else
{
Int32 ErrCode = 0;
String ErrMsj = String.Empty;
Conexion_SBO.m_oCompany.GetLastError(out ErrCode, out ErrMsj);
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: El DTE :" + Folio + " Tipo :" + Tipo + " de :" + RutEmisor + " No se integro " + ErrMsj, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
//file.WriteLine(String.Format("Error: El DTE {0} Tipo {1} de {2}-{3} No se integro. {4}", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor, ErrMsj));
}
//}
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
// FuncionesComunes.LiberarObjetoGenerico(objDTE);
FuncionesComunes.LiberarObjetoGenerico(oDoc);
}
}
/// <summary>
/// funcion gentiion el uso del ChooseFromList
/// </summary>
/// <param name="oForm">objeto del formulario</param>
/// <param name="pVal">Item Even</param>
private static void GestionarSeleccionCFL(SAPbouiCOM.Form oForm, SAPbouiCOM.ItemEvent pVal)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String CflID = string.Empty;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.DataTable oDataTable = null;
try
{
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
CflID = oCFLEvento.ChooseFromListUID;
oCFL = oForm.ChooseFromLists.Item(CflID);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
SAPbouiCOM.Matrix oMatrix = oForm.Items.Item("MatrixIM").Specific;
try
{
switch (CflID)
{
case "CFL_ACT":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("AcctCode", 0).ToString();
break;
case "CFL_dim1":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim2":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim3":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim4":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim5":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
default:
break;
}
}
catch (Exception ex)
{ }
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oCFLEvento);
FuncionesComunes.LiberarObjetoGenerico(oCFL);
FuncionesComunes.LiberarObjetoGenerico(oDataTable);
}
}
private static void IntegracionServicio()
{
DTE objDTE = null;
SAPbobsCOM.Documents oDoc = null;
try
{
ResultMessage rslt = FuncionesComunes.ValidacionDTEIntegrado(RutEmisor, Int32.Parse(Tipo), Folio);// Int64.Parse(Folio));
if (rslt.Success)
{
objDTE = ListaDTEMatrix.ListaDTE.Where(i => i.FebosID == FebId).Select(i => i.objDTE).SingleOrDefault();
if (objDTE != null)
{
switch (Tipo)
{
case "33":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "34":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "56":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices);
break;
case "61":
oDoc = (SAPbobsCOM.Documents)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes);
break;
}
oDoc.CardCode = CardCode;
//oDoc.CardName = FuncionesComunes.ObtenerCardName(RutEmisor, oDoc.CardCode);
switch (Tipo)
{
case "33":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "34":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "52":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes;
break;
case "56":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
case "61":
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseCreditNotes;
break;
default:
oDoc.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseInvoices;
break;
}
oDoc.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Service;
oDoc.DocDate = Convert.ToDateTime(objDTE.IdDoc.FchEmis);
oDoc.DocDueDate = Convert.ToDateTime(objDTE.IdDoc.FchVenc);
oDoc.DocTotal = objDTE.Totales.MntTotal;
oDoc.FolioNumber = Convert.ToInt32(Folio);
oDoc.FolioPrefixString = Tipo;
oDoc.Indicator = Tipo;
oDoc.UserFields.Fields.Item("U_SEI_FEBOSID").Value = FebId;
oDoc.Lines.ItemDescription = Descripcion;
oDoc.Lines.AccountCode = Cuenta;
oDoc.Lines.LineTotal = (objDTE.Totales.MntTotal - objDTE.Totales.IVA);
switch (Tipo)
{
case "34":
oDoc.Lines.TaxCode = "IVA_EXE";
break;
default:
break;
}
if (!string.IsNullOrEmpty(Dim1))
{
oDoc.Lines.CostingCode = Dim1;
}
if (!string.IsNullOrEmpty(Dim2))
{
oDoc.Lines.CostingCode2 = Dim2;
}
if (!string.IsNullOrEmpty(Dim3))
{
oDoc.Lines.CostingCode3 = Dim3;
}
if (!string.IsNullOrEmpty(Dim4))
{
oDoc.Lines.CostingCode4 = Dim4;
}
if (!string.IsNullOrEmpty(Dim5))
{
oDoc.Lines.CostingCode5 = Dim5;
}
Int32 RetVal = oDoc.Add();
String Mensaje = String.Empty;
if (RetVal.Equals(0))
{
rslt = FuncionesComunes.EnviarRespuestaComercial(FebId, "ACD", String.Empty, String.Empty);
if (rslt.Success)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(String.Format("Exito: El DTE {0} Tipo {1} de {2}-{3} Se integro.", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor), SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
//file.WriteLine(String.Format("Exito: El DTE {0} Tipo {1} de {2}-{3} Se integro.", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor));
}
else
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(String.Format("Reparo: El DTE {0} Tipo {1} de {2}-{3} Se integro, pero no se completo proceso de intercambio.", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor), SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
//file.WriteLine(String.Format("Reparo: El DTE {0} Tipo {1} de {2}-{3} Se integro, pero no se completo proceso de intercambio.", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor));
}
}
else
{
Int32 ErrCode = 0;
String ErrMsj = String.Empty;
Conexion_SBO.m_oCompany.GetLastError(out ErrCode, out ErrMsj);
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(String.Format("Error: El DTE {0} Tipo {1} de {2}-{3} No se integro. {4}", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor, ErrMsj), SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
//file.WriteLine(String.Format("Error: El DTE {0} Tipo {1} de {2}-{3} No se integro. {4}", objDTE.IdDoc.Folio, objDTE.IdDoc.TipoDTE, objDTE.Emisor.RznSoc, objDTE.Emisor.RUTEmisor, ErrMsj));
}
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Error: " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(objDTE);
FuncionesComunes.LiberarObjetoGenerico(oDoc);
}
}
