Liberação do Informações da DRE e Centro de Custos - Módulo Principal
@@ -159,6 +159,34 @@ | ||
159 | 159 | CDSControlBancoDuplNUM_DIAS_PROTESTO: TStringField; |
160 | 160 | CDSEmpresa_PrincipalIMP_PADRAO: TStringField; |
161 | 161 | 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; | |
162 | 190 | procedure CDSConfiguracao_PrincipalAfterDelete(DataSet: TDataSet); |
163 | 191 | procedure CDSConfiguracao_PrincipalAfterPost(DataSet: TDataSet); |
164 | 192 | procedure CDSParametros_PrincipalAfterDelete(DataSet: TDataSet); |
@@ -17,7 +17,10 @@ | ||
17 | 17 | EAppProt,uDMPrincipal, VclTee.TeeGDIPlus, VCLTee.TeeData, VCLTee.TeEngine, |
18 | 18 | VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart, VCLTee.TeeDBCrossTab, RzTabs, |
19 | 19 | 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; | |
21 | 24 | |
22 | 25 | type |
23 | 26 | TfrmPrincipal = class(TdxRibbonForm) |
@@ -534,6 +537,177 @@ | ||
534 | 537 | dxBarButton213: TdxBarButton; |
535 | 538 | cxBarEditItem12: TcxBarEditItem; |
536 | 539 | 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; | |
537 | 711 | procedure LiberaAtividades; |
538 | 712 | procedure LoadNotes( const FileName: string ); |
539 | 713 | function UltimoDiaMes(xData: TDateTime): Integer; |
@@ -594,6 +768,12 @@ | ||
594 | 768 | procedure actFrenteBarFinanceiroExecute(Sender: TObject); |
595 | 769 | procedure actContasPagarExecute(Sender: TObject); |
596 | 770 | 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); | |
597 | 777 | private |
598 | 778 | FPath : String; |
599 | 779 | FDMPrincipal: TDMPrincipal; |
@@ -923,6 +1103,158 @@ | ||
923 | 1103 | |
924 | 1104 | end; |
925 | 1105 | |
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 | + | |
926 | 1258 | constructor TfrmPrincipal.Create(AOwner: TComponent); |
927 | 1259 | begin |
928 | 1260 | inherited; |
@@ -930,6 +1262,13 @@ | ||
930 | 1262 | |
931 | 1263 | end; |
932 | 1264 | |
1265 | +procedure TfrmPrincipal.cxGridDBTableView1CellClick( | |
1266 | + Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; | |
1267 | + AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); | |
1268 | +begin | |
1269 | + ConfiguraGrid; | |
1270 | +end; | |
1271 | + | |
933 | 1272 | procedure TfrmPrincipal.actLocacaoExecute(Sender: TObject); |
934 | 1273 | begin |
935 | 1274 | LockWindowUpdate(Handle); |
@@ -1230,8 +1569,14 @@ | ||
1230 | 1569 | begin |
1231 | 1570 | LoadNotes( 'Principal' ); |
1232 | 1571 | // RzStatusPane7.caption := '© Copyright 2013 Sistema Gestor Manager WEB Design Patterns'; |
1572 | + | |
1233 | 1573 | end; |
1234 | 1574 | |
1575 | +procedure TfrmPrincipal.FormClick(Sender: TObject); | |
1576 | +begin | |
1577 | + ConfiguraGrid; | |
1578 | +end; | |
1579 | + | |
1235 | 1580 | procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction); |
1236 | 1581 | begin |
1237 | 1582 | DSEmpresa_Principal.dataset.close; |
@@ -38,7 +38,8 @@ | ||
38 | 38 | uDMAbreFechaConta in 'uDMAbreFechaConta.pas' {DMAbreFechaConta: TDataModule}, |
39 | 39 | uDMContasaReceber in 'uDMContasaReceber.pas' {DMContasaReceber: TDataModule}, |
40 | 40 | 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}; | |
42 | 43 | |
43 | 44 | {$R *.res} |
44 | 45 |
@@ -245,6 +245,11 @@ | ||
245 | 245 | <FormType>dfm</FormType> |
246 | 246 | <DesignClass>TDataModule</DesignClass> |
247 | 247 | </DCCReference> |
248 | + <DCCReference Include="uDMAbreFechaContaMobile.pas"> | |
249 | + <Form>DMAbreFechaContaMobile</Form> | |
250 | + <FormType>dfm</FormType> | |
251 | + <DesignClass>TDataModule</DesignClass> | |
252 | + </DCCReference> | |
248 | 253 | <BuildConfiguration Include="Release"> |
249 | 254 | <Key>Cfg_2</Key> |
250 | 255 | <CfgParent>Base</CfgParent> |
@@ -165,6 +165,24 @@ | ||
165 | 165 | FloatField2: TFloatField; |
166 | 166 | SQLDSEmpresaIMP_PADRAO: TStringField; |
167 | 167 | 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; | |
168 | 186 | private |
169 | 187 | { Private declarations } |
170 | 188 | public |
@@ -8,7 +8,8 @@ | ||
8 | 8 | uDMNatOper, uDMCfop, uDMFPagam, uDMNCM, uDMGruposDespesas,uDMAlocacao, uDMGrupos, |
9 | 9 | uDMSubGrupos, uDMPlaPadrao, uDMProdutosServicos, uDMEntradasNotasFiscais, |
10 | 10 | uDMVendas, Data.FMTBcd, uDMContaCorrente, uDMBIContasaPagar, uDMBIContasaReceber, |
11 | - uDMCentroCustos,uDMAbreFechaConta, uDMContasaReceber, uDMContasaPagar, uDMPessoaMobile; | |
11 | + uDMCentroCustos,uDMAbreFechaConta, uDMContasaReceber, uDMContasaPagar, uDMPessoaMobile, | |
12 | + uDMAbreFechaContaMobile; | |
12 | 13 | |
13 | 14 | { TODO : Acima, existe DBXInterBase, que é uma unit que somente existe no Delphi |
14 | 15 | XE. Ao tentar compilar este projeto em qualquer outro Delphi, remove esta unit |
@@ -229,9 +230,19 @@ | ||
229 | 230 | DSPPessoa_ContasaPagar: TDataSetProvider; |
230 | 231 | DSPPlanilhaPadrao_ContasaPagar: TDataSetProvider; |
231 | 232 | DSPPessoaColab_ContasaPagar: TDataSetProvider; |
232 | - DSPPessoa_PessoaMobile: TDataSetProvider; | |
233 | 233 | DSPEnderecoPessoa_PessoaMobile: TDataSetProvider; |
234 | 234 | 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 | + | |
235 | 246 | private |
236 | 247 | FDMEmpresa: TDMEmpresa; |
237 | 248 | FDMBase: TDMBase; |
@@ -262,6 +273,7 @@ | ||
262 | 273 | FDMContasaReceber: TDMContasaReceber; |
263 | 274 | FDMContasaPagar: TDMContasaPagar; |
264 | 275 | FDMPessoaMobile: TDMPessoaMobile; |
276 | + FDMAbreFechaContaMobile: TDMAbreFechaContaMobile; | |
265 | 277 | |
266 | 278 | public |
267 | 279 | constructor Create(aOwner: TComponent); override; |
@@ -317,6 +329,7 @@ | ||
317 | 329 | FDMContasaReceber := TDMContasaReceber.Create(Self); |
318 | 330 | FDMContasaPagar := TDMContasaPagar.Create(Self); |
319 | 331 | FDMPessoaMobile := TDMPessoaMobile.Create(Self); |
332 | + FDMAbreFechaContaMobile := TDMAbreFechaContaMobile.Create(Self); | |
320 | 333 | |
321 | 334 | { Configuramos a propriedade SQLConnection em SQLDSTipoPessoa. Parece estranho |
322 | 335 | precisar configurar isso aqui, mas como estamos no construtor da classe atual, |
@@ -357,6 +370,11 @@ | ||
357 | 370 | FDMPrincipal.SQLDSTotalMes2.SQLConnection := SQLConnectionServer; |
358 | 371 | FDMPrincipal.SQLDSTotalMes3.SQLConnection := SQLConnectionServer; |
359 | 372 | |
373 | + FDMPrincipal.SQLDSTotalReceitaMes.SQLConnection := SQLConnectionServer; | |
374 | + FDMPrincipal.SQLDSTotalDespesaMes.SQLConnection := SQLConnectionServer; | |
375 | + FDMPrincipal.SQLDSTotalDespesaGrupo.SQLConnection := SQLConnectionServer; | |
376 | + FDMPrincipal.SQLDSTotalDespesaCentro.SQLConnection := SQLConnectionServer; | |
377 | + | |
360 | 378 | FDMPrincipal.DSEmpresa.DataSet := FDMPrincipal.SQLDSEmpresa; |
361 | 379 | |
362 | 380 | //DMTpPessoa_SQLDataSet |
@@ -638,6 +656,7 @@ | ||
638 | 656 | FDMAbreFechaConta.DSPessoaTransportadora.DataSet := FDMAbreFechaConta.SQLDSPessoaTransportadora; |
639 | 657 | FDMAbreFechaConta.DSProdutos.DataSet := FDMAbreFechaConta.SQLDSPesquisaProdutosDescricao; |
640 | 658 | |
659 | + //DMContasaPagar_SQLDataSet | |
641 | 660 | FDMContasaPagar.SQLDSContasaPagar.SQLConnection := SQLConnectionServer; |
642 | 661 | FDMContasaPagar.SQLDSContas.SQLConnection := SQLConnectionServer; |
643 | 662 | FDMContasaPagar.SQLDSPessoa.SQLConnection := SQLConnectionServer; |
@@ -650,6 +669,15 @@ | ||
650 | 669 | FDMPessoaMobile.SQLDSTelefonePessoa.SQLConnection := SQLConnectionServer; |
651 | 670 | FDMPessoaMobile.SQLDSEnderecoPessoa.SQLConnection := SQLConnectionServer; |
652 | 671 | |
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 | + | |
653 | 681 | { Abaixo, finalmente ligamos os pontos! Configuramos a propriedade DataSet |
654 | 682 | DSPTipoPessoa, de forma que ela aponte para SQLDSTipoPessoa dentro da |
655 | 683 | instância de TDMPessoa} |
@@ -681,6 +709,10 @@ | ||
681 | 709 | DSPTotalMes1_Principal.DataSet := FDMPrincipal.SQLDSTotalMes1; |
682 | 710 | DSPTotalMes2_Principal.DataSet := FDMPrincipal.SQLDSTotalMes2; |
683 | 711 | 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; | |
684 | 716 | |
685 | 717 | //DMTpPessoa_DataSetProvider |
686 | 718 | DSPTipoPessoaDescricao_TpPessoa.DataSet := FDMTpPessoa.SQLDSTipoPessoaDescricao; |
@@ -702,23 +734,23 @@ | ||
702 | 734 | DSPPaises_Pessoa.DataSet := FDMPessoa.SQLDSPaises; |
703 | 735 | DSPViewPessoa_Pessoa.DataSet := FDMPessoa.SQLDSViewPessoa; |
704 | 736 | |
705 | - //DMIbge__DataSetProvider | |
737 | + //DMIbge_DataSetProvider | |
706 | 738 | DSPIncrementa_IBGE.DataSet := FDMIBGE.SQLDSIncrementa; |
707 | 739 | DSPIBGE_ID_Ibge.DataSet := FDMIBGE.SQLDSIBGE_ID; |
708 | 740 | DSPIBGE_CODIGO_Ibge.DataSet := FDMIBGE.SQLDSIBGE_CODIGO; |
709 | 741 | DSPIBGE_CIDADE_Ibge.DataSet := FDMIBGE.SQLDSIBGE_CIDADE; |
710 | 742 | |
711 | - //DMPaises__DataSetProvider | |
743 | + //DMPaises_DataSetProvider | |
712 | 744 | DSPIncrementa_Paises.DataSet := FDMPaises.SQLDSIncrementa; |
713 | 745 | DSPPaises_Codigo_Paises.DataSet := FDMPaises.SQLDSPaises_Codigo; |
714 | 746 | DSPPaises_Nacionalid_Paises.DataSet := FDMPaises.SQLDSPaises_Nacionalid; |
715 | 747 | |
716 | - //DMTipoContas__DataSetProvider | |
748 | + //DMTipoContas_DataSetProvider | |
717 | 749 | DSPIncrementa_TipoConta.DataSet := FDMTipoContas.SQLDSIncrementa; |
718 | 750 | DSPTipoContaID_TipoConta.DataSet := FDMTipoContas.SQLDSTipoContaID; |
719 | 751 | DSPTipoContaDESCRICAO_TipoConta.DataSet := FDMTipoContas.SQLDSTipoContaDESCRICAO; |
720 | 752 | |
721 | - //DMContas__DataSetProvider | |
753 | + //DMContas_DataSetProvider | |
722 | 754 | DSPContasID_Contas.DataSet := FDMContas.SQLDSContas; |
723 | 755 | DSPContasNOME_Contas.DataSet := FDMContas.SQLDSContasNOME; |
724 | 756 | DSPContasNUMERO_Contas.DataSet := FDMContas.SQLDSContasNUMERO; |
@@ -728,42 +760,42 @@ | ||
728 | 760 | DSPTpContas_Contas.DataSet := FDMContas.SQLDSTpContas; |
729 | 761 | DSPContasCP_Contas.DataSet := FDMContas.SQLDSContasCP; |
730 | 762 | |
731 | - //DMNatOper__DataSetProvider | |
763 | + //DMNatOper_DataSetProvider | |
732 | 764 | DSPIncrementa_NatOper.DataSet := FDMNatOper.SQLDSIncrementa; |
733 | 765 | DSPPesquisaNatOperDescricao_NatOper.DataSet := FDMNatOper.SQLDSPesquisaNatOperDescricao; |
734 | 766 | DSPPesquisaNatOperID_NatOper.DataSet := FDMNatOper.SQLDSPesquisaNatOperIdentificador; |
735 | 767 | |
736 | - //DMCFOP__DataSetProvider | |
768 | + //DMCFOP_DataSetProvider | |
737 | 769 | DSpIncrementa_Cfop.DataSet := FDMCfop.SQLDSIncrementa; |
738 | 770 | DSPPesquisaCFOPIdentificador_Cfop.DataSet := FDMCfop.SQLDSPesquisaCFOPIdentificador; |
739 | 771 | DSPPesquisaCfopDescricao_Cfop.DataSet := FDMCfop.SQLDSPesquisaCfopDescricao; |
740 | 772 | |
741 | - //DMFPagam__DataSetProvider | |
773 | + //DMFPagam_DataSetProvider | |
742 | 774 | DSPIncrementa_FPagam.DataSet := FDMFPagam.SQLDSIncrementa; |
743 | 775 | DSPPesquisaFPagamIdentificador_FPagam.DataSet := FDMFPagam.SQLDSPesquisaFPagamIdentificador; |
744 | 776 | DSPPesquisaFPagamDescricao_FPagam.DataSet := FDMFPagam.SQLDSPesquisaFPagamDescricao; |
745 | 777 | |
746 | - //DMNCM__DataSetProvider | |
778 | + //DMNCM_DataSetProvider | |
747 | 779 | DSPIncrementa_NCM.DataSet := FDMNCM.SQLDSIncrementa; |
748 | 780 | DSPPesquisaNCMIdentificador_NCM.DataSet := FDMNCM.SQLDSPesquisaNCMIdentificador; |
749 | 781 | DSPPesquisaNCMDescricao.DataSet := FDMNCM.SQLDSPesquisaNCMDescricao; |
750 | 782 | |
751 | - //DMGruposDespesa__DataSetProvider | |
783 | + //DMGruposDespesa_DataSetProvider | |
752 | 784 | DSPIncrementa_GruposDespesas.DataSet := FDMGruposDespesas.SQLDSIncrementa; |
753 | 785 | DSPPesquisaGruposDespesasIdentificador.DataSet := FDMGruposDespesas.SQLDSPesquisaGruposDespesasIdentificador; |
754 | 786 | DSPPesquisaGruposDespesasDescricao.DataSet := FDMGruposDespesas.SQLDSPesquisaGruposDespesasDescricao; |
755 | 787 | |
756 | - //DMAlocacao__DataSetProvider | |
788 | + //DMAlocacao_DataSetProvider | |
757 | 789 | DSPIncrementa_Alocacao.DataSet := FDMAlocacao.SQLDSIncrementa; |
758 | 790 | DSPPesquisaAlocacaoIdentificador_Alocacao.DataSet := FDMAlocacao.SQLDSPesquisaAlocacaoIdentificador; |
759 | 791 | DSPPesquisaAlocacaoDescricao_Alocacao.DataSet := FDMAlocacao.SQLDSPesquisaAlocacaoDescricao; |
760 | 792 | |
761 | - //DMGrupos__DataSetProvider | |
793 | + //DMGrupos_DataSetProvider | |
762 | 794 | DSpIncrementa_Grupos.DataSet := FDMGrupos.SQLDSIncrementa; |
763 | 795 | DSPPesquisaGruposIdentificador_Grupos.DataSet := FDMGrupos.SQLDSPesquisaGruposIdentificador; |
764 | 796 | DSPPesquisaGruposDespesasDescricao.DataSet := FDMGrupos.SQLDSPesquisaAlocacaoDescricao; |
765 | 797 | |
766 | - //DMSubGrupos__DataSetProvider | |
798 | + //DMSubGrupos_DataSetProvider | |
767 | 799 | DSPIncrementa_SubGrupos.DataSet := FDMSubGrupos.SQLDSIncrementa; |
768 | 800 | DSPPesquisaSubGruposIdentificador_SubGrupos.DataSet := FDMSubGrupos.SQLDSPesquisaSubGruposIdentificador; |
769 | 801 | DSPPesquisaSubGruposDescricao_SubGrupos.DataSet := FDMSubGrupos.SQLDSPesquisaSubGruposDescricao; |
@@ -770,12 +802,12 @@ | ||
770 | 802 | DSPGrupos_SubGrupos.DataSet := FDMSubGrupos.SQLDSGrupos; |
771 | 803 | DSPGruposGrid_SubGrupos.DataSet := FDMSubGrupos.SQLDSGruposGrid; |
772 | 804 | |
773 | - //DMPlaPadrao__DataSetProvider | |
805 | + //DMPlaPadrao_DataSetProvider | |
774 | 806 | DSpIncrementa_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSIncrementa; |
775 | 807 | DSPPesquisaPlaPadraoIdentificador_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSPesquisaPlaPadraoIdentificador; |
776 | 808 | DSPPesquisaPlaPadraoDescricao_PlaPadrao.DataSet := FDMPlaPadrao.SQLDSPesquisaPlaPadraoDescricao; |
777 | 809 | |
778 | - //DMProdutosServicos__DataSetProvider | |
810 | + //DMProdutosServicos_DataSetProvider | |
779 | 811 | DSPIncrementa_Produtos.DataSet := FDMProdutosServicos.SQLDSIncrementa; |
780 | 812 | DSPProdutosIdentificador_Produtos.DataSet := FDMProdutosServicos.SQLDSPesquisaProdutosIdentificador; |
781 | 813 | DSPProdutosDescricao_Produtos.DataSet := FDMProdutosServicos.SQLDSPesquisaProdutosDescricao; |
@@ -801,7 +833,7 @@ | ||
801 | 833 | DSPSaldoAtualProdutosIndentificador_Produtos.DataSet := FDMProdutosServicos.SQLDSSaldoAtualProdutosIndentificador; |
802 | 834 | DSPApagaMemoriaCalculo_ProdutosServicos.DataSet := FDMProdutosServicos.SQLDSApagaMemoriaCalculo; |
803 | 835 | |
804 | - //DMEntradasNotasFiscais__DataSetProvider | |
836 | + //DMEntradasNotasFiscais_DataSetProvider | |
805 | 837 | DSPPessoaIdentificador_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSPessoa; |
806 | 838 | DSPIncrementa_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSIncrementa; |
807 | 839 | DSPPessoa_Nome_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSPessoa_Nome; |
@@ -819,7 +851,7 @@ | ||
819 | 851 | DSPContasGrid_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSContasGrid; |
820 | 852 | DSPContasFinanceiro_EntradasNF.DataSet := FDMEntradasNotasFiscais.SQLDSContasFinanceiro; |
821 | 853 | |
822 | - //DMVendas__DataSetProvider | |
854 | + //DMVendas_DataSetProvider | |
823 | 855 | DSPIncrementa_Vendas.DataSet := FDMVendas.SQLDSIncrementa; |
824 | 856 | DSPPessoaIdentificador_Vendas.DataSet := FDMVendas.SQLDSPessoa; |
825 | 857 | DSPPessoa_Nome_Vendas.DataSet := FDMVendas.SQLDSPessoa_Nome; |
@@ -842,7 +874,7 @@ | ||
842 | 874 | DSPPessoaTransportadora_Vendas.DataSet := FDMVendas.SQLDSPessoaTransportadora; |
843 | 875 | DSPPessoaTransp.DataSet := FDMVendas.SQLDSPessoaTransp; |
844 | 876 | |
845 | - //DMContaCorrente__DataSetProvider | |
877 | + //DMContaCorrente_DataSetProvider | |
846 | 878 | DSPIncrementa_ContaCorrente.DataSet := FDMContaCorrente.SQLDSIncrementa; |
847 | 879 | DSPContasIdentificador_ContaCorrente.DataSet := FDMContaCorrente.SQLDSContas; |
848 | 880 | DSPContasNome_ContaCorrente.DataSet := FDMContaCorrente.SQLDSContasNome; |
@@ -852,7 +884,7 @@ | ||
852 | 884 | DSPSaldoAtual_ContaCorrente.DataSet := FDMContaCorrente.SQLDSSaldoAtual; |
853 | 885 | DSPTTCredDebConta_ContaCorrente.DataSet := FDMContaCorrente.SQLDSTTCredDebConta_ContaCorrente; |
854 | 886 | |
855 | - //DMBIContasaPagar__DataSetProvider | |
887 | + //DMBIContasaPagar_DataSetProvider | |
856 | 888 | DSPViewPagar_ContasaPagar.DataSet := FDMBIContasaPagar.SQLDSViewPagar; |
857 | 889 | DSPView_BIPagar_ContasaPagar.DataSet := FDMBIContasaPagar.SQLDSView_BIPagar; |
858 | 890 | DSPPessoa_BiContasaPagar.DataSet := FDMBIContasaPagar.SQLDSPessoa; |
@@ -862,12 +894,12 @@ | ||
862 | 894 | DSPAlocacao_BiContasaPagar.DataSet := FDMBIContasaPagar.SQLDSAlocacao; |
863 | 895 | DSPContas_BIContasaPagar.DataSet := FDMBIContasaPagar.SQLDSContas; |
864 | 896 | |
865 | - //DMBIContasaReceber__DataSetProvider | |
897 | + //DMBIContasaReceber_DataSetProvider | |
866 | 898 | DSPViewReceber_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewReceber; |
867 | 899 | DSPViewBIReceber_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewBIReceber; |
868 | 900 | DSPViewVendasCliente_ContasReceber.DataSet := FDMBIContasaReceber.SQLDSViewVendasCliente; |
869 | 901 | |
870 | - //DMCentroCustos__DataSetProvider | |
902 | + //DMCentroCustos_DataSetProvider | |
871 | 903 | DSPPagar_CentroCusto.DataSet := FDMCentroCustos.SQLDSPagar; |
872 | 904 | DSPCFOP_CentroCustos.DataSet := FDMCentroCustos.SQLDSCFOP; |
873 | 905 | DSPGrupoDespesas_CentroCustos.DataSet := FDMCentroCustos.SQLDSGrupoDespesas; |
@@ -874,7 +906,7 @@ | ||
874 | 906 | DSPPessoa_CentroCustos.DataSet := FDMCentroCustos.SQLDSPessoa; |
875 | 907 | DSPPlanilhaPadrao_CentroCustos.DataSet := FDMCentroCustos.SQLDSPlanilhaPadrao; |
876 | 908 | |
877 | - //DMAbreFechaConta__DataSetProvider | |
909 | + //DMAbreFechaConta_DataSetProvider | |
878 | 910 | DSPIncrementa_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSIncrementa; |
879 | 911 | DSPPessoaIdentificador_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSPessoa; |
880 | 912 | DSPPessoa_Nome_AbreFechaConta.DataSet := FDMAbreFechaConta.SQLDSPessoa_Nome; |
@@ -906,7 +938,7 @@ | ||
906 | 938 | DSPImagemDescricao.DataSet := FDMAbreFechaConta.SQLDSImagemDescricao; |
907 | 939 | DSPProdutosMovImprime.DataSet := FDMAbreFechaConta.SQLDSProdutosMovImprime; |
908 | 940 | |
909 | - //DMContasaPagar__DataSetProvider | |
941 | + //DMContasaPagar_DataSetProvider | |
910 | 942 | DSPContasaPagar_ContasaPagar.DataSet := FDMContasaPagar.SQLDSContasaPagar; |
911 | 943 | DSPContas_ContasaPagar.DataSet := FDMContasaPagar.SQLDSContas; |
912 | 944 | DSPGrupoDespesas_ContasaPagar.DataSet := FDMContasaPagar.SQLDSGrupoDespesas; |
@@ -919,6 +951,12 @@ | ||
919 | 951 | DSPEnderecoPessoa_PessoaMobile.DataSet := FDMPessoaMobile.SQLDSEnderecoPessoa; |
920 | 952 | DSPTelefonePessoa_PessoaMobile.DataSet := FDMPessoaMobile.SQLDSTelefonePessoa; |
921 | 953 | |
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 | + | |
922 | 960 | end; |
923 | 961 | |
924 | 962 | { TODO : Abaixo implementamos o destrutor. Note que não seria necessário liberar |
@@ -955,6 +993,7 @@ | ||
955 | 993 | FDMContasaReceber.Free; |
956 | 994 | FDMContasaPagar.Free; |
957 | 995 | FDMPessoaMobile.Free; |
996 | + FDMAbreFechaContaMobile.Free; | |
958 | 997 | |
959 | 998 | inherited; |
960 | 999 | end; |