private void CuentaSAP(Int32 Linea)
{
IvkFormInterface oFormvk = null;
String oPath = System.IO.Path.GetDirectoryName(TMultiFunctions.ParamStr(0));
String sArchivo = "";
String oUid;
try
{
oDBDSHeader.Clear();
oDBDSHeader.InsertRecord(0);
oDBDSHeader.SetValue("DocEntry", 0, oDataTable.GetValue("DocEntry", Linea).ToString().Trim());
oDBDSHeader.SetValue("U_Cuenta", 0, ((System.String)oDataTable.GetValue("Cuenta", Linea)).Trim());
oDBDSHeader.SetValue("U_Desc", 0, ((System.String)oDataTable.GetValue("Descripcion", Linea)).Trim());
oDBDSHeader.SetValue("U_Clasif", 0, ((System.String)oDataTable.GetValue("Clasificacion", Linea)).Trim());
oFormvk = (IvkFormInterface)(new TCuentaSAP());
TCuentaSAP.DocEntry = ((System.Int32)oDataTable.GetValue("DocEntry", Linea));
TCuentaSAP.oDBDSHeader = oDBDSHeader;
oUid = FSBOf.generateFormId(FGlobalSettings.SBOSpaceName, FGlobalSettings);
oFormvk.InitForm(oUid, "forms\\", ref FSBOApp, ref FCmpny, ref FSBOf, ref FGlobalSettings);
FoForms.Add(oFormvk);
}
catch (Exception e)
{
FSBOApp.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("Error Abrri Sueldos: " + e.Message + " ** Trace: " + e.StackTrace);
}
}
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
Int32 nErr;
String sErr;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
IvkFormInterface oFormB;
String oUid;
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction))
{
if (pVal.ItemUID == "btn1")
{
oFormB = (IvkFormInterface)(new TLibros());
TLibros.TipoLibro = "C";
oEditText = (EditText)(oForm.Items.Item("Desde").Specific);
TLibros.Desde = oEditText.Value;
oEditText = (EditText)(oForm.Items.Item("Hasta").Specific);
TLibros.Hasta = oEditText.Value;
oUid = FSBOf.generateFormId(FGlobalSettings.SBOSpaceName, FGlobalSettings);
oFormB.InitForm(oUid, "forms\\", ref FSBOApp, ref FCmpny, ref FSBOf, ref FGlobalSettings);
FoForms.Add(oFormB);
}
}
}
catch (Exception e)
{
FCmpny.GetLastError(out nErr, out sErr);
FSBOApp.StatusBar.SetText("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin FormEvent