• R/O
  • SSH
  • HTTPS

managerweb: Commit


Commit MetaInfo

Revisión21 (tree)
Tiempo2019-10-22 12:27:27
Autorrogerio

Log Message

Liberação do Informações da DRE e Centro de Custos - Módulo Principal

Cambiar Resumen

Diferencia incremental

--- trunk/Bin/Client/uDMPrincipal.pas (revision 20)
+++ trunk/Bin/Client/uDMPrincipal.pas (revision 21)
@@ -159,6 +159,34 @@
159159 CDSControlBancoDuplNUM_DIAS_PROTESTO: TStringField;
160160 CDSEmpresa_PrincipalIMP_PADRAO: TStringField;
161161 CDSEmpresa_PrincipalN_IMP_PADRAO: TIntegerField;
162+ CDSTotalReceitaMes_Principal: TClientDataSet;
163+ CDSTotalDespesaMes_Principal: TClientDataSet;
164+ CDSTotalDespesaGrupo_Principal: TClientDataSet;
165+ CDSTotalDespesaCentro_Principal: TClientDataSet;
166+ CDSEmpresa_PrincipalSQLDSTotalReceitaMes: TDataSetField;
167+ CDSEmpresa_PrincipalSQLDSTotalDespesaCentro: TDataSetField;
168+ CDSEmpresa_PrincipalSQLDSTotalDespesaGrupo: TDataSetField;
169+ CDSEmpresa_PrincipalSQLDSTotalDespesaMes: TDataSetField;
170+ CDSTotalReceitaMes_PrincipalID_EMPRESA: TStringField;
171+ CDSTotalReceitaMes_PrincipalMES: TSmallintField;
172+ CDSTotalReceitaMes_PrincipalANO: TSmallintField;
173+ CDSTotalReceitaMes_PrincipalTOTAL: TFloatField;
174+ CDSTotalDespesaMes_PrincipalID_EMPRESA: TStringField;
175+ CDSTotalDespesaMes_PrincipalMES: TSmallintField;
176+ CDSTotalDespesaMes_PrincipalANO: TSmallintField;
177+ CDSTotalDespesaMes_PrincipalTOTAL: TFMTBCDField;
178+ CDSTotalDespesaGrupo_PrincipalID_EMPRESA: TStringField;
179+ CDSTotalDespesaGrupo_PrincipalMES: TSmallintField;
180+ CDSTotalDespesaGrupo_PrincipalANO: TSmallintField;
181+ CDSTotalDespesaGrupo_PrincipalID_GRUPO: TStringField;
182+ CDSTotalDespesaGrupo_PrincipalDESCRICAO: TStringField;
183+ CDSTotalDespesaGrupo_PrincipalTOTAL_DESPESA: TFMTBCDField;
184+ CDSTotalDespesaCentro_PrincipalID_EMPRESA: TStringField;
185+ CDSTotalDespesaCentro_PrincipalMES: TSmallintField;
186+ CDSTotalDespesaCentro_PrincipalANO: TSmallintField;
187+ CDSTotalDespesaCentro_PrincipalID_PLANILHA: TStringField;
188+ CDSTotalDespesaCentro_PrincipalDESC_SETOR: TStringField;
189+ CDSTotalDespesaCentro_PrincipalTOTAL_CENTRO: TFMTBCDField;
162190 procedure CDSConfiguracao_PrincipalAfterDelete(DataSet: TDataSet);
163191 procedure CDSConfiguracao_PrincipalAfterPost(DataSet: TDataSet);
164192 procedure CDSParametros_PrincipalAfterDelete(DataSet: TDataSet);
--- trunk/Bin/Client/uPrincipal.pas (revision 20)
+++ trunk/Bin/Client/uPrincipal.pas (revision 21)
@@ -17,7 +17,10 @@
1717 EAppProt,uDMPrincipal, VclTee.TeeGDIPlus, VCLTee.TeeData, VCLTee.TeEngine,
1818 VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart, VCLTee.TeeDBCrossTab, RzTabs,
1919 FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Stan.Intf, FireDAC.Comp.UI,
20- VCLTee.Series, VCLTee.BubbleCh, VCLTee.TeeFunci;
20+ VCLTee.Series, VCLTee.BubbleCh, VCLTee.TeeFunci, cxStyles, cxCustomData,
21+ cxFilter, cxData, cxDataStorage, cxNavigator, cxDBData, cxGridLevel,
22+ cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
23+ cxGrid, cxGridChartView, cxGridDBChartView;
2124
2225 type
2326 TfrmPrincipal = class(TdxRibbonForm)
@@ -534,6 +537,177 @@
534537 dxBarButton213: TdxBarButton;
535538 cxBarEditItem12: TcxBarEditItem;
536539 cxBarEditItem17: TcxBarEditItem;
540+ DSTotalReceitaMes_Principal: TDataSource;
541+ DSTotalDespesaMes_Principal: TDataSource;
542+ DSTotalDespesaGrupo_Principal: TDataSource;
543+ DSTotalDespesaCentro_Principal: TDataSource;
544+ cxStyleRepository1: TcxStyleRepository;
545+ cxStyle1: TcxStyle;
546+ cxStyle2: TcxStyle;
547+ cxStyle3: TcxStyle;
548+ cxStyle4: TcxStyle;
549+ cxStyle5: TcxStyle;
550+ cxStyle6: TcxStyle;
551+ cxStyle7: TcxStyle;
552+ cxStyle8: TcxStyle;
553+ cxStyle9: TcxStyle;
554+ cxStyle10: TcxStyle;
555+ cxStyle11: TcxStyle;
556+ cxStyle12: TcxStyle;
557+ cxStyle13: TcxStyle;
558+ cxStyle14: TcxStyle;
559+ cxStyle15: TcxStyle;
560+ cxStyle16: TcxStyle;
561+ cxStyle17: TcxStyle;
562+ cxStyle18: TcxStyle;
563+ cxStyle19: TcxStyle;
564+ cxStyle20: TcxStyle;
565+ cxStyle21: TcxStyle;
566+ cxStyle22: TcxStyle;
567+ cxStyle23: TcxStyle;
568+ cxStyle24: TcxStyle;
569+ cxStyle25: TcxStyle;
570+ cxStyle26: TcxStyle;
571+ cxStyle27: TcxStyle;
572+ cxStyle28: TcxStyle;
573+ cxStyle29: TcxStyle;
574+ cxStyle30: TcxStyle;
575+ cxStyle31: TcxStyle;
576+ cxStyle32: TcxStyle;
577+ cxStyle33: TcxStyle;
578+ cxStyle34: TcxStyle;
579+ cxStyle35: TcxStyle;
580+ cxStyle36: TcxStyle;
581+ cxStyle37: TcxStyle;
582+ cxStyle38: TcxStyle;
583+ cxStyle39: TcxStyle;
584+ cxStyle40: TcxStyle;
585+ cxStyle41: TcxStyle;
586+ cxStyle42: TcxStyle;
587+ cxStyle43: TcxStyle;
588+ cxStyle44: TcxStyle;
589+ cxStyle45: TcxStyle;
590+ cxStyle46: TcxStyle;
591+ cxStyle47: TcxStyle;
592+ cxStyle48: TcxStyle;
593+ cxStyle49: TcxStyle;
594+ cxStyle50: TcxStyle;
595+ cxStyle51: TcxStyle;
596+ cxStyle52: TcxStyle;
597+ cxStyle53: TcxStyle;
598+ cxStyle54: TcxStyle;
599+ cxStyle55: TcxStyle;
600+ cxStyle56: TcxStyle;
601+ cxStyle57: TcxStyle;
602+ cxStyle58: TcxStyle;
603+ cxStyle59: TcxStyle;
604+ cxStyle60: TcxStyle;
605+ cxStyle61: TcxStyle;
606+ cxStyle62: TcxStyle;
607+ cxStyle63: TcxStyle;
608+ cxStyle64: TcxStyle;
609+ cxStyle65: TcxStyle;
610+ cxStyle66: TcxStyle;
611+ cxStyle67: TcxStyle;
612+ cxStyle68: TcxStyle;
613+ cxStyle69: TcxStyle;
614+ cxStyle70: TcxStyle;
615+ cxStyle71: TcxStyle;
616+ cxStyle72: TcxStyle;
617+ cxStyle73: TcxStyle;
618+ cxStyle74: TcxStyle;
619+ cxStyle75: TcxStyle;
620+ cxStyle76: TcxStyle;
621+ cxStyle77: TcxStyle;
622+ cxStyle78: TcxStyle;
623+ cxStyle79: TcxStyle;
624+ cxStyle80: TcxStyle;
625+ cxStyle81: TcxStyle;
626+ cxStyle82: TcxStyle;
627+ cxStyle83: TcxStyle;
628+ cxStyle84: TcxStyle;
629+ cxStyle85: TcxStyle;
630+ cxStyle86: TcxStyle;
631+ cxStyle87: TcxStyle;
632+ cxStyle88: TcxStyle;
633+ cxStyle89: TcxStyle;
634+ cxStyle90: TcxStyle;
635+ cxStyle91: TcxStyle;
636+ cxStyle92: TcxStyle;
637+ cxStyle93: TcxStyle;
638+ cxStyle94: TcxStyle;
639+ cxStyle95: TcxStyle;
640+ cxStyle96: TcxStyle;
641+ cxStyle97: TcxStyle;
642+ cxStyle98: TcxStyle;
643+ cxStyle99: TcxStyle;
644+ cxStyle100: TcxStyle;
645+ cxStyle101: TcxStyle;
646+ cxStyle102: TcxStyle;
647+ cxStyle103: TcxStyle;
648+ cxStyle104: TcxStyle;
649+ cxStyle105: TcxStyle;
650+ cxStyle106: TcxStyle;
651+ cxGridTableViewStyleSheet1: TcxGridTableViewStyleSheet;
652+ GridTableViewStyleSheetHighContrast1: TcxGridTableViewStyleSheet;
653+ GridTableViewStyleSheetHighContrast2: TcxGridTableViewStyleSheet;
654+ GridTableViewStyleSheetHighContrastBlack: TcxGridTableViewStyleSheet;
655+ GridTableViewStyleSheetHighContrastWhite: TcxGridTableViewStyleSheet;
656+ LookAndFeelController: TcxLookAndFeelController;
657+ RzPanel1: TRzPanel;
658+ cxGrid1: TcxGrid;
659+ cxGridDBTableView1: TcxGridDBTableView;
660+ cxGridDBTableView1ID_EMPRESA: TcxGridDBColumn;
661+ cxGridDBTableView1MES: TcxGridDBColumn;
662+ cxGridDBTableView1ANO: TcxGridDBColumn;
663+ cxGridDBTableView1TOTAL: TcxGridDBColumn;
664+ cxGrid1DBTableView1: TcxGridDBTableView;
665+ cxGrid1DBTableView1ID_EMPRESA: TcxGridDBColumn;
666+ cxGrid1DBTableView1MES: TcxGridDBColumn;
667+ cxGrid1DBTableView1ANO: TcxGridDBColumn;
668+ cxGrid1DBTableView1TOTAL: TcxGridDBColumn;
669+ cxGrid1DBChartView2: TcxGridDBChartView;
670+ cxGrid1DBTableView2: TcxGridDBTableView;
671+ cxGrid1DBTableView2ID_EMPRESA: TcxGridDBColumn;
672+ cxGrid1DBTableView2MES: TcxGridDBColumn;
673+ cxGrid1DBTableView2ANO: TcxGridDBColumn;
674+ cxGrid1DBTableView2ID_GRUPO: TcxGridDBColumn;
675+ cxGrid1DBTableView2DESCRICAO: TcxGridDBColumn;
676+ cxGrid1DBTableView2TOTAL_DESPESA: TcxGridDBColumn;
677+ cxGrid1DBChartView3: TcxGridDBChartView;
678+ cxGrid1DBTableView3: TcxGridDBTableView;
679+ cxGrid1DBTableView3ID_EMPRESA: TcxGridDBColumn;
680+ cxGrid1DBTableView3MES: TcxGridDBColumn;
681+ cxGrid1DBTableView3ANO: TcxGridDBColumn;
682+ cxGrid1DBTableView3ID_PLANILHA: TcxGridDBColumn;
683+ cxGrid1DBTableView3DESC_SETOR: TcxGridDBColumn;
684+ cxGrid1DBTableView3TOTAL_CENTRO: TcxGridDBColumn;
685+ cxGrid1DBChartView4: TcxGridDBChartView;
686+ cxGridLevel1: TcxGridLevel;
687+ cxGrid1Level1: TcxGridLevel;
688+ cxGrid1Level2: TcxGridLevel;
689+ cxGrid1Level3: TcxGridLevel;
690+ cxGrid1Level4: TcxGridLevel;
691+ cxGrid1Level5: TcxGridLevel;
692+ cxGrid1Level6: TcxGridLevel;
693+ cxGrid1Level7: TcxGridLevel;
694+ cxGrid1DBChartView1: TcxGridDBChartView;
695+ cxGrid1DBChartView1Series1: TcxGridDBChartSeries;
696+ cxGrid1DBChartView1DataGroup2: TcxGridDBChartDataGroup;
697+ cxGrid1DBChartView1DataGroup1: TcxGridDBChartDataGroup;
698+ cxGrid1DBChartView2Series1: TcxGridDBChartSeries;
699+ cxGrid1DBChartView2DataGroup1: TcxGridDBChartDataGroup;
700+ cxGrid1DBChartView2DataGroup2: TcxGridDBChartDataGroup;
701+ cxGrid1DBChartView3Series1: TcxGridDBChartSeries;
702+ cxGrid1DBChartView3DataGroup2: TcxGridDBChartDataGroup;
703+ cxGrid1DBChartView3DataGroup3: TcxGridDBChartDataGroup;
704+ cxGrid1DBChartView3DataGroup1: TcxGridDBChartDataGroup;
705+ cxGrid1DBChartView4Series1: TcxGridDBChartSeries;
706+ cxGrid1DBChartView4DataGroup1: TcxGridDBChartDataGroup;
707+ cxGrid1DBChartView4DataGroup2: TcxGridDBChartDataGroup;
708+ cxGrid1DBChartView4DataGroup3: TcxGridDBChartDataGroup;
709+ cxCheckBox13: TcxCheckBox;
710+ procedure ConfiguraGrid;
537711 procedure LiberaAtividades;
538712 procedure LoadNotes( const FileName: string );
539713 function UltimoDiaMes(xData: TDateTime): Integer;
@@ -594,6 +768,12 @@
594768 procedure actFrenteBarFinanceiroExecute(Sender: TObject);
595769 procedure actContasPagarExecute(Sender: TObject);
596770 procedure actCReceberExecute(Sender: TObject);
771+ procedure cxGridDBTableView1CellClick(Sender: TcxCustomGridTableView;
772+ ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
773+ AShift: TShiftState; var AHandled: Boolean);
774+ procedure FormClick(Sender: TObject);
775+ procedure AdvToolPanelTab1MouseMove(Sender: TObject; Shift: TShiftState; X,
776+ Y: Integer);
597777 private
598778 FPath : String;
599779 FDMPrincipal: TDMPrincipal;
@@ -923,6 +1103,158 @@
9231103
9241104 end;
9251105
1106+procedure TfrmPrincipal.AdvToolPanelTab1MouseMove(Sender: TObject;
1107+ Shift: TShiftState; X, Y: Integer);
1108+begin
1109+ cxcheckbox13.Checked := false;
1110+ ConfiguraGrid;
1111+
1112+end;
1113+
1114+procedure TfrmPrincipal.ConfiguraGrid;
1115+begin
1116+ Rzpanel1.Visible := cxcheckbox13.Checked;
1117+
1118+ if frmPrincipal.cxComboBox1.Text = 'Default' then
1119+ begin
1120+ cxGridLevel1.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1121+ cxGrid1Level1.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1122+ cxGrid1Level2.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1123+ cxGrid1Level3.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1124+ cxGrid1Level4.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1125+ cxGrid1Level5.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1126+ cxGrid1Level6.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1127+ cxGrid1Level7.Styles.StyleSheet := cxGridTableViewStyleSheet1;
1128+ end
1129+ else if frmPrincipal.cxComboBox1.Text = 'Soft' then
1130+ begin
1131+ cxGridLevel1.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1132+ cxGrid1Level1.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1133+ cxGrid1Level2.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1134+ cxGrid1Level3.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1135+ cxGrid1Level4.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1136+ cxGrid1Level5.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1137+ cxGrid1Level6.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1138+ cxGrid1Level7.Styles.StyleSheet := GridTableViewStyleSheetHighContrast1;
1139+ end
1140+ else if frmPrincipal.cxComboBox1.Text = 'Hard' then
1141+ begin
1142+ cxGridLevel1.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1143+ cxGrid1Level1.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1144+ cxGrid1Level2.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1145+ cxGrid1Level3.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1146+ cxGrid1Level4.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1147+ cxGrid1Level5.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1148+ cxGrid1Level6.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1149+ cxGrid1Level7.Styles.StyleSheet := GridTableViewStyleSheetHighContrast2;
1150+ end
1151+ else if frmPrincipal.cxComboBox1.Text = 'Black' then
1152+ begin
1153+ cxGridLevel1.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1154+ cxGrid1Level1.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1155+ cxGrid1Level2.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1156+ cxGrid1Level3.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1157+ cxGrid1Level4.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1158+ cxGrid1Level5.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1159+ cxGrid1Level6.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1160+ cxGrid1Level7.Styles.StyleSheet := GridTableViewStyleSheetHighContrastBlack;
1161+ end
1162+ else if frmPrincipal.cxComboBox1.Text = 'White' then
1163+ begin
1164+ cxGridLevel1.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1165+ cxGrid1Level1.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1166+ cxGrid1Level2.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1167+ cxGrid1Level3.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1168+ cxGrid1Level4.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1169+ cxGrid1Level5.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1170+ cxGrid1Level6.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1171+ cxGrid1Level7.Styles.StyleSheet := GridTableViewStyleSheetHighContrastWhite;
1172+ end;
1173+
1174+ LookAndFeelController.SkinName := frmPrincipal.cxComboBox2.text;
1175+
1176+ cxGridDBTableView1.OptionsView.groupbybox := frmPrincipal.cxCheckBox1.Checked;
1177+ cxGridDBTableView1.OptionsView.footer := frmPrincipal.cxCheckBox3.Checked;
1178+ cxGridDBTableView1.navigator.visible := frmPrincipal.cxCheckBox6.Checked;
1179+ cxGridDBTableView1.OptionsView.header := frmPrincipal.cxCheckBox4.Checked;
1180+
1181+ cxGrid1DBTableView1.OptionsView.groupbybox := frmPrincipal.cxCheckBox1.Checked;
1182+ cxGrid1DBTableView1.OptionsView.footer := frmPrincipal.cxCheckBox3.Checked;
1183+ cxGrid1DBTableView1.navigator.visible := frmPrincipal.cxCheckBox6.Checked;
1184+ cxGrid1DBTableView1.OptionsView.header := frmPrincipal.cxCheckBox4.Checked;
1185+
1186+ cxGrid1DBTableView2.OptionsView.groupbybox := frmPrincipal.cxCheckBox1.Checked;
1187+ cxGrid1DBTableView2.OptionsView.footer := frmPrincipal.cxCheckBox3.Checked;
1188+ cxGrid1DBTableView2.navigator.visible := frmPrincipal.cxCheckBox6.Checked;
1189+ cxGrid1DBTableView2.OptionsView.header := frmPrincipal.cxCheckBox4.Checked;
1190+
1191+ cxGrid1DBTableView3.OptionsView.groupbybox := frmPrincipal.cxCheckBox1.Checked;
1192+ cxGrid1DBTableView3.OptionsView.footer := frmPrincipal.cxCheckBox3.Checked;
1193+ cxGrid1DBTableView3.navigator.visible := frmPrincipal.cxCheckBox6.Checked;
1194+ cxGrid1DBTableView3.OptionsView.header := frmPrincipal.cxCheckBox4.Checked;
1195+
1196+ if frmPrincipal.cxCheckBox5.checked = true then
1197+ begin
1198+ cxGridDBTableView1.OptionsView.IndicatorWidth := 20;
1199+ cxGrid1DBTableView1.OptionsView.IndicatorWidth := 20;
1200+ cxGrid1DBTableView2.OptionsView.IndicatorWidth := 20;
1201+ cxGrid1DBTableView3.OptionsView.IndicatorWidth := 20;
1202+ end
1203+ else
1204+ begin
1205+ cxGridDBTableView1.OptionsView.IndicatorWidth := 0;
1206+ cxGrid1DBTableView1.OptionsView.IndicatorWidth := 0;
1207+ cxGrid1DBTableView2.OptionsView.IndicatorWidth := 0;
1208+ cxGrid1DBTableView3.OptionsView.IndicatorWidth := 0;
1209+ end;
1210+
1211+ if frmPrincipal.cxCheckBox2.checked = true then
1212+ begin
1213+ cxGridDBTableView1.OptionsView.gridlines := glboth;
1214+ cxGrid1DBTableView1.OptionsView.gridlines := glboth;
1215+ cxGrid1DBTableView2.OptionsView.gridlines := glboth;
1216+ cxGrid1DBTableView2.OptionsView.gridlines := glboth;
1217+ end
1218+ else
1219+ begin
1220+ cxGridDBTableView1.OptionsView.gridlines := glNone;
1221+ cxGrid1DBTableView1.OptionsView.gridlines := glNone;
1222+ cxGrid1DBTableView2.OptionsView.gridlines := glNone;
1223+ cxGrid1DBTableView2.OptionsView.gridlines := glNone;
1224+ end;
1225+
1226+ if frmPrincipal.Cxcheckbox9.checked = true then
1227+ begin
1228+ cxGridDBTableView1.filterbox.visible := fvAlways;
1229+ cxGrid1DBTableView1.filterbox.visible := fvAlways;
1230+ cxGrid1DBTableView2.filterbox.visible := fvAlways;
1231+ cxGrid1DBTableView3.filterbox.visible := fvAlways;
1232+ end
1233+ else
1234+ begin
1235+ cxGridDBTableView1.filterbox.visible := fvNever;
1236+ cxGrid1DBTableView1.filterbox.visible := fvNever;
1237+ cxGrid1DBTableView2.filterbox.visible := fvNever;
1238+ cxGrid1DBTableView3.filterbox.visible := fvNever;
1239+ end;
1240+
1241+ if frmPrincipal.Cxcheckbox7.checked = true then
1242+ begin
1243+ cxGridDBTableView1.OptionsView.ScrollBars := ssBoth;
1244+ cxGrid1DBTableView1.OptionsView.ScrollBars := ssBoth;
1245+ cxGrid1DBTableView2.OptionsView.ScrollBars := ssBoth;
1246+ cxGrid1DBTableView3.OptionsView.ScrollBars := ssBoth;
1247+ end
1248+ else
1249+ begin
1250+ cxGridDBTableView1.OptionsView.ScrollBars := ssNone;
1251+ cxGrid1DBTableView1.OptionsView.ScrollBars := ssNone;
1252+ cxGrid1DBTableView2.OptionsView.ScrollBars := ssNone;
1253+ cxGrid1DBTableView3.OptionsView.ScrollBars := ssNone;
1254+ end;
1255+
1256+end;
1257+
9261258 constructor TfrmPrincipal.Create(AOwner: TComponent);
9271259 begin
9281260 inherited;
@@ -930,6 +1262,13 @@
9301262
9311263 end;
9321264
1265+procedure TfrmPrincipal.cxGridDBTableView1CellClick(
1266+ Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
1267+ AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
1268+begin
1269+ ConfiguraGrid;
1270+end;
1271+
9331272 procedure TfrmPrincipal.actLocacaoExecute(Sender: TObject);
9341273 begin
9351274 LockWindowUpdate(Handle);
@@ -1230,8 +1569,14 @@
12301569 begin
12311570 LoadNotes( 'Principal' );
12321571 // RzStatusPane7.caption := '© Copyright 2013 Sistema Gestor Manager WEB Design Patterns';
1572+
12331573 end;
12341574
1575+procedure TfrmPrincipal.FormClick(Sender: TObject);
1576+begin
1577+ ConfiguraGrid;
1578+end;
1579+
12351580 procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
12361581 begin
12371582 DSEmpresa_Principal.dataset.close;
--- trunk/Bin/Server/SoapServer.dpr (revision 20)
+++ trunk/Bin/Server/SoapServer.dpr (revision 21)
@@ -38,7 +38,8 @@
3838 uDMAbreFechaConta in 'uDMAbreFechaConta.pas' {DMAbreFechaConta: TDataModule},
3939 uDMContasaReceber in 'uDMContasaReceber.pas' {DMContasaReceber: TDataModule},
4040 uDMContasaPagar in 'uDMContasaPagar.pas' {DMContasaPagar: TDataModule},
41- uDMPessoaMobile in 'uDMPessoaMobile.pas' {DMPessoaMobile: TDataModule};
41+ uDMPessoaMobile in 'uDMPessoaMobile.pas' {DMPessoaMobile: TDataModule},
42+ uDMAbreFechaContaMobile in 'uDMAbreFechaContaMobile.pas' {DMAbreFechaContaMobile: TDataModule};
4243
4344 {$R *.res}
4445
--- trunk/Bin/Server/SoapServer.dproj (revision 20)
+++ trunk/Bin/Server/SoapServer.dproj (revision 21)
@@ -245,6 +245,11 @@
245245 <FormType>dfm</FormType>
246246 <DesignClass>TDataModule</DesignClass>
247247 </DCCReference>
248+ <DCCReference Include="uDMAbreFechaContaMobile.pas">
249+ <Form>DMAbreFechaContaMobile</Form>
250+ <FormType>dfm</FormType>
251+ <DesignClass>TDataModule</DesignClass>
252+ </DCCReference>
248253 <BuildConfiguration Include="Release">
249254 <Key>Cfg_2</Key>
250255 <CfgParent>Base</CfgParent>
--- trunk/Bin/Server/uDMPrincipal.pas (revision 20)
+++ trunk/Bin/Server/uDMPrincipal.pas (revision 21)
@@ -165,6 +165,24 @@
165165 FloatField2: TFloatField;
166166 SQLDSEmpresaIMP_PADRAO: TStringField;
167167 SQLDSEmpresaN_IMP_PADRAO: TIntegerField;
168+ SQLDSTotalDespesaMes: TSQLDataSet;
169+ SQLDSTotalDespesaGrupo: TSQLDataSet;
170+ SQLDSTotalDespesaCentro: TSQLDataSet;
171+ SQLDSTotalReceitaMes: TSQLDataSet;
172+ SQLDSTotalDespesaMesID_EMPRESA: TStringField;
173+ SQLDSTotalDespesaMesMES: TSmallintField;
174+ SQLDSTotalDespesaMesANO: TSmallintField;
175+ SQLDSTotalDespesaMesTOTAL: TFMTBCDField;
176+ SQLDSTotalDespesaCentroID_EMPRESA: TStringField;
177+ SQLDSTotalDespesaCentroMES: TSmallintField;
178+ SQLDSTotalDespesaCentroANO: TSmallintField;
179+ SQLDSTotalDespesaCentroID_PLANILHA: TStringField;
180+ SQLDSTotalDespesaCentroDESC_SETOR: TStringField;
181+ SQLDSTotalDespesaCentroTOTAL_CENTRO: TFMTBCDField;
182+ SQLDSTotalReceitaMesID_EMPRESA: TStringField;
183+ SQLDSTotalReceitaMesMES: TSmallintField;
184+ SQLDSTotalReceitaMesANO: TSmallintField;
185+ SQLDSTotalReceitaMesTOTAL: TFloatField;
168186 private
169187 { Private declarations }
170188 public
--- trunk/Bin/Server/uDMSoapServer.pas (revision 20)
+++ trunk/Bin/Server/uDMSoapServer.pas (revision 21)
@@ -8,7 +8,8 @@
88 uDMNatOper, uDMCfop, uDMFPagam, uDMNCM, uDMGruposDespesas,uDMAlocacao, uDMGrupos,
99 uDMSubGrupos, uDMPlaPadrao, uDMProdutosServicos, uDMEntradasNotasFiscais,
1010 uDMVendas, Data.FMTBcd, uDMContaCorrente, uDMBIContasaPagar, uDMBIContasaReceber,
11- uDMCentroCustos,uDMAbreFechaConta, uDMContasaReceber, uDMContasaPagar, uDMPessoaMobile;
11+ uDMCentroCustos,uDMAbreFechaConta, uDMContasaReceber, uDMContasaPagar, uDMPessoaMobile,
12+ uDMAbreFechaContaMobile;
1213
1314 { TODO : Acima, existe DBXInterBase, que é uma unit que somente existe no Delphi
1415 XE. Ao tentar compilar este projeto em qualquer outro Delphi, remove esta unit
@@ -229,9 +230,19 @@
229230 DSPPessoa_ContasaPagar: TDataSetProvider;
230231 DSPPlanilhaPadrao_ContasaPagar: TDataSetProvider;
231232 DSPPessoaColab_ContasaPagar: TDataSetProvider;
232- DSPPessoa_PessoaMobile: TDataSetProvider;
233233 DSPEnderecoPessoa_PessoaMobile: TDataSetProvider;
234234 DSPTelefonePessoa_PessoaMobile: TDataSetProvider;
235+ DSPPessoa_PessoaMobile: TDataSetProvider;
236+
237+ DSPVendas_ABreFechaContaMobile: TDataSetProvider;
238+ DSPMovProdutos_AbreFechaContaMobile: TDataSetProvider;
239+ DSPMovContas_AbreFechaContaMobile: TDataSetProvider;
240+ DSPTransportadora_AbreFechaContaMobile: TDataSetProvider;
241+ DSPTotalReceitaMes_Principal: TDataSetProvider;
242+ DSPTotalDespesaMes_Principal: TDataSetProvider;
243+ DSPTotalDespesaCentro_Principal: TDataSetProvider;
244+ DSPTotalDespesaGrupo_Principal: TDataSetProvider;
245+
235246 private
236247 FDMEmpresa: TDMEmpresa;
237248 FDMBase: TDMBase;
@@ -262,6 +273,7 @@
262273 FDMContasaReceber: TDMContasaReceber;
263274 FDMContasaPagar: TDMContasaPagar;
264275 FDMPessoaMobile: TDMPessoaMobile;
276+ FDMAbreFechaContaMobile: TDMAbreFechaContaMobile;
265277
266278 public
267279 constructor Create(aOwner: TComponent); override;
@@ -317,6 +329,7 @@
317329 FDMContasaReceber := TDMContasaReceber.Create(Self);
318330 FDMContasaPagar := TDMContasaPagar.Create(Self);
319331 FDMPessoaMobile := TDMPessoaMobile.Create(Self);
332+ FDMAbreFechaContaMobile := TDMAbreFechaContaMobile.Create(Self);
320333
321334 { Configuramos a propriedade SQLConnection em SQLDSTipoPessoa. Parece estranho
322335 precisar configurar isso aqui, mas como estamos no construtor da classe atual,
@@ -357,6 +370,11 @@
357370 FDMPrincipal.SQLDSTotalMes2.SQLConnection := SQLConnectionServer;
358371 FDMPrincipal.SQLDSTotalMes3.SQLConnection := SQLConnectionServer;
359372
373+ FDMPrincipal.SQLDSTotalReceitaMes.SQLConnection := SQLConnectionServer;
374+ FDMPrincipal.SQLDSTotalDespesaMes.SQLConnection := SQLConnectionServer;
375+ FDMPrincipal.SQLDSTotalDespesaGrupo.SQLConnection := SQLConnectionServer;
376+ FDMPrincipal.SQLDSTotalDespesaCentro.SQLConnection := SQLConnectionServer;
377+
360378 FDMPrincipal.DSEmpresa.DataSet := FDMPrincipal.SQLDSEmpresa;
361379
362380 //DMTpPessoa_SQLDataSet
@@ -638,6 +656,7 @@
638656 FDMAbreFechaConta.DSPessoaTransportadora.DataSet := FDMAbreFechaConta.SQLDSPessoaTransportadora;
639657 FDMAbreFechaConta.DSProdutos.DataSet := FDMAbreFechaConta.SQLDSPesquisaProdutosDescricao;
640658
659+ //DMContasaPagar_SQLDataSet
641660 FDMContasaPagar.SQLDSContasaPagar.SQLConnection := SQLConnectionServer;
642661 FDMContasaPagar.SQLDSContas.SQLConnection := SQLConnectionServer;
643662 FDMContasaPagar.SQLDSPessoa.SQLConnection := SQLConnectionServer;
@@ -650,6 +669,15 @@
650669 FDMPessoaMobile.SQLDSTelefonePessoa.SQLConnection := SQLConnectionServer;
651670 FDMPessoaMobile.SQLDSEnderecoPessoa.SQLConnection := SQLConnectionServer;
652671
672+ //DMAbreFechaContaMobile_SQLDataSet
673+
674+ FDMAbreFechaContaMobile.SQLDSVendas.SQLConnection := SQLConnectionServer;
675+ FDMAbreFechaContaMobile.SQLDSMovProdutos.SQLConnection := SQLConnectionServer;
676+ FDMAbreFechaContaMobile.SQLDSMovContas.SQLConnection := SQLConnectionServer;
677+ FDMAbreFechaContaMobile.SQLDSTransportadora.SQLConnection := SQLConnectionServer;
678+
679+ FDMAbreFechaContaMobile.DSVendas.DataSet := FDMAbreFechaContaMobile.SQLDSVendas;
680+
653681 { Abaixo, finalmente ligamos os pontos! Configuramos a propriedade DataSet
654682 DSPTipoPessoa, de forma que ela aponte para SQLDSTipoPessoa dentro da
655683 instância de TDMPessoa}
@@ -681,6 +709,10 @@
681709 DSPTotalMes1_Principal.DataSet := FDMPrincipal.SQLDSTotalMes1;
682710 DSPTotalMes2_Principal.DataSet := FDMPrincipal.SQLDSTotalMes2;
683711 DSPTotalMes3_Principal.DataSet := FDMPrincipal.SQLDSTotalMes3;
712+ DSPTotalReceitaMes_Principal.DataSet := FDMPrincipal.SQLDSTotalReceitaMes;
713+ DSPTotalDespesaMes_Principal.DataSet := FDMPrincipal.SQLDSTotalDespesaMes;
714+ DSPTotalDespesaGrupo_Principal.DataSet := FDMPrincipal.SQLDSTotalDespesaGrupo;
715+ DSPTotalDespesaCentro_Principal.DataSet := FDMPrincipal.SQLDSTotalDespesaCentro;
684716
685717 //DMTpPessoa_DataSetProvider
686718 DSPTipoPessoaDescricao_TpPessoa.DataSet := FDMTpPessoa.SQLDSTipoPessoaDescricao;
@@ -702,23 +734,23 @@
702734 DSPPaises_Pessoa.DataSet := FDMPessoa.SQLDSPaises;
703735 DSPViewPessoa_Pessoa.DataSet := FDMPessoa.SQLDSViewPessoa;
704736
705- //DMIbge__DataSetProvider
737+ //DMIbge_DataSetProvider
706738 DSPIncrementa_IBGE.DataSet := FDMIBGE.SQLDSIncrementa;
707739 DSPIBGE_ID_Ibge.DataSet := FDMIBGE.SQLDSIBGE_ID;
708740 DSPIBGE_CODIGO_Ibge.DataSet := FDMIBGE.SQLDSIBGE_CODIGO;
709741 DSPIBGE_CIDADE_Ibge.DataSet := FDMIBGE.SQLDSIBGE_CIDADE;
710742
711- //DMPaises__DataSetProvider
743+ //DMPaises_DataSetProvider
712744 DSPIncrementa_Paises.DataSet := FDMPaises.SQLDSIncrementa;
713745 DSPPaises_Codigo_Paises.DataSet := FDMPaises.SQLDSPaises_Codigo;
714746 DSPPaises_Nacionalid_Paises.DataSet := FDMPaises.SQLDSPaises_Nacionalid;
715747
716- //DMTipoContas__DataSetProvider
748+ //DMTipoContas_DataSetProvider
717749 DSPIncrementa_TipoConta.DataSet := FDMTipoContas.SQLDSIncrementa;
718750 DSPTipoContaID_TipoConta.DataSet := FDMTipoContas.SQLDSTipoContaID;
719751 DSPTipoContaDESCRICAO_TipoConta.DataSet := FDMTipoContas.SQLDSTipoContaDESCRICAO;
720752
721- //DMContas__DataSetProvider
753+ //DMContas_DataSetProvider
722754 DSPContasID_Contas.DataSet := FDMContas.SQLDSContas;
723755 DSPContasNOME_Contas.DataSet := FDMContas.SQLDSContasNOME;
724756 DSPContasNUMERO_Contas.DataSet := FDMContas.SQLDSContasNUMERO;
@@ -728,42 +760,42 @@
728760 DSPTpContas_Contas.DataSet := FDMContas.SQLDSTpContas;
729761 DSPContasCP_Contas.DataSet := FDMContas.SQLDSContasCP;
730762
731- //DMNatOper__DataSetProvider
763+ //DMNatOper_DataSetProvider
732764 DSPIncrementa_NatOper.DataSet := FDMNatOper.SQLDSIncrementa;
733765 DSPPesquisaNatOperDescricao_NatOper.DataSet := FDMNatOper.SQLDSPesquisaNatOperDescricao;
734766 DSPPesquisaNatOperID_NatOper.DataSet := FDMNatOper.SQLDSPesquisaNatOperIdentificador;
735767
736- //DMCFOP__DataSetProvider
768+ //DMCFOP_DataSetProvider
737769 DSpIncrementa_Cfop.DataSet := FDMCfop.SQLDSIncrementa;
738770 DSPPesquisaCFOPIdentificador_Cfop.DataSet := FDMCfop.SQLDSPesquisaCFOPIdentificador;
739771 DSPPesquisaCfopDescricao_Cfop.DataSet := FDMCfop.SQLDSPesquisaCfopDescricao;
740772
741- //DMFPagam__DataSetProvider
773+ //DMFPagam_DataSetProvider
742774 DSPIncrementa_FPagam.DataSet := FDMFPagam.SQLDSIncrementa;
743775 DSPPesquisaFPagamIdentificador_FPagam.DataSet := FDMFPagam.SQLDSPesquisaFPagamIdentificador;
744776 DSPPesquisaFPagamDescricao_FPagam.DataSet := FDMFPagam.SQLDSPesquisaFPagamDescricao;
745777
746- //DMNCM__DataSetProvider
778+ //DMNCM_DataSetProvider
747779 DSPIncrementa_NCM.DataSet := FDMNCM.SQLDSIncrementa;
748780 DSPPesquisaNCMIdentificador_NCM.DataSet := FDMNCM.SQLDSPesquisaNCMIdentificador;
749781 DSPPesquisaNCMDescricao.DataSet := FDMNCM.SQLDSPesquisaNCMDescricao;
750782
751- //DMGruposDespesa__DataSetProvider
783+ //DMGruposDespesa_DataSetProvider
752784 DSPIncrementa_GruposDespesas.DataSet := FDMGruposDespesas.SQLDSIncrementa;
753785 DSPPesquisaGruposDespesasIdentificador.DataSet := FDMGruposDespesas.SQLDSPesquisaGruposDespesasIdentificador;
754786 DSPPesquisaGruposDespesasDescricao.DataSet := FDMGruposDespesas.SQLDSPesquisaGruposDespesasDescricao;
755787
756- //DMAlocacao__DataSetProvider
788+ //DMAlocacao_DataSetProvider
757789 DSPIncrementa_Alocacao.DataSet := FDMAlocacao.SQLDSIncrementa;
758790 DSPPesquisaAlocacaoIdentificador_Alocacao.DataSet := FDMAlocacao.SQLDSPesquisaAlocacaoIdentificador;
759791 DSPPesquisaAlocacaoDescricao_Alocacao.DataSet := FDMAlocacao.SQLDSPesquisaAlocacaoDescricao;
760792
761- //DMGrupos__DataSetProvider
793+ //DMGrupos_DataSetProvider
762794 DSpIncrementa_Grupos.DataSet := FDMGrupos.SQLDSIncrementa;
763795 DSPPesquisaGruposIdentificador_Grupos.DataSet := FDMGrupos.SQLDSPesquisaGruposIdentificador;
764796 DSPPesquisaGruposDespesasDescricao.DataSet := FDMGrupos.SQLDSPesquisaAlocacaoDescricao;
765797
766- //DMSubGrupos__DataSetProvider
798+ //DMSubGrupos_DataSetProvider
767799 DSPIncrementa_SubGrupos.DataSet := FDMSubGrupos.SQLDSIncrementa;
768800 DSPPesquisaSubGruposIdentificador_SubGrupos.DataSet := FDMSubGrupos.SQLDSPesquisaSubGruposIdentificador;
769801 DSPPesquisaSubGruposDescricao_SubGrupos.DataSet := FDMSubGrupos.SQLDSPesquisaSubGruposDescricao;
@@ -770,12 +802,12 @@
770802 DSPGrupos_SubGrupos.DataSet := FDMSubGrupos.SQLDSGrupos;
771803 DSPGruposGrid_SubGrupos.DataSet := FDMSubGrupos.SQLDSGruposGrid;
772804
773- //DMPlaPadrao__DataSetProvider
805+ //DMPlaPadrao_DataSetProvider
774806 DSpIncrementa_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSIncrementa;
775807 DSPPesquisaPlaPadraoIdentificador_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSPesquisaPlaPadraoIdentificador;
776808 DSPPesquisaPlaPadraoDescricao_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSPesquisaPlaPadraoDescricao;
777809
778- //DMProdutosServicos__DataSetProvider
810+ //DMProdutosServicos_DataSetProvider
779811 DSPIncrementa_Produtos.DataSet := FDMProdutosServicos.SQLDSIncrementa;
780812 DSPProdutosIdentificador_Produtos.DataSet := FDMProdutosServicos.SQLDSPesquisaProdutosIdentificador;
781813 DSPProdutosDescricao_Produtos.DataSet := FDMProdutosServicos.SQLDSPesquisaProdutosDescricao;
@@ -801,7 +833,7 @@
801833 DSPSaldoAtualProdutosIndentificador_Produtos.DataSet := FDMProdutosServicos.SQLDSSaldoAtualProdutosIndentificador;
802834 DSPApagaMemoriaCalculo_ProdutosServicos.DataSet := FDMProdutosServicos.SQLDSApagaMemoriaCalculo;
803835
804- //DMEntradasNotasFiscais__DataSetProvider
836+ //DMEntradasNotasFiscais_DataSetProvider
805837 DSPPessoaIdentificador_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSPessoa;
806838 DSPIncrementa_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSIncrementa;
807839 DSPPessoa_Nome_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSPessoa_Nome;
@@ -819,7 +851,7 @@
819851 DSPContasGrid_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSContasGrid;
820852 DSPContasFinanceiro_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSContasFinanceiro;
821853
822- //DMVendas__DataSetProvider
854+ //DMVendas_DataSetProvider
823855 DSPIncrementa_Vendas.DataSet := FDMVendas.SQLDSIncrementa;
824856 DSPPessoaIdentificador_Vendas.DataSet := FDMVendas.SQLDSPessoa;
825857 DSPPessoa_Nome_Vendas.DataSet := FDMVendas.SQLDSPessoa_Nome;
@@ -842,7 +874,7 @@
842874 DSPPessoaTransportadora_Vendas.DataSet := FDMVendas.SQLDSPessoaTransportadora;
843875 DSPPessoaTransp.DataSet := FDMVendas.SQLDSPessoaTransp;
844876
845- //DMContaCorrente__DataSetProvider
877+ //DMContaCorrente_DataSetProvider
846878 DSPIncrementa_ContaCorrente.DataSet := FDMContaCorrente.SQLDSIncrementa;
847879 DSPContasIdentificador_ContaCorrente.DataSet := FDMContaCorrente.SQLDSContas;
848880 DSPContasNome_ContaCorrente.DataSet := FDMContaCorrente.SQLDSContasNome;
@@ -852,7 +884,7 @@
852884 DSPSaldoAtual_ContaCorrente.DataSet := FDMContaCorrente.SQLDSSaldoAtual;
853885 DSPTTCredDebConta_ContaCorrente.DataSet := FDMContaCorrente.SQLDSTTCredDebConta_ContaCorrente;
854886
855- //DMBIContasaPagar__DataSetProvider
887+ //DMBIContasaPagar_DataSetProvider
856888 DSPViewPagar_ContasaPagar.DataSet := FDMBIContasaPagar.SQLDSViewPagar;
857889 DSPView_BIPagar_ContasaPagar.DataSet := FDMBIContasaPagar.SQLDSView_BIPagar;
858890 DSPPessoa_BiContasaPagar.DataSet := FDMBIContasaPagar.SQLDSPessoa;
@@ -862,12 +894,12 @@
862894 DSPAlocacao_BiContasaPagar.DataSet := FDMBIContasaPagar.SQLDSAlocacao;
863895 DSPContas_BIContasaPagar.DataSet := FDMBIContasaPagar.SQLDSContas;
864896
865- //DMBIContasaReceber__DataSetProvider
897+ //DMBIContasaReceber_DataSetProvider
866898 DSPViewReceber_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewReceber;
867899 DSPViewBIReceber_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewBIReceber;
868900 DSPViewVendasCliente_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewVendasCliente;
869901
870- //DMCentroCustos__DataSetProvider
902+ //DMCentroCustos_DataSetProvider
871903 DSPPagar_CentroCusto.DataSet := FDMCentroCustos.SQLDSPagar;
872904 DSPCFOP_CentroCustos.DataSet := FDMCentroCustos.SQLDSCFOP;
873905 DSPGrupoDespesas_CentroCustos.DataSet := FDMCentroCustos.SQLDSGrupoDespesas;
@@ -874,7 +906,7 @@
874906 DSPPessoa_CentroCustos.DataSet := FDMCentroCustos.SQLDSPessoa;
875907 DSPPlanilhaPadrao_CentroCustos.DataSet := FDMCentroCustos.SQLDSPlanilhaPadrao;
876908
877- //DMAbreFechaConta__DataSetProvider
909+ //DMAbreFechaConta_DataSetProvider
878910 DSPIncrementa_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSIncrementa;
879911 DSPPessoaIdentificador_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSPessoa;
880912 DSPPessoa_Nome_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSPessoa_Nome;
@@ -906,7 +938,7 @@
906938 DSPImagemDescricao.DataSet := FDMAbreFechaConta.SQLDSImagemDescricao;
907939 DSPProdutosMovImprime.DataSet := FDMAbreFechaConta.SQLDSProdutosMovImprime;
908940
909- //DMContasaPagar__DataSetProvider
941+ //DMContasaPagar_DataSetProvider
910942 DSPContasaPagar_ContasaPagar.DataSet := FDMContasaPagar.SQLDSContasaPagar;
911943 DSPContas_ContasaPagar.DataSet := FDMContasaPagar.SQLDSContas;
912944 DSPGrupoDespesas_ContasaPagar.DataSet := FDMContasaPagar.SQLDSGrupoDespesas;
@@ -919,6 +951,12 @@
919951 DSPEnderecoPessoa_PessoaMobile.DataSet := FDMPessoaMobile.SQLDSEnderecoPessoa;
920952 DSPTelefonePessoa_PessoaMobile.DataSet := FDMPessoaMobile.SQLDSTelefonePessoa;
921953
954+ //DMAbreFechaContaMobile_DataSetProvider
955+ DSPVendas_ABreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSVendas;
956+ DSPMovProdutos_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSMovProdutos;
957+ DSPMovContas_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSMovContas;
958+ DSPTransportadora_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSTransportadora;
959+
922960 end;
923961
924962 { TODO : Abaixo implementamos o destrutor. Note que não seria necessário liberar
@@ -955,6 +993,7 @@
955993 FDMContasaReceber.Free;
956994 FDMContasaPagar.Free;
957995 FDMPessoaMobile.Free;
996+ FDMAbreFechaContaMobile.Free;
958997
959998 inherited;
960999 end;
Show on old repository browser