}//fin FormEvent
public new void FormDataEvent(ref BusinessObjectInfo BusinessObjectInfo, ref Boolean BubbleEvent)
{
base.FormDataEvent(ref BusinessObjectInfo, ref BubbleEvent);
String TipoDocElec;
String sDocEntry;
String Canceled;
try
{
if ((BusinessObjectInfo.BeforeAction == false) && (BusinessObjectInfo.EventType == BoEventTypes.et_FORM_DATA_ADD) && (BusinessObjectInfo.ActionSuccess))
{
//sDocEntry = FSBOf.GetDocEntryBusinessObjectInfo(BusinessObjectInfo.ObjectKey);
var _xmlDocument = new XmlDocument();
_xmlDocument.LoadXml(BusinessObjectInfo.ObjectKey);
var N = _xmlDocument.SelectSingleNode("PaymentParams");
sDocEntry = ((System.String)N.InnerText).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @" SELECT SUBSTRING(UPPER(T2.BeginStr), 1, 1) 'Tipo'
, ISNULL(T0.U_BPP_PTSC,'') BPP_PTSC
, ISNULL(T0.U_BPP_PTCC,'') BPP_PTCC
, T0.CANCELED
, ISNULL(T0.U_BPP_MDTD,'') BPP_MDTD
, ISNULL(T0.U_BPP_MDSD,'') BPP_MDSD
, ISNULL(T0.U_BPP_MDCD,'') BPP_MDCD
FROM OVPM T0 WITH (NOLOCK)
JOIN NNM1 T2 WITH (NOLOCK) ON T0.Series = T2.Series
WHERE T0.DocEntry = {0}";
}
else
{
s = @" SELECT SUBSTRING(UPPER(T2.""BeginStr""), 1, 1) ""Tipo""
, IFNULL(T0.""U_BPP_PTSC"",'') ""BPP_PTSC""
, IFNULL(T0.""U_BPP_PTCC"",'') ""BPP_PTCC""
, T0.""CANCELED""
, IFNULL(T0.""U_BPP_MDTD"",'') ""BPP_MDTD""
, IFNULL(T0.""U_BPP_MDSD"",'') ""BPP_MDSD""
, IFNULL(T0.""U_BPP_MDCD"",'') ""BPP_MDCD""
FROM ""OVPM"" T0
JOIN ""NNM1"" T2 ON T0.""Series"" = T2.""Series""
WHERE T0.""DocEntry"" = {0} ";
}
s = String.Format(s, sDocEntry);
oRecordSet.DoQuery(s);
Canceled = (System.String)(oRecordSet.Fields.Item("CANCELED").Value);
if (Canceled == "N")
{
if (((System.String)oRecordSet.Fields.Item("BPP_MDTD").Value).Trim() == "")
{
FSBOApp.StatusBar.SetText("No se encuentra ingresado tipo de documento", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else if (((System.String)oRecordSet.Fields.Item("BPP_MDSD").Value).Trim() == "")
{
FSBOApp.StatusBar.SetText("No se encuentra ingresado serie del documento", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else if (((System.String)oRecordSet.Fields.Item("BPP_MDCD").Value).Trim() == "")
{
FSBOApp.StatusBar.SetText("No se encuentra ingresado correlativo del documento", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else
{
SBO_f = FSBOf;
TipoDocElec = "20";
EnviarFE_PE_ED(sDocEntry, GlobalSettings.RunningUnderSQLServer, ((System.String)oRecordSet.Fields.Item("BPP_PTSC").Value).Trim(), ((System.String)oRecordSet.Fields.Item("BPP_PTCC").Value).Trim(), TipoDocElec, oForm.BusinessObject.Type, RUC);
}
}
//--
}
}
catch (Exception e)
{
FSBOApp.StatusBar.SetText("FormDataEvent: " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormDataEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin FormDataEvent
} //fin AddMenus
public override void MenuEventExt(List <object> oForms, ref MenuEvent pVal, ref Boolean BubbleEvent)
{
IvkFormInterface oForm;
base.MenuEventExt(oForms, ref pVal, ref BubbleEvent);
try
{
//Inherited MenuEventExt(oForms,var pVal,var BubbleEvent);
oForm = null;
if (!pVal.BeforeAction)
{
switch (pVal.MenuUID)
{
case "VID_FERImpFE":
{
oForm = (IvkFormInterface)(new TReImprimir());
//(TReImprimir)(oForm).ooForms = oForms;
break;
}
case "VID_FEConf":
{
oForm = (IvkFormInterface)(new TConfigFE());
//(TConfigFE)(oForm).ooForms = oForms;
break;
}
case "VID_FEMonitor": //Menu para Monitor
{
oForm = (IvkFormInterface)(new TMonitor());
//(TMonitor)(oForm).ooForms = oForms;
break;
}
case "VID_FEDardeBaja": //Menu para dar de baja
{
oForm = (IvkFormInterface)(new TDardeBaja());
break;
}
case "VID_FEPROCED": //Menu para Procedimiento FE
{
oForm = (IvkFormInterface)(new TProcedimientosFE());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FEPEIVA": //Menu para Configuracion de Impuestos PE
{
oForm = (IvkFormInterface)(new TConfiguracionImpuestoPE());
break;
}
case "VID_FEPENOTES": //Menu para Tipo de Notas
{
oForm = (IvkFormInterface)(new TTipoNotasPE());
break;
}
case "VID_FEPEUMISO": //Menu para Unidad de medida ISO
{
oForm = (IvkFormInterface)(new TUnidadMedidasISOPE());
break;
}
case "VID_RHSQL":
{
//oForm := IvkFormInterface(New TCredencialesBD);
//TCredencialesBD(oForm).ooForms :=oForms;
if (GlobalSettings.RunningUnderSQLServer)
{
oForm = (IvkFormInterface)(new TMenuConfFr());
}
else
{
oForm = (IvkFormInterface)(new TMenuConfiguracionHANA());
}
//oForm1 := SBOApplication.Forms.ActiveForm;
//EditText(oForm1.Items.Item("Pw").Specific).IsPassword := true;
break;
}
}
if (oForm != null)
{
SAPbouiCOM.Application App = SBOApplication;
SAPbobsCOM.Company Cmpny = SBOCompany;
VisualD.SBOFunctions.CSBOFunctions SboF = SBOFunctions;
VisualD.GlobalVid.TGlobalVid Glob = GlobalSettings;
if (oForm.InitForm(SBOFunctions.generateFormId(GlobalSettings.SBOSpaceName, GlobalSettings), "forms\\", ref App, ref Cmpny, ref SboF, ref Glob))
{
oForms.Add(oForm);
}
else
{
SBOApplication.Forms.Item(oForm.getFormId()).Close();
oForm = null;
}
}
}
}
catch (Exception e)
{
SBOApplication.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); // Captura errores no manejados
oLog.OutLog("MenuEventExt: " + e.Message + " ** Trace: " + e.StackTrace);
}
} //MenuEventExt
} //fin AddMenus
public override void MenuEventExt(List <object> oForms, ref MenuEvent pVal, ref Boolean BubbleEvent)
{
IvkFormInterface oForm;
base.MenuEventExt(oForms, ref pVal, ref BubbleEvent);
try
{
//Inherited MenuEventExt(oForms,var pVal,var BubbleEvent);
oForm = null;
if (!pVal.BeforeAction)
{
switch (pVal.MenuUID)
{
case "VID_FERImpFE":
{
oForm = (IvkFormInterface)(new TReImprimir());
//(TReImprimir)(oForm).ooForms = oForms;
break;
}
case "VID_FEConf":
{
oForm = (IvkFormInterface)(new TConfigFE());
//(TConfigFE)(oForm).ooForms = oForms;
break;
}
case "VID_FEImptoAd":
{
oForm = (IvkFormInterface)(new TImptoAdicional());
//(TImptoAdicional)(oForm).ooForms = oForms;
break;
}
case "VID_FEIndSII": //Menu para ingresar mapeo indicadores para los libros
{
oForm = (IvkFormInterface)(new TIndicadoresSII());
//(TIndicadoresSII)(oForm).ooForms = oForms;
break;
}
case "VID_FeImptoSII": //Menu para ingresar mapeo de los impuestos para los libros
{
oForm = (IvkFormInterface)(new TImpuestos());
//(TImpuestos)(oForm).ooForms = oForms;
break;
}
case "VID_FEMonitor": //Menu para Monitor
{
oForm = (IvkFormInterface)(new TMonitor());
//(TMonitor)(oForm).ooForms = oForms;
break;
}
case "VID_FEMonDTE": //monitor de DTE
{
oForm = (IvkFormInterface)(new TMonitorDTE());
break;
}
case "VID_FEEnvDTE":
{
oForm = (IvkFormInterface)(new TEnviarEstadoDTE());
break;
}
case "VID_FESUC": //Menu para Sucursal factura electronica
{
oForm = (IvkFormInterface)(new TSucursal());
//(TSucursal)(oForm).ooForms = oForms;
break;
}
case "VID_FECAF": //Menu para regsitrar CAF
{
oForm = (IvkFormInterface)(new TRegistrarCAF());
//(TRegistrarCAF)(oForm).ooForms = oForms;
break;
}
case "VID_FEDIST": //Menu para Distribucion Folios
{
oForm = (IvkFormInterface)(new TDistribucionFolios());
//(TDistribucionFolios)(oForm).ooForms = oForms;
break;
}
case "VID_FEASIGFOL": //Menu para Distribuir Folios
{
oForm = (IvkFormInterface)(new TAsignarFolios());
//(TAsignarFolios)(oForm).ooForms = oForms;
break;
}
case "VID_FERESFOL": //Menu para Resumen Estado de Folios
{
oForm = (IvkFormInterface)(new TResumenFolios());
//(TResumenFolios)(oForm).ooForms = oForms;
break;
}
case "VID_FEMULTISOC": //Menu para Multiples bases FE
{
oForm = (IvkFormInterface)(new TMultiplesBases());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FEPROCED": //Menu para Procedimiento FE
{
oForm = (IvkFormInterface)(new TProcedimientosFE());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FELISTABL": //Menu para Lista Blanca
{
oForm = (IvkFormInterface)(new TListaBlanca());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FELISTANE": //Menu para Lista Negra
{
oForm = (IvkFormInterface)(new TListaNegra());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FEGLibro": //Menu para generacion Libro Ventas y Compra
{
oForm = (IvkFormInterface)(new TGLibro());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FEGELibro": //Menu para Generacion y envioLibro Ventas y Compras
{
oForm = (IvkFormInterface)(new TGELibro());
//(TMultiplesBases)(oForm).ooForms = oForms;
break;
}
case "VID_FEFOLIAR": //Menu para Foliar Documento Electronica
{
oForm = (IvkFormInterface)(new TFoliarDocumento());
break;
}
case "VID_FEREUTFOL": //Menu para Reutilizar folio rechazado
{
oForm = (IvkFormInterface)(new TReutilizarFolio());
break;
}
case "VID_FEPLANCTA": //Menu para Plan de cuenta SII
{
oForm = (IvkFormInterface)(new TPlanCuentaSII());
break;
}
case "VID_RHSQL":
{
//oForm := IvkFormInterface(New TCredencialesBD);
//TCredencialesBD(oForm).ooForms :=oForms;
if (GlobalSettings.RunningUnderSQLServer)
{
oForm = (IvkFormInterface)(new TMenuConfFr());
}
else
{
oForm = (IvkFormInterface)(new TMenuConfiguracionHANA());
}
//oForm1 := SBOApplication.Forms.ActiveForm;
//EditText(oForm1.Items.Item("Pw").Specific).IsPassword := true;
break;
}
case "VID_FELibroDiario":
{
oForm = (IvkFormInterface)(new TLibrosElectronicos());
TLibrosElectronicos.TipoLibro = "D";
break;
}
case "VID_FELibroMayor":
{
oForm = (IvkFormInterface)(new TLibrosElectronicos());
TLibrosElectronicos.TipoLibro = "M";
break;
}
case "VID_FEBalance":
{
oForm = (IvkFormInterface)(new TLibrosElectronicos());
TLibrosElectronicos.TipoLibro = "B";
break;
}
case "VID_FEDiccionario":
{
oForm = (IvkFormInterface)(new TLibrosElectronicos());
TLibrosElectronicos.TipoLibro = "C";
break;
}
}
if (oForm != null)
{
SAPbouiCOM.Application App = SBOApplication;
SAPbobsCOM.Company Cmpny = SBOCompany;
VisualD.SBOFunctions.CSBOFunctions SboF = SBOFunctions;
VisualD.GlobalVid.TGlobalVid Glob = GlobalSettings;
if (oForm.InitForm(SBOFunctions.generateFormId(GlobalSettings.SBOSpaceName, GlobalSettings), "forms\\", ref App, ref Cmpny, ref SboF, ref Glob))
{
oForms.Add(oForm);
}
else
{
SBOApplication.Forms.Item(oForm.getFormId()).Close();
oForm = null;
}
}
}
}
catch (Exception e)
{
SBOApplication.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); // Captura errores no manejados
oLog.OutLog("MenuEventExt: " + e.Message + " ** Trace: " + e.StackTrace);
}
} //MenuEventExt
} //MenuEventExt
public override IvkFormInterface ItemEventExt(IvkFormInterface oIvkForm, List <object> oForms, String LstFrmUID, String FormUID, ref ItemEvent pVal, ref Boolean BubbleEvent)
{
SAPbouiCOM.Form oForm;
SAPbouiCOM.Form oFormParent;
IvkFormInterface result = null;
result = base.ItemEventExt(oIvkForm, oForms, LstFrmUID, FormUID, ref pVal, ref BubbleEvent);
try
{
//inherited ItemEventExt(oIvkForm,oForms,LstFrmUID, FormUID, var pVal, var BubbleEvent);
result = base.ItemEventExt(oIvkForm, oForms, LstFrmUID, FormUID, ref pVal, ref BubbleEvent);
if (result != null)
{
return(result);
}
else
{
if (oIvkForm != null)
{
return(oIvkForm);
}
}
// CFL Extendido (Enmascara el CFL estandar)
if ((pVal.BeforeAction) && (pVal.EventType == BoEventTypes.et_FORM_LOAD) && (!string.IsNullOrEmpty(LstFrmUID)))
{
try
{
oForm = SBOApplication.Forms.Item(LstFrmUID);
}
catch
{
oForm = null;
}
}
if ((!pVal.BeforeAction) && (pVal.FormTypeEx == "0"))
{
if ((oIvkForm == null) && (GlobalSettings.UsrFldsFormActive) && (GlobalSettings.UsrFldsFormUid != "") && (pVal.EventType == BoEventTypes.et_FORM_LOAD))
{
oForm = SBOApplication.Forms.Item(pVal.FormUID);
oFormParent = SBOApplication.Forms.Item(GlobalSettings.UsrFldsFormUid);
try
{
//SBO_App.StatusBar.SetText(oFormParent.Title,BoMessageTime.bmt_Short,BoStatusBarMessageType.smt_Warning);
SBOFunctions.FillListUserFieldForm(GlobalSettings.ListFormsUserField, oFormParent, oForm);
}
finally
{
GlobalSettings.UsrFldsFormUid = "";
GlobalSettings.UsrFldsFormActive = false;
}
}
else
{
if ((pVal.EventType == BoEventTypes.et_FORM_ACTIVATE) || (pVal.EventType == BoEventTypes.et_COMBO_SELECT) || (pVal.EventType == BoEventTypes.et_FORM_RESIZE))
{
oForm = SBOApplication.Forms.Item(pVal.FormUID);
SBOFunctions.DisableListUserFieldsForm(GlobalSettings.ListFormsUserField, oForm);
}
}
}
if ((!pVal.BeforeAction) && (pVal.EventType == BoEventTypes.et_FORM_LOAD) && (oIvkForm == null))
{
switch (pVal.FormTypeEx)
{
case "133": //Factura
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = false;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "65307": //Factura Exportacion
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IX";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "60090": //Factura + pago venta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = false;
TInvoice.ReservaExp = false;
TInvoice.ObjType = "13";
break;
}
case "60091": //Factura Reserva
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = true;
break;
}
case "65302": //Factura exenta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IE";
TInvoice.bFolderAdd = false;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "65300": //Factura Anticipo
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = false;
TInvoice.ObjType = "203";
TInvoice.ReservaExp = false;
break;
}
case "65304": //Boleta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IB";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "65305": //Boleta Exenta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "EB";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "65303": //Nota de debito
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "DN";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
break;
}
case "179": //Nota de Credito
{
result = (IvkFormInterface)(new TCreditNotes());
//(TCreditNotes)(result).ooForms = oForms;
TCreditNotes.DocSubType = "--";
TCreditNotes.bFolderAdd = true;
TCreditNotes.ObjType = "14";
break;
}
case "426": //Pago efectuado
{
result = (IvkFormInterface)(new TPagoEfectuado());
//(TCreditNotes)(result).ooForms = oForms;
TPagoEfectuado.bFolderAdd = true;
TPagoEfectuado.ObjType = "46";
break;
}
case "140": //Entrega
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = false;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = false;
TDeliveryNote.ObjType = "15";
break;
}
case "940": //Transferencia Stock
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = true;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = false;
TDeliveryNote.ObjType = "67";
break;
}
case "182": //Devolucion mercancia compra
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = false;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = true;
TDeliveryNote.ObjType = "21";
break;
}
} //fin switch
}
if (result != null)
{
SAPbouiCOM.Application App = SBOApplication;
SAPbobsCOM.Company Cmpny = SBOCompany;
VisualD.SBOFunctions.CSBOFunctions SboF = SBOFunctions;
VisualD.GlobalVid.TGlobalVid Glob = GlobalSettings;
if (result.InitForm(pVal.FormUID, @"forms\\", ref App, ref Cmpny, ref SboF, ref Glob))
{
oForms.Add(result);
}
else
{
SBOApplication.Forms.Item(result.getFormId()).Close();
result = null;
}
}
return(result);
}// fin try
catch (Exception e)
{
return(null);
oLog.OutLog("ItemEventExt: " + e.Message + " ** Trace: " + e.StackTrace);
SBOApplication.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); // Captura errores no manejados
}
} //fin ItemEventExt
} //MenuEventExt
public override IvkFormInterface ItemEventExt(IvkFormInterface oIvkForm, List <object> oForms, String LstFrmUID, String FormUID, ref ItemEvent pVal, ref Boolean BubbleEvent)
{
SAPbouiCOM.Form oForm;
SAPbouiCOM.Form oFormParent;
IvkFormInterface result = null;
result = base.ItemEventExt(oIvkForm, oForms, LstFrmUID, FormUID, ref pVal, ref BubbleEvent);
try
{
//inherited ItemEventExt(oIvkForm,oForms,LstFrmUID, FormUID, var pVal, var BubbleEvent);
result = base.ItemEventExt(oIvkForm, oForms, LstFrmUID, FormUID, ref pVal, ref BubbleEvent);
if (result != null)
{
return(result);
}
else
{
if (oIvkForm != null)
{
return(oIvkForm);
}
}
// CFL Extendido (Enmascara el CFL estandar)
if ((pVal.BeforeAction) && (pVal.EventType == BoEventTypes.et_FORM_LOAD) && (!string.IsNullOrEmpty(LstFrmUID)))
{
try
{
oForm = SBOApplication.Forms.Item(LstFrmUID);
}
catch
{
oForm = null;
}
}
if ((!pVal.BeforeAction) && (pVal.FormTypeEx == "0"))
{
if ((oIvkForm == null) && (GlobalSettings.UsrFldsFormActive) && (GlobalSettings.UsrFldsFormUid != "") && (pVal.EventType == BoEventTypes.et_FORM_LOAD))
{
oForm = SBOApplication.Forms.Item(pVal.FormUID);
oFormParent = SBOApplication.Forms.Item(GlobalSettings.UsrFldsFormUid);
try
{
//SBO_App.StatusBar.SetText(oFormParent.Title,BoMessageTime.bmt_Short,BoStatusBarMessageType.smt_Warning);
SBOFunctions.FillListUserFieldForm(GlobalSettings.ListFormsUserField, oFormParent, oForm);
}
finally
{
GlobalSettings.UsrFldsFormUid = "";
GlobalSettings.UsrFldsFormActive = false;
}
}
else
{
if ((pVal.EventType == BoEventTypes.et_FORM_ACTIVATE) || (pVal.EventType == BoEventTypes.et_COMBO_SELECT) || (pVal.EventType == BoEventTypes.et_FORM_RESIZE))
{
oForm = SBOApplication.Forms.Item(pVal.FormUID);
SBOFunctions.DisableListUserFieldsForm(GlobalSettings.ListFormsUserField, oForm);
}
}
}
if ((!pVal.BeforeAction) && (pVal.EventType == BoEventTypes.et_FORM_LOAD) && (oIvkForm == null))
{
switch (pVal.FormTypeEx)
{
case "65080": //primera ventana confirmacion folio
{
result = (IvkFormInterface)(new TPConfirmacionFolio());
//(TPConfirmacionFolio)(result).ooForms = oForms;
break;
}
case "65081": //segunda ventana confirmacion folio
{
result = (IvkFormInterface)(new TConfirmacionFolio());
//(TConfirmacionFolio)(result).ooForms = oForms;
break;
}
case "65082": //Impresion Masiva
{
result = (IvkFormInterface)(new TImpresionMasiva());
//(TImpresionMasiva)(result).ooForms = oForms;
break;
}
case "184": //Criterios para impresion masiva
{
result = (IvkFormInterface)(new TCriterioImpMasiva());
//(TCriterioImpMasiva)(result).ooForms = oForms;
break;
}
case "191": //Seleccionar Documentos para impresion masiva
{
result = (IvkFormInterface)(new TSelDocImpMasivo());
//(TSelDocImpMasivo)(result).ooForms = oForms;
break;
}
case "133": //Factura
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = true;
break;
}
case "65307": //Factura Exportacion
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IX";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "60090": //Factura + pago venta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = true;
TInvoice.ReservaExp = false;
TInvoice.ObjType = "13";
TInvoice.Liquidacion = true;
break;
}
case "60091": //Factura Reserva
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = true;
TInvoice.Liquidacion = false;
break;
}
case "65302": //Factura exenta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IE";
TInvoice.bFolderAdd = false;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "65300": //Factura Anticipo
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "--";
TInvoice.bFolderAdd = false;
TInvoice.ObjType = "203";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "65304": //Boleta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "IB";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "65305": //Boleta Exenta
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "EB";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "65303": //Nota de debito
{
result = (IvkFormInterface)(new TInvoice());
//(TInvoice)(result).ooForms = oForms;
TInvoice.DocSubType = "DN";
TInvoice.bFolderAdd = true;
TInvoice.ObjType = "13";
TInvoice.ReservaExp = false;
TInvoice.Liquidacion = false;
break;
}
case "179": //Nota de Credito
{
result = (IvkFormInterface)(new TCreditNotes());
//(TCreditNotes)(result).ooForms = oForms;
TCreditNotes.DocSubType = "--";
TCreditNotes.bFolderAdd = true;
TCreditNotes.ObjType = "14";
break;
}
case "140": //Entrega
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = false;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = false;
break;
}
case "182": //Devolucion mercancia Compra
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = false;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = true;
break;
}
case "940": //Transferencia Stock
{
result = (IvkFormInterface)(new TDeliveryNote());
//(TDeliveryNote)(result).ooForms = oForms;
TDeliveryNote.Transferencia = true;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = false;
TDeliveryNote.SolicitudTraslado = false;
break;
}
case "1250000940": // Solicitud de traslado de Mercancias
{
oRecordSet = (SAPbobsCOM.Recordset)(SBOCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"Select isnull(U_DteSolTras,'N') dtesoltras from [@VID_FEPARAM]";
}
else
{
s = @"Select IFNULL(""U_DteSolTras"",'N') dtesoltras ""@VID_FEPARAM"" ";
}
oRecordSet.DoQuery(s);
if ((System.String)(oRecordSet.Fields.Item("dtesoltras").Value) == "Y")
{
result = (IvkFormInterface)(new TDeliveryNote());
TDeliveryNote.Transferencia = true;
TDeliveryNote.bFolderAdd = true;
TDeliveryNote.Devolucion = false;
TDeliveryNote.SolicitudTraslado = true;
break;
}
break;
}
case "141": //Factura de compra a terceros
{
result = (IvkFormInterface)(new TPurchaseInvoice());
//(TInvoice)(result).ooForms = oForms;
TPurchaseInvoice.DocSubType = "--";
TPurchaseInvoice.bFolderAdd = false;
TPurchaseInvoice.ObjType = "18";
break;
}
case "65301": //Factura Anticipo de compra a terceros
{
result = (IvkFormInterface)(new TPurchaseInvoice());
//(TInvoice)(result).ooForms = oForms;
TPurchaseInvoice.DocSubType = "--";
TPurchaseInvoice.bFolderAdd = false;
TPurchaseInvoice.ObjType = "204";
break;
}
case "181": //Nota de Credito Compra
{
result = (IvkFormInterface)(new TCreditNotes());
//(TCreditNotes)(result).ooForms = oForms;
TCreditNotes.DocSubType = "--";
TCreditNotes.bFolderAdd = true;
TCreditNotes.ObjType = "19";
break;
}
} //fi switch
}
if (result != null)
{
SAPbouiCOM.Application App = SBOApplication;
SAPbobsCOM.Company Cmpny = SBOCompany;
VisualD.SBOFunctions.CSBOFunctions SboF = SBOFunctions;
VisualD.GlobalVid.TGlobalVid Glob = GlobalSettings;
if (result.InitForm(pVal.FormUID, @"forms\\", ref App, ref Cmpny, ref SboF, ref Glob))
{
oForms.Add(result);
}
else
{
SBOApplication.Forms.Item(result.getFormId()).Close();
result = null;
}
}
return(result);
}// fin try
catch (Exception e)
{
return(null);
oLog.OutLog("ItemEventExt: " + e.Message + " ** Trace: " + e.StackTrace);
SBOApplication.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); // Captura errores no manejados
}
} //fin ItemEventExt