}//fin MenuEvent private void Query(String Proc) { try { if (GlobalSettings.RunningUnderSQLServer) { s = "exec " + Proc + " '" + Desde + "', '" + Hasta + "'"; } else { s = "CALL " + Proc + " ('" + Desde + "', '" + Hasta + "')"; } oDataTable.ExecuteQuery(s); if (oDataTable.Rows.Count > 0) { ogrid.AutoResizeColumns(); } } catch (Exception e) { OutLog("Query: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } }
}//fin MenuEvent private void BuscarDatos() { String FechaD; String FechaH; String TipoDTE; try { oForm.Freeze(true); FechaD = ((System.String)((EditText)oForm.Items.Item("FechaD").Specific).Value); FechaH = ((System.String)((EditText)oForm.Items.Item("FechaH").Specific).Value); TipoDTE = ((System.String)((ComboBox)oForm.Items.Item("TipoDTE").Specific).Selected.Value).Trim(); if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT T0.DocEntry ,T0.U_TipoDoc TipoDoc ,T0.U_Folio Folio ,T0.U_RUT RUT ,T0.U_Razon Razon ,T0.U_FechaEmi FechaEmi ,CAST(REPLACE(CONVERT(CHAR(10), T0.U_FechaRecep, 102),'.','-') +' '+ CASE WHEN LEN(T0.U_HoraRecep) = 4 THEN LEFT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':' + RIGHT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':00' WHEN LEN(T0.U_HoraRecep) = 3 THEN '0' + LEFT(CAST(T0.U_HoraRecep AS VARCHAR(10)),1) + ':' + RIGHT(CAST(T0.U_HoraRecep AS VARCHAR(10)),2) + ':00' WHEN LEN(T0.U_HoraRecep) = 2 THEN '00:'+ CAST(T0.U_HoraRecep AS VARCHAR(10)) + ':00' WHEN LEN(T0.U_HoraRecep) = 1 THEN '00:0' + CAST(T0.U_HoraRecep AS VARCHAR(10)) + ':00' ELSE '00:00:00' END AS VARCHAR(50)) FechaRecep ,T0.U_Monto Monto ,T0.U_IVA IVA ,T0.U_EstadoC EstadoC ,T0.U_EstadoSII EstadoSII ,T0.U_EstadoLey EstadoLey ,CAST(T0.U_DocEntry AS INT) DocEntryDoc ,{4} 'xml' FROM [{2}] T0 WHERE 1 = 1 AND T0.{3} BETWEEN '{0}' AND '{1}'"; } else { s = @"SELECT T0.""DocEntry"" ,T0.""U_TipoDoc"" ""TipoDoc"" ,T0.""U_Folio"" ""Folio"" ,T0.""U_RUT"" ""RUT"" ,T0.""U_Razon"" ""Razon"" ,T0.""U_FechaEmi"" ""FechaEmi"" ,CAST(TO_VARCHAR(T0.""U_FechaRecep"", 'yyyy-MM-dd') ||' '|| CASE WHEN LENGTH(T0.""U_HoraRecep"") = 4 THEN LEFT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':' || RIGHT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':00' WHEN LENGTH(T0.""U_HoraRecep"") = 3 THEN '0' || LEFT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),1) || ':' || RIGHT(CAST(T0.""U_HoraRecep"" AS VARCHAR(10)),2) || ':00' WHEN LENGTH(T0.""U_HoraRecep"") = 2 THEN '00:' || CAST(T0.""U_HoraRecep"" AS VARCHAR(10)) || ':00' WHEN LENGTH(T0.""U_HoraRecep"") = 1 THEN '00:0' || CAST(T0.""U_HoraRecep"" AS VARCHAR(10)) || ':00' ELSE '00:00:00' END AS VARCHAR(50)) ""FechaRecep"" ,T0.""U_Monto"" ""Monto"" ,T0.""U_IVA"" ""IVA"" ,T0.""U_EstadoC"" ""EstadoC"" ,T0.""U_EstadoSII"" ""EstadoSII"" ,T0.""U_EstadoLey"" ""EstadoLey"" ,TO_INT(T0.""U_DocEntry"") ""DocEntryDoc"" ,{4} ""xml"" FROM ""{2}"" T0 WHERE 1 = 1 AND T0.""{3}"" BETWEEN '{0}' AND '{1}'"; } s = String.Format(s, FechaD, FechaH, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA"), (DSOpFec.Value == "1" ? "U_FechaEmi" : "U_FechaRecep"), (TipoDTE == "C" ? (GlobalSettings.RunningUnderSQLServer ? @"T0.U_Xml" : @"T0.""U_Xml"" ") : "''")); if (((System.String)((ComboBox)oForm.Items.Item("Cliente").Specific).Selected.Value).Trim() != "Todos") { if (GlobalSettings.RunningUnderSQLServer) { s = s + @" AND T0.U_EstadoC = '{0}'"; } else { s = s + @" AND T0.""U_EstadoC"" = '{0}'"; } s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("Cliente").Specific).Selected.Value).Trim()); } if (((System.String)((ComboBox)oForm.Items.Item("SII").Specific).Selected.Value).Trim() != "Todos") { if (GlobalSettings.RunningUnderSQLServer) { s = s + @" AND T0.U_EstadoSII = '{0}'"; } else { s = s + @" AND T0.""U_EstadoSII"" = '{0}'"; } s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("SII").Specific).Selected.Value).Trim()); } if (((System.String)((ComboBox)oForm.Items.Item("Ley").Specific).Selected.Value).Trim() != "Todos") { if (GlobalSettings.RunningUnderSQLServer) { s = s + @" AND T0.U_EstadoLey = '{0}'"; } else { s = s + @" AND T0.""U_EstadoLey"" = '{0}'"; } s = String.Format(s, ((System.String)((ComboBox)oForm.Items.Item("Ley").Specific).Selected.Value).Trim()); } oDataTable.ExecuteQuery(s); oGrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText; var col = (EditTextColumn)(oGrid.Columns.Item("DocEntry")); col.Visible = false; oGrid.Columns.Item("TipoDoc").Type = BoGridColumnType.gct_EditText; col = (EditTextColumn)(oGrid.Columns.Item("TipoDoc")); col.Editable = false; col.TitleObject.Caption = "Tipo DTE"; col.TitleObject.Sortable = true; oGrid.Columns.Item("Folio").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("Folio")); col.Editable = false; col.RightJustified = true; col.TitleObject.Sortable = true; col.TitleObject.Caption = "Nro Folio"; oGrid.Columns.Item("RUT").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("RUT")); col.Editable = false; col.TitleObject.Sortable = true; col.TitleObject.Caption = "RUT"; if (TipoDTE == "C") { col.Visible = true; } else { col.Visible = false; } oGrid.Columns.Item("Razon").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("Razon")); col.Editable = false; col.TitleObject.Sortable = true; col.TitleObject.Caption = "Razon Social"; oGrid.Columns.Item("FechaEmi").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("FechaEmi")); col.Editable = false; col.TitleObject.Sortable = true; col.TitleObject.Caption = "Fecha Emisión"; oGrid.Columns.Item("FechaRecep").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("FechaRecep")); col.Editable = false; col.TitleObject.Sortable = true; col.TitleObject.Caption = "Fecha Recepción"; oGrid.Columns.Item("Monto").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("Monto")); col.Editable = false; col.RightJustified = true; col.TitleObject.Sortable = true; col.TitleObject.Caption = "Monto"; oGrid.Columns.Item("IVA").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("IVA")); col.Editable = false; col.RightJustified = true; col.TitleObject.Sortable = true; col.TitleObject.Caption = "IVA"; oGrid.Columns.Item("EstadoC").Type = BoGridColumnType.gct_ComboBox; var colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoC")); colCombo.Editable = false; colCombo.DisplayType = BoComboDisplayType.cdt_both; colCombo.TitleObject.Sortable = true; colCombo.TitleObject.Caption = "Estado Cliente"; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoC'"; } else { s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoC'"; } s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA")); oRecordSet.DoQuery(s); FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoC")), ref oRecordSet, false); oGrid.Columns.Item("EstadoSII").Type = BoGridColumnType.gct_ComboBox; colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoSII")); colCombo.Editable = false; colCombo.DisplayType = BoComboDisplayType.cdt_both; colCombo.TitleObject.Sortable = true; colCombo.TitleObject.Caption = "Estado SII"; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoSII'"; } else { s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoSII'"; } s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA")); oRecordSet.DoQuery(s); FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoSII")), ref oRecordSet, false); oGrid.Columns.Item("EstadoLey").Type = BoGridColumnType.gct_ComboBox; colCombo = ((ComboBoxColumn)oGrid.Columns.Item("EstadoLey")); colCombo.Editable = false; colCombo.DisplayType = BoComboDisplayType.cdt_both; colCombo.TitleObject.Sortable = true; colCombo.TitleObject.Caption = "Estado Ley 20.956"; if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT T1.FldValue Code, T1.Descr Name FROM CUFD T0 JOIN UFD1 T1 ON T1.TableID = T0.TableID AND T1.FieldID = T0.FieldID WHERE T0.TableID = '{0}' AND T0.AliasID = 'EstadoLey'"; } else { s = @"SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name"" FROM ""CUFD"" T0 JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID"" AND T1.""FieldID"" = T0.""FieldID"" WHERE T0.""TableID"" = '{0}' AND T0.""AliasID"" = 'EstadoLey'"; } s = String.Format(s, (TipoDTE == "V" ? "@VID_FEDTEVTA" : "@VID_FEDTECPRA")); oRecordSet.DoQuery(s); FSBOf.FillComboGrid(((GridColumn)oGrid.Columns.Item("EstadoLey")), ref oRecordSet, false); oGrid.Columns.Item("DocEntryDoc").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("DocEntryDoc")); col.Editable = false; col.RightJustified = true; if (TipoDTE == "V") { col.Visible = false; } else { col.Visible = true; } col.TitleObject.Sortable = false; col.TitleObject.Caption = "Factura en SAP"; col.LinkedObjectType = "18"; oGrid.Columns.Item("xml").Type = BoGridColumnType.gct_EditText; col = ((EditTextColumn)oGrid.Columns.Item("xml")); col.Editable = false; col.Visible = false; oGrid.AutoResizeColumns(); } catch (Exception x) { FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("BuscarDatos: " + x.Message + " ** Trace: " + x.StackTrace); } finally { oForm.Freeze(false); } }
}//fin ActualizarRegistros private void ActualizarGrilla() { SAPbouiCOM.GridColumn oColumn; try { //Actualiza grilla if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, CAST(U_BaseMul AS VARCHAR(11)) U_BaseMul, U_TipoDoc, U_Fecha, U_Desde, U_Hasta, U_Utilizados, U_Asignables, U_CAF from [@VID_FECAF]"; } else { s = @"select ""Code"", TO_VARCHAR(""U_BaseMul"") ""U_BaseMul"", ""U_TipoDoc"", ""U_Fecha"", ""U_Desde"", ""U_Hasta"", ""U_Utilizados"", ""U_Asignables"", ""U_CAF"" from ""@VID_FECAF"" "; } oDataTable.ExecuteQuery(s); ogrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("Code")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.Visible = false; oColumn.TitleObject.Caption = "Código"; ogrid.Columns.Item("U_BaseMul").Type = BoGridColumnType.gct_ComboBox; var colCombo = (ComboBoxColumn)(ogrid.Columns.Item("U_BaseMul")); colCombo.DisplayType = BoComboDisplayType.cdt_Description; colCombo.TitleObject.Caption = "Sociedad"; colCombo.Editable = false; if (bMultiSoc) { colCombo.Visible = true; if (GlobalSettings.RunningUnderSQLServer) { s = @"select DocEntry, U_Sociedad 'Sociedad' from [@VID_FEMULTISOC]"; } else { s = @"select ""DocEntry"", ""U_Sociedad"" ""Sociedad"" from ""@VID_FEMULTISOC"" "; } oRecordSet.DoQuery(s); while (!oRecordSet.EoF) { colCombo.ValidValues.Add(((System.Int32)oRecordSet.Fields.Item("DocEntry").Value).ToString(), ((System.String)oRecordSet.Fields.Item("Sociedad").Value).Trim()); oRecordSet.MoveNext(); } } else { colCombo.Visible = false; } ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Tipo Documento"; ogrid.Columns.Item("U_Fecha").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Fecha")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.TitleObject.Caption = "Fecha CAF"; ogrid.Columns.Item("U_Desde").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Desde")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Desde"; ogrid.Columns.Item("U_Hasta").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Hasta")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Hasta"; ogrid.Columns.Item("U_Utilizados").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Utilizados")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "CAF Utilizados"; ogrid.Columns.Item("U_Asignables").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Asignables")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Asignables"; ogrid.Columns.Item("U_CAF").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_CAF")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.TitleObject.Caption = "XML CAF"; ogrid.AutoResizeColumns(); } catch (Exception x) { FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("ActualizarGrilla: " + x.Message + " ** Trace: " + x.StackTrace); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); FSBOf.LoadForm(xmlPath, "VID_FEIMPADIC.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All Flag = false; oForm.Freeze(true); if (GlobalSettings.RunningUnderSQLServer) { s = @"select count(*) Cont from [@VID_FEIMPADIC]"; } else { s = @"select count(*) ""Cont"" from ""@VID_FEIMPADIC"" "; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0) { oForm.Mode = BoFormMode.fm_UPDATE_MODE; } else { oForm.Mode = BoFormMode.fm_ADD_MODE; } oGrid = (Grid)(oForm.Items.Item("3").Specific); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEIMPADIC"); oDataTable = oForm.DataSources.DataTables.Add("Tax"); if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, U_CodImpto, U_Desc, U_Porc from [@VID_FEIMPADIC] UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0"; } else { s = @"select ""Code"", ""U_CodImpto"", ""U_Desc"", ""U_Porc"" from ""@VID_FEIMPADIC"" UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0 FROM DUMMY "; } oDataTable.ExecuteQuery(s); oGrid.DataTable = oDataTable; oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_ComboBox; oColumn = (GridColumn)(oGrid.Columns.Item("Code")); var oComboCol = (ComboBoxColumn)(oColumn); oComboCol.Editable = true; oComboCol.TitleObject.Caption = "Impuesto SAP"; if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name from OSTA UNION ALL select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N'"; } else { s = @"select ""Code"", ""Name"" from ""OSTA"" UNION ALL select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' "; } oRecordSet.DoQuery(s); FSBOf.FillComboGrid((GridColumn)(oGrid.Columns.Item("Code")), ref oRecordSet, true); oGrid.Columns.Item("U_CodImpto").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_CodImpto")); var oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Código Impto. SII"; oGrid.Columns.Item("U_Desc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_Desc")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Descripción Impuesto"; oGrid.Columns.Item("U_Porc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_Porc")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Porcentaje Retencion"; oEditCol.RightJustified = true; oGrid.AutoResizeColumns(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
}//fin MenuEvent private void Grilla() { try { if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT T0.U_Sucursal ,T0.U_TipoDoc ,COUNT(*) 'Asignados' ,SUM(CASE WHEN T1.U_Estado = 'D' THEN 1 ELSE 0 END) 'Disponibles' ,SUM(CASE WHEN T1.U_Estado = 'U' THEN 1 ELSE 0 END) 'Utilizados' FROM [@VID_FEDIST] T0 WITH(nolock) JOIN [@VID_FEDISTD] T1 WITH(nolock) ON T1.DocEntry = T0.DocEntry GROUP BY T0.U_Sucursal ,T0.U_TipoDoc ORDER BY T0.U_Sucursal, T0.U_TipoDoc"; } else { s = @"SELECT T0.""U_Sucursal"" ,T0.""U_TipoDoc"" ,COUNT(*) ""Asignados"" ,SUM(CASE WHEN T1.""U_Estado"" = 'D' THEN 1 ELSE 0 END) ""Disponibles"" ,SUM(CASE WHEN T1.""U_Estado"" = 'U' THEN 1 ELSE 0 END) ""Utilizados"" FROM ""@VID_FEDIST"" T0 JOIN ""@VID_FEDISTD"" T1 ON T1.""DocEntry"" = T0.""DocEntry"" GROUP BY T0.""U_Sucursal"" ,T0.""U_TipoDoc"" ORDER BY T0.""U_Sucursal"", T0.""U_TipoDoc"" "; } oDataTable.ExecuteQuery(s); ogrid.Columns.Item("U_Sucursal").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Sucursal")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.Visible = false; oColumn.TitleObject.Caption = "Código"; ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Tipo Documento"; ogrid.Columns.Item("Asignados").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("Asignados")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Total Asignados"; ogrid.Columns.Item("Disponibles").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("Disponibles")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Total Disponibles"; ogrid.Columns.Item("Utilizados").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("Utilizados")); //EditTextColumn(oColumn).LinkedObjectType := '86'; oColumn.Editable = false; oColumn.RightJustified = true; oColumn.TitleObject.Caption = "Total Utilizados"; ogrid.AutoResizeColumns(); } catch (Exception e) { FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); OutLog("Grilla: " + e.Message + " ** Trace: " + e.StackTrace); } }//fin Grilla
}//fin MenuEvent private void CargarGrilla() { try { if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT DocEntry, ISNULL(U_Cuenta,'') Cuenta, ISNULL(U_Desc,'') Descripcion, ISNULL(U_Clasif,'') Clasificacion FROM [@VID_FEPLANCTA]"; } else { s = @"SELECT ""DocEntry"", IFNULL(""U_Cuenta"",'') ""Cuenta"", IFNULL(""U_Desc"",'') ""Descripcion"", IFNULL(""U_Clasif"",'') ""Clasificacion"" FROM ""@VID_FEPLANCTA"" "; } oDataTable.ExecuteQuery(s); if (oDataTable.IsEmpty) { oForm.Items.Item("btnCtaSAP").Enabled = false; //oForm.Mode = BoFormMode.fm_ADD_MODE; } else { oForm.Mode = BoFormMode.fm_UPDATE_MODE; oDataTable.Rows.Add(1); } var col = ((EditTextColumn)oGrid.Columns.Item("DocEntry")); col.Editable = false; col.Visible = false; col.TitleObject.Caption = "DocEntry"; col = ((EditTextColumn)oGrid.Columns.Item("Cuenta")); //col.LinkedObjectType = "171"; // Link to Employee col.Editable = false; col.Visible = true; col.TitleObject.Caption = "Código Cuenta"; col = ((EditTextColumn)oGrid.Columns.Item("Descripcion")); col.Editable = true; col.Visible = true; col.TitleObject.Caption = "Descripción Cuenta"; oGrid.Columns.Item("Clasificacion").Type = BoGridColumnType.gct_ComboBox; var colC = ((ComboBoxColumn)oGrid.Columns.Item("Clasificacion")); colC.Editable = true; colC.Visible = true; colC.DisplayType = BoComboDisplayType.cdt_Description; colC.TitleObject.Caption = "Clasificación"; var Combo = ((ComboBoxColumn)oGrid.Columns.Item("Clasificacion")); Combo.ValidValues.Add("1", "Activo"); Combo.ValidValues.Add("2", "Pasivo"); Combo.ValidValues.Add("3", "Patrimonio"); Combo.ValidValues.Add("4", "Pérdidas y Ganancias"); Combo.ValidValues.Add("5", "Orden"); oGrid.AutoResizeColumns(); } catch (Exception x) { FSBOApp.StatusBar.SetText("CargarGrilla: " + x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("CargarGrilla: " + x.Message + " ** Trace: " + x.StackTrace); } }
}//fin FormEvent private void CargarDatosPE() { SAPbouiCOM.EditTextColumn oEditColumn; SAPbouiCOM.CheckBox oChkRechazados; SAPbouiCOM.CheckBox oChkPendientes; SAPbouiCOM.CheckBox oChkAceptados; SAPbouiCOM.CheckBox oChkDadoBaja; SAPbouiCOM.CheckBox oChkErrores; String FechaD, FechaH, Status; try { oForm.Freeze(true); oChkRechazados = (CheckBox)(oForm.Items.Item("Rechazados").Specific); oChkPendientes = (CheckBox)(oForm.Items.Item("Pendientes").Specific); oChkAceptados = (CheckBox)(oForm.Items.Item("Aceptados").Specific); oChkDadoBaja = (CheckBox)(oForm.Items.Item("DadoBaja").Specific); oChkErrores = (CheckBox)(oForm.Items.Item("Errores").Specific); if ((oChkRechazados.Checked) || (oChkPendientes.Checked) || (oChkAceptados.Checked) || (oChkErrores.Checked)) { if (GlobalSettings.RunningUnderSQLServer) { Status = "and T0.U_Status in ("; Status = Status + (oChkRechazados.Checked ? "'RZ'," : ""); Status = Status + (oChkPendientes.Checked ? "'EC'," : ""); Status = Status + (oChkAceptados.Checked ? "'RR'," : ""); Status = Status + (oChkDadoBaja.Checked ? "'DB'," : ""); Status = Status + (oChkErrores.Checked ? "'EE'," : ""); Status = Status.Substring(0, Status.Length - 1); Status = Status + ")"; } else { Status = @"and T0.""U_Status"" in ("; Status = Status + (oChkRechazados.Checked ? "'RZ'," : ""); Status = Status + (oChkPendientes.Checked ? "'EC'," : ""); Status = Status + (oChkAceptados.Checked ? "'RR'," : ""); Status = Status + (oChkDadoBaja.Checked ? "'DB'," : ""); Status = Status + (oChkErrores.Checked ? "'EE'," : ""); Status = Status.Substring(0, Status.Length - 1); Status = Status + ")"; } } else if ((!oChkRechazados.Checked) && (!oChkPendientes.Checked) && (!oChkAceptados.Checked) && (!oChkDadoBaja.Checked) && (!oChkErrores.Checked)) { //en caso de no encontrar ninguno marcado sale de la funcion oForm.Freeze(false); return; } else { Status = ""; } if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT LTRIM(STR(T0.U_DocEntry,18,0)) 'DocEntry' ,CASE U_ObjType WHEN '13' THEN (SELECT DocNum FROM OINV WHERE DocEntry = T0.U_DocEntry) WHEN '14' THEN (SELECT DocNum FROM ORIN WHERE DocEntry = T0.U_DocEntry) WHEN '15' THEN (SELECT DocNum FROM ODLN WHERE DocEntry = T0.U_DocEntry) WHEN '67' THEN (SELECT DocNum FROM OWTR WHERE DocEntry = T0.U_DocEntry) WHEN '21' THEN (SELECT DocNum FROM ORPD WHERE DocEntry = T0.U_DocEntry) END 'DocNum' ,T0.U_TipoDoc 'TipoDoc' ,ISNULL(T0.U_SeriePE,'') 'SeriePE' ,LTRIM(STR(T0.U_FolioNum,18,0)) 'Folio' ,(SELECT C1.Descr FROM CUFD C0 JOIN UFD1 C1 ON C1.TableID=C0.TableID AND C1.FieldID=C0.FieldID WHERE C0.TableID = '@VID_FELOG' AND C0.AliasID='Status' AND C1.FldValue= T0.U_Status) 'Estado' ,T0.U_Status ,T0.U_Message 'Mensaje' ,T0.U_ObjType 'ObjType' ,T0.U_Path 'Path' ,T0.U_ExtFolio 'ExtFolio' ,T0.DocEntry 'Key' ,ISNULL(T0.U_Id,'0') 'Id' ,ISNULL(T0.U_Validation,'') 'Validation' FROM [@vid_felog] T0 WITH (NOLOCK) JOIN OUSR T2 ON T2.USER_CODE = T0.U_UserCode WHERE {0} {3} AND ISNULL(T0.U_DocDate, T0.CreateDate) BETWEEN '{1}' AND '{2}' ORDER BY T0.DocEntry DESC"; } else { s = @"SELECT LTRIM(TO_ALPHANUM(T0.""U_DocEntry"")) ""DocEntry"" ,CASE ""U_ObjType"" WHEN '13' THEN (SELECT ""DocNum"" FROM ""OINV"" WHERE ""DocEntry"" = T0.""U_DocEntry"") WHEN '14' THEN (SELECT ""DocNum"" FROM ""ORIN"" WHERE ""DocEntry"" = T0.""U_DocEntry"") WHEN '15' THEN (SELECT ""DocNum"" FROM ""ODLN"" WHERE ""DocEntry"" = T0.""U_DocEntry"") WHEN '67' THEN (SELECT ""DocNum"" FROM ""OWTR"" WHERE ""DocEntry"" = T0.""U_DocEntry"") WHEN '21' THEN (SELECT ""DocNum"" FROM ""ORPD"" WHERE ""DocEntry"" = T0.""U_DocEntry"") END ""DocNum"" ,T0.""U_TipoDoc"" ""TipoDoc"" ,IFNULL(T0.""U_SeriePE"",'') ""SeriePE"" ,LTRIM(TO_ALPHANUM(T0.""U_FolioNum"")) ""Folio"" ,(SELECT C1.""Descr"" FROM ""CUFD"" C0 JOIN ""UFD1"" C1 ON C1.""TableID""=C0.""TableID"" AND C1.""FieldID""=C0.""FieldID"" WHERE C0.""TableID"" = '@VID_FELOG' AND C0.""AliasID""='Status' AND C1.""FldValue""= T0.""U_Status"") ""Estado"" ,T0.""U_Status"" ,T0.""U_Message"" ""Mensaje"" ,T0.""U_ObjType"" ""ObjType"" ,T0.""U_Path"" ""Path"" ,T0.""U_ExtFolio"" ""ExtFolio"" ,T0.""DocEntry"" ""Key"" ,IFNULL(T0.""U_Id"",'0') ""Id"" ,IFNULL(T0.""U_Validation"",'') ""Validation"" FROM ""@VID_FELOG"" T0 JOIN ""OUSR"" T2 on T2.""USER_CODE"" = T0.""U_UserCode"" WHERE {0} {3} AND IFNULL(T0.""U_DocDate"", T0.""CreateDate"") BETWEEN '{1}' AND '{2}' ORDER BY T0.""DocEntry"" DESC "; } oCheckBox = (CheckBox)(oForm.Items.Item("chk_Todo").Specific); oEditText = (EditText)(oForm.Items.Item("FechaD").Specific); FechaD = (System.String)(oEditText.Value).Trim(); oEditText = (EditText)(oForm.Items.Item("FechaH").Specific); FechaH = (System.String)(oEditText.Value).Trim(); if (GlobalSettings.RunningUnderSQLServer) { s = String.Format(s, !oCheckBox.Checked ? "T0.U_UserCode = '" + FSBOApp.Company.UserName + "'" : "1=1", FechaD, FechaH, Status); } else { s = String.Format(s, !oCheckBox.Checked ? @"T0.""U_UserCode"" = '" + FSBOApp.Company.UserName + "'" : "1=1", FechaD, FechaH, Status); } oDataTable.ExecuteQuery(s); oGrid.Columns.Item("TipoDoc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("TipoDoc")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Tipo Documento"; oGrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("DocEntry")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Llave SAP"; oEditColumn.LinkedObjectType = "13"; oEditColumn.RightJustified = true; oGrid.Columns.Item("DocNum").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("DocNum")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Número SAP"; oEditColumn.RightJustified = true; oGrid.Columns.Item("SeriePE").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("SeriePE")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Número Serie"; oEditColumn.RightJustified = true; oGrid.Columns.Item("Folio").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Folio")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Número Correlativo"; oEditColumn.RightJustified = true; oGrid.Columns.Item("Estado").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Estado")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Estado"; oGrid.Columns.Item("U_Status").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_Status")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "U_Status"; oEditColumn.Visible = false; oGrid.Columns.Item("Mensaje").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Mensaje")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Comentario"; oGrid.Columns.Item("ObjType").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("ObjType")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "ObjType"; oEditColumn.Visible = false; oGrid.Columns.Item("Path").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Path")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Documento"; oEditColumn.Visible = false; oGrid.Columns.Item("ExtFolio").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("ExtFolio")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "IdDocumento"; oEditColumn.Visible = true; oGrid.Columns.Item("Key").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Key")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Key"; oEditColumn.Visible = false; oGrid.Columns.Item("Id").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Id")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Id"; oEditColumn.Visible = false; oGrid.Columns.Item("Validation").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Validation")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Validation"; oEditColumn.Visible = false; oGrid.AutoResizeColumns(); } catch (Exception e) { OutLog("CargarDatosPE : " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.StatusBar.SetText("CargarDatosPE : " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); } oForm.Freeze(false); } //fin CargarDatosPE
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); //Lista := New list<string>; FSBOf.LoadForm(xmlPath, "VID_FEDetalleLog.srf", uid); //EnableCrystal := true; oForm = FSBOApp.Forms.Item(uid); oForm.Freeze(true); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All oForm.EnableMenu("1282", false); //Crear oForm.EnableMenu("1281", false); //Actualizar //oForm.DataBrowser.BrowseBy := "DocNum"; // Ok Ad Fnd Vw Rq Sec //Lista.Add('DocNum , f, f, t, f, n, 1'); //Lista.Add('DocDate , f, t, f, f, r, 1'); //Lista.Add('CardCode , f, t, t, f, r, 1'); //FSBOf.SetAutoManaged(var oForm, Lista); //s := '1'; //oCombo.Select(s, BoSearchKey.psk_ByValue); oForm.Items.Item("grid").Enabled = false; ogrid = (Grid)(oForm.Items.Item("grid").Specific); dt = oForm.DataSources.DataTables.Add("dt"); ogrid.DataTable = dt; if (GlobalSettings.RunningUnderSQLServer) { s = @"select U_TipoDoc ,LTRIM(STR(U_FolioNum,18,0)) 'U_FolioNum' ,U_ID_Log ,U_Glosa ,U_FechaIn from [@VID_FELOG] T0 join [@VID_FELOGD] T1 ON T1.DocEntry = T0.DocEntry where T0.DocEntry = {0} order by T1.LineId DESC"; } else { s = @"select ""U_TipoDoc"" ,LTRIM(ROUND(""U_FolioNum"",0)) ""U_FolioNum"" ,""U_ID_Log"" ,""U_Glosa"" ,""U_FechaIn"" from ""@VID_FELOG"" T0 join ""@VID_FELOGD"" T1 ON T1.""DocEntry"" = T0.""DocEntry"" where T0.""DocEntry"" = {0} order by T1.""LineId"" DESC "; } s = String.Format(s, prmKey); dt.ExecuteQuery(s); ogrid.AutoResizeColumns(); ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc")); var oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Tipo Documento"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_FolioNum").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_FolioNum")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Número Folio"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_ID_Log").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_ID_Log")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "ID Log Portal"; oEditColumn.RightJustified = true; ogrid.Columns.Item("U_Glosa").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_Glosa")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Glosa"; oEditColumn.RightJustified = false; ogrid.Columns.Item("U_FechaIn").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(ogrid.Columns.Item("U_FechaIn")); oEditColumn = (EditTextColumn)(oColumn); oEditColumn.Editable = false; oEditColumn.TitleObject.Caption = "Fecha Movimiento"; oEditColumn.RightJustified = false; oForm.Mode = BoFormMode.fm_OK_MODE; } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
}//fin MenuEvent private void CargarGrilla() { try { if (GlobalSettings.RunningUnderSQLServer) { s = @"SELECT DocEntry ,LineId ,U_CtaSAP ,U_DescSAP FROM [@VID_FEPLANCTAD] WHERE DocEntry = {0}"; } else { s = @"SELECT ""DocEntry"" ,""LineId"" ,""U_CtaSAP"" ,""U_DescSAP"" FROM ""@VID_FEPLANCTAD"" WHERE ""DocEntry"" = {0}"; } s = String.Format(s, DocEntry); odt.ExecuteQuery(s); if (!odt.IsEmpty) { oForm.Mode = BoFormMode.fm_UPDATE_MODE; odt.Rows.Add(1); } var col = ((EditTextColumn)oGrid.Columns.Item("DocEntry")); col.Editable = false; col.Visible = false; col.TitleObject.Caption = "DocEntry"; col = ((EditTextColumn)oGrid.Columns.Item("LineId")); col.Editable = false; col.Visible = false; col.TitleObject.Caption = "LineId"; col = ((EditTextColumn)oGrid.Columns.Item("U_CtaSAP")); col.Editable = true; col.Visible = true; col.TitleObject.Caption = "Cuenta SAP"; col.ChooseFromListUID = "CFL0"; col.ChooseFromListAlias = "FormatCode"; col.LinkedObjectType = "1"; col = ((EditTextColumn)oGrid.Columns.Item("U_DescSAP")); col.Editable = true; col.Visible = true; col.TitleObject.Caption = "Descripción Cuenta"; oGrid.AutoResizeColumns(); } catch (Exception t) { FSBOApp.StatusBar.SetText("CargarGrilla: " + t.Message + " ** Trace: " + t.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("CargarGrilla: " + t.Message + " ** Trace: " + t.StackTrace); } }
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings) { bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings); try { oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)); FSBOf.LoadForm(xmlPath, "FM_NOTES.srf", uid); oForm = FSBOApp.Forms.Item(uid); oForm.AutoManaged = false; oForm.SupportedModes = -1; // afm_All Flag = false; oForm.Freeze(true); if (GlobalSettings.RunningUnderSQLServer) { s = @"select count(*) Cont from [@FM_NOTES]"; } else { s = @"select count(*) ""Cont"" from ""@FM_NOTES"" "; } oRecordSet.DoQuery(s); if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0) { oForm.Mode = BoFormMode.fm_UPDATE_MODE; } else { oForm.Mode = BoFormMode.fm_ADD_MODE; } oGrid = (Grid)(oForm.Items.Item("3").Specific); oDBDSHeader = oForm.DataSources.DBDataSources.Add("@FM_NOTES"); oDataTable = oForm.DataSources.DataTables.Add("Notes"); if (GlobalSettings.RunningUnderSQLServer) { s = @"select Code, Name, U_TypeCode from [@FM_NOTES] UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50))"; } else { s = @"select ""Code"", ""Name"", ""U_TypeCode"" from ""@FM_NOTES"" UNION ALL select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)) FROM DUMMY "; } oDataTable.ExecuteQuery(s); oGrid.DataTable = oDataTable; oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Code")); var oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Codigo"; oGrid.Columns.Item("Name").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("Name")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Descripción"; oGrid.Columns.Item("U_TypeCode").Type = BoGridColumnType.gct_EditText; oColumn = (GridColumn)(oGrid.Columns.Item("U_TypeCode")); oEditCol = (EditTextColumn)(oColumn); oEditCol.Editable = true; oEditCol.TitleObject.Caption = "Codigo SUNAT"; oGrid.AutoResizeColumns(); } catch (Exception e) { OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace); FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", ""); } oForm.Freeze(false); return(Result); }//fin InitForm
private void CargarGrid() { String Periodo = ""; String PeriodoD = ""; String PeriodoH = ""; try { if (oForm.Title == "Libro Diario y Mayor") { Periodo = ((System.String)((ComboBox)oForm.Items.Item("Periodo").Specific).Selected.Value).Trim(); if (GlobalSettings.RunningUnderSQLServer) { s = @"EXEC VID_SP_FE_LibroDiario '{0}'"; } else { s = @"CALL VID_SP_FE_LibroDiario ('{0}')"; } s = String.Format(s, Periodo); odt.ExecuteQuery(s); if (GlobalSettings.RunningUnderSQLServer) { s = @"EXEC VID_SP_FE_LibroMayor '{0}'"; } else { s = @"CALL VID_SP_FE_LibroMayor ('{0}')"; } s = String.Format(s, Periodo); odt2.ExecuteQuery(s); } else if (oForm.Title == "Balance") { PeriodoD = ((System.String)((ComboBox)oForm.Items.Item("PeriodoD").Specific).Selected.Value).Trim(); PeriodoH = ((System.String)((ComboBox)oForm.Items.Item("PeriodoH").Specific).Selected.Value).Trim(); if (GlobalSettings.RunningUnderSQLServer) { s = @"EXEC VID_SP_FE_Balance '{0}', '{1}'"; } else { s = @"CALL VID_SP_FE_Balance ('{0}', '{1}')"; } s = String.Format(s, PeriodoD, PeriodoH); odt.ExecuteQuery(s); if (GlobalSettings.RunningUnderSQLServer) { s = @"EXEC VID_SP_FE_Diccionario '{0}' "; } else { s = @"CALL VID_SP_FE_Diccionario ('{0}')"; } s = String.Format(s, PeriodoD); odt2.ExecuteQuery(s); } else if (oForm.Title == "Diccionario") { Periodo = ((System.String)((ComboBox)oForm.Items.Item("Periodo").Specific).Selected.Value).Trim(); if (GlobalSettings.RunningUnderSQLServer) { s = @"EXEC VID_SP_FE_Diccionario '{0}' "; } else { s = @"CALL VID_SP_FE_Diccionario ('{0}')"; } s = String.Format(s, Periodo); odt.ExecuteQuery(s); } if (!odt.IsEmpty) { oForm.Items.Item("btnExp").Enabled = true; } else { oForm.Items.Item("btnExp").Enabled = false; } for (Int32 z = 0; z < grid.Columns.Count; z++) { grid.Columns.Item(z).Editable = false; } grid.AutoResizeColumns(); if ((oForm.Title == "Libro Diario y Mayor") || (oForm.Title == "Balance")) { if (!odt2.IsEmpty) { for (Int32 z = 0; z < grid2.Columns.Count; z++) { grid2.Columns.Item(z).Editable = false; } grid2.AutoResizeColumns(); } } } catch (Exception x) { FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error); OutLog("CargarGrid: " + x.Message + " ** Trace: " + x.StackTrace); } }