• R/O
  • SSH
  • HTTPS

managerweb: Commit


Commit MetaInfo

Revision27 (tree)
Time2019-11-09 09:00:50
Authorrogerio

Log Message

Testando o commit

Change Summary

Incremental Difference

--- trunk/Bin/Client/uAbreFechaConta.pas (revision 26)
+++ trunk/Bin/Client/uAbreFechaConta.pas (revision 27)
@@ -383,6 +383,7 @@
383383 QRLabel2: TQRLabel;
384384 QRDBText2: TQRDBText;
385385 VDOPrinter1: TVDOPrinter;
386+ procedure CalculaTotalMesa;
386387 procedure ImprimeConta;
387388 procedure ImprimeComandaCozinha;
388389 procedure SearchProdutosDescricao;
@@ -1202,24 +1203,10 @@
12021203 begin
12031204 // inherited;
12041205
1205- with cxGridDBTableView2.DataController.Summary do
1206- begin
1207- AIndex := FooterSummaryItems.IndexOfItemLink(cxGridDBTableView2TOTAL);
1208- AValue := FooterSummaryValues[AIndex]
1209- end;
1206+ CalculaTotalMesa;
12101207
1211- if AValue = null then
1212- begin
1213- DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := DSVendas.dataset.fields.FieldByName('VALOR_DESCONTO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_FRETE').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_SEGURO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_OUTROS').AsFloat;
1214- DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := DSVendas.dataset.fields.FieldByName('VALOR_DESCONTO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_FRETE').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_SEGURO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_OUTROS').AsFloat;
1215- end
1216- else
1217- begin
1218- TotalProdutos := StrToFloat(VarToStr(AValue));
1219-
1220- DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := TotalProdutos-DSVendas.dataset.fields.FieldByName('VALOR_DESCONTO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_FRETE').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_SEGURO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_OUTROS').AsFloat;
1221- DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := TotalProdutos;
1222- end;
1208+ DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := TotalProdutos-DSVendas.dataset.Fields.fieldbyname('VALOR_FRETE').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_COMISSAO').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_OUTROS').AsFloat+DSVendas.dataset.Fields.fieldbyname('VALOR_DESCONTO').AsFloat;
1209+ DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := TotalProdutos;
12231210 DSVendas.DataSet.Post;
12241211
12251212 end;
@@ -1327,17 +1314,15 @@
13271314 DSMovProdutos.dataset.post;
13281315
13291316 /// ATUALIZANDO PEDIDOS
1330-///
1331- with cxGridDBTableView2.DataController.Summary do
1332- begin
1333- AIndex := FooterSummaryItems.IndexOfItemLink(cxGridDBTableView2TOTAL);
1334- AValue := FooterSummaryValues[AIndex]
1335- end;
1336- TotalProdutos := StrToFloat(VarToStr(AValue));
1317+ CalculaTotalMesa;
13371318
1319+ DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := TotalProdutos-DSVendas.dataset.Fields.fieldbyname('VALOR_FRETE').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_COMISSAO').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_OUTROS').AsFloat+DSVendas.dataset.Fields.fieldbyname('VALOR_DESCONTO').AsFloat;
1320+ DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := TotalProdutos;
1321+
1322+
13381323 DSVendas.dataset.edit;
1339- DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := TotalProdutos-DSVendas.dataset.fields.FieldByName('VALOR_DESCONTO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_COMISSAO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_FRETE').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_SEGURO').AsFloat+DSVendas.dataset.fields.fieldbyname('VALOR_OUTROS').AsFloat;
1340- DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := TotalProdutos;
1324+ DSVendas.dataset.fields.fieldbyname('TOTAL_CONTA').AsFloat := TotalProdutos-DSVendas.dataset.Fields.fieldbyname('VALOR_FRETE').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_COMISSAO').AsFloat-DSVendas.dataset.Fields.fieldbyname('VALOR_OUTROS').AsFloat+DSVendas.dataset.Fields.fieldbyname('DESCONTO').AsFloat;
1325+ DSVendas.dataset.Fields.fieldbyname('VALOR_NF').AsFloat := TotalProdutos;
13411326 DSVendas.dataset.fields.fieldbyname('STATUS_VENDA_ID_STATUS').AsString := '0000000004';
13421327 DSVendas.dataset.Post;
13431328
@@ -1352,6 +1337,16 @@
13521337
13531338 end;
13541339
1340+procedure TfrmAbreFechaConta.CalculaTotalMesa;
1341+begin
1342+ with cxGridDBTableView2.DataController.Summary do
1343+ begin
1344+ AIndex := FooterSummaryItems.IndexOfItemLink(cxGridDBTableView2TOTAL);
1345+ AValue := FooterSummaryValues[AIndex]
1346+ end;
1347+ TotalProdutos := StrToFloat(VarToStr(AValue))+(DSVendas.dataset.Fields.fieldbyname('VALOR_FRETE').AsFloat+DSVendas.dataset.Fields.fieldbyname('VALOR_COMISSAO').AsFloat+DSVendas.dataset.Fields.fieldbyname('VALOR_OUTROS').AsFloat)-DSVendas.dataset.Fields.fieldbyname('VALOR_DESCONTO').AsFloat;
1348+end;
1349+
13551350 constructor TfrmAbreFechaConta.Create(AOwner: TComponent);
13561351 begin
13571352 FDMAbreFechaConta := TDMAbreFechaConta.Create(Self);
--- trunk/Bin/Server/uDMAbreFechaContaMobile.pas (revision 26)
+++ trunk/Bin/Server/uDMAbreFechaContaMobile.pas (revision 27)
@@ -127,6 +127,22 @@
127127 SQLDSVendasTT_COFINS: TFMTBCDField;
128128 SQLDSVendasLOG: TStringField;
129129 SQLDSVendasID_EMPRESA: TStringField;
130+ SQLDSViewMovProdutos: TSQLDataSet;
131+ SQLDSViewMovProdutosID_VENDAS: TStringField;
132+ SQLDSViewMovProdutosID_MOV_VENDAS: TStringField;
133+ SQLDSViewMovProdutosTABELA_ID: TStringField;
134+ SQLDSViewMovProdutosUNITARIO: TFMTBCDField;
135+ SQLDSViewMovProdutosTOTAL: TFMTBCDField;
136+ SQLDSViewMovProdutosDESCRICAO: TStringField;
137+ SQLDSStatus: TSQLDataSet;
138+ SQLDSStatusID_STATUS: TStringField;
139+ SQLDSStatusDESCRICAO: TStringField;
140+ SQLDSStatusOBS: TBlobField;
141+ SQLDSStatusID_EMPRESA: TStringField;
142+ SQLDSViewMovProdutosQUANTIDADE_SAIDA: TFMTBCDField;
143+ SQLDSView_Total_Produtos_Mobile: TSQLDataSet;
144+ SQLDSView_Total_Produtos_MobileID_VENDAS: TStringField;
145+ SQLDSView_Total_Produtos_MobileSUM: TFMTBCDField;
130146 private
131147 { Private declarations }
132148 public
--- trunk/Bin/Server/uDMSoapServer.pas (revision 26)
+++ trunk/Bin/Server/uDMSoapServer.pas (revision 27)
@@ -241,6 +241,9 @@
241241 DSPTotalDespesaMes_Principal: TDataSetProvider;
242242 DSPTotalDespesaCentro_Principal: TDataSetProvider;
243243 DSPTotalDespesaGrupo_Principal: TDataSetProvider;
244+ DSPViewMovProdutos_AbreFechaContaMobile: TDataSetProvider;
245+ DSPStatus_AbreFechaContaMobile: TDataSetProvider;
246+ DSPView_Total_Produtos_Mobile_AbreFechaContaMobile: TDataSetProvider;
244247
245248 private
246249 FDMEmpresa: TDMEmpresa;
@@ -674,6 +677,9 @@
674677 FDMAbreFechaContaMobile.SQLDSMovProdutos.SQLConnection := SQLConnectionServer;
675678 FDMAbreFechaContaMobile.SQLDSMovContas.SQLConnection := SQLConnectionServer;
676679 FDMAbreFechaContaMobile.SQLDSTransportadora.SQLConnection := SQLConnectionServer;
680+ FDMAbreFechaContaMobile.SQLDSViewMovProdutos.SQLConnection := SQLConnectionServer;
681+ FDMAbreFechaContaMobile.SQLDSStatus.SQLConnection := SQLConnectionServer;
682+ FDMAbreFechaContaMobile.SQLDSView_Total_Produtos_Mobile.SQLConnection := SQLConnectionServer;
677683
678684 FDMAbreFechaContaMobile.DSVendas.DataSet := FDMAbreFechaContaMobile.SQLDSVendas;
679685
@@ -955,7 +961,9 @@
955961 DSPMovProdutos_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSMovProdutos;
956962 DSPMovContas_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSMovContas;
957963 DSPTransportadora_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSTransportadora;
958-
964+ DSPViewMovProdutos_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSViewMovProdutos;
965+ DSPStatus_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSStatus;
966+ DSPView_Total_Produtos_Mobile_AbreFechaContaMobile.DataSet := FDMAbreFechaContaMobile.SQLDSView_Total_Produtos_Mobile;
959967 end;
960968
961969 { TODO : Abaixo implementamos o destrutor. Note que não seria necessário liberar
Show on old repository browser