• R/O
  • SSH
  • HTTPS

integradorcaie: コミット


コミットメタ情報

リビジョン5 (tree)
日時2018-12-05 05:50:43
作者derekwildstar

ログメッセージ

- Salvando informações redundantes no CSV exportado

変更サマリ

差分

--- trunk/src/UDamoPrincipal.pas (revision 4)
+++ trunk/src/UDamoPrincipal.pas (revision 5)
@@ -917,24 +917,29 @@
917917 end;
918918 end;
919919 // CNS;NOME DO CARTÓRIO;NOME DO TITULAR;CPF DO TITULAR;NUMERO DA GUIA;NOME DO SACADO;CPF DO SACADO;DATA DE EMISSÃO;DATA DE PAGAMENTO;DATA DE CRÉDITO;VALOR;TARIFA DO BANCO;FORMA DE PAGAMENTO;NÚMERO DA REMESSA;ATO;DESCRIÇÃO;QUANTIDADE;TIPO DE SERVIÇO;RECEITA;DESCRIÇÃO;VALOR
920-function LinhaCartorios: String;
921-begin
922- Result := Linha(CLDSCartorios.Fields) + ';;;;;;;;;;;;;;;;;';
923-end;
920+//function LinhaCartorios: String;
921+//begin
922+// Result := Linha(CLDSCartorios.Fields) + ';;;;;;;;;;;;;;;;;';
923+//end;
924924
925-function LinhaGuias: String;
926-begin
927- Result := ';;;;' + Linha(CLDSGuias.Fields) + ';;;;;;;';
928-end;
925+//function LinhaGuias: String;
926+//begin
927+// Result := ';;;;' + Linha(CLDSGuias.Fields) + ';;;;;;;';
928+//end;
929929
930-function LinhaAtos: String;
931-begin
932- Result := ';;;;;;;;;;;;;;' + Linha(CLDSAtos.Fields) + ';;;';
933-end;
930+//function LinhaAtos: String;
931+//begin
932+// Result := ';;;;;;;;;;;;;;' + Linha(CLDSAtos.Fields) + ';;;';
933+//end;
934934
935-function LinhaReceitas: String;
935+//function LinhaReceitas: String;
936+//begin
937+// Result := ';;;;;;;;;;;;;;;;;;' + Linha(CLDSReceitas.Fields);
938+//end;
939+
940+function LinhaFinal: String;
936941 begin
937- Result := ';;;;;;;;;;;;;;;;;;' + Linha(CLDSReceitas.Fields);
942+ Result := Linha(CLDSCartorios.Fields) + ';' + Linha(CLDSGuias.Fields) + ';' + Linha(CLDSAtos.Fields) + ';' + Linha(CLDSReceitas.Fields);
938943 end;
939944 // -- //////////////////////////////////////////////////////////////////////////
940945 var
@@ -952,7 +957,7 @@
952957 if CLDSCartorios.RecordCount > 0 then
953958 begin
954959 // Cabeçalho
955- Add('"CNS";"NOME DO CARTÓRIO";"NOME DO TITULAR";"CPF DO TITULAR";"NUMERO DA GUIA";"NOME DO SACADO";"CPF DO SACADO";"DATA DE EMISSÃO";"DATA DE PAGAMENTO";"DATA '+'DE CRÉDITO";"VALOR";"TARIFA DO BANCO";"FORMA DE PAGAMENTO";"NÚMERO DA REMESSA";"ATO";"DESCRIÇÃO";"QUANTIDADE";"TIPO DE SERVIÇO";"RECEITA";"DESCRIÇÃO";"VALOR"');
960+ Add('"CNS";"NOME DO CARTÓRIO";"NOME DO TITULAR";"CPF DO TITULAR";"NUMERO DA GUIA";"NOME DO SACADO";"CPF/CNPJ DO SACADO";"DATA DE EMISSÃO";"DATA DE PAGAMENTO";"DATA '+'DE CRÉDITO";"VALOR";"TARIFA DO BANCO";"FORMA DE PAGAMENTO";"NÚMERO DA REMESSA";"ATO";"DESCRIÇÃO";"QUANTIDADE";"TIPO DE SERVIÇO";"RECEITA";"DESCRIÇÃO";"VALOR"');
956961
957962 CLDSCartorios.DisableControls;
958963 CartoriosBM := CLDSCartorios.Bookmark;
@@ -966,7 +971,7 @@
966971 CLDSCartorios.First;
967972 while not CLDSCartorios.Eof do
968973 begin
969- Add(LinhaCartorios);
974+// Add(LinhaCartorios);
970975
971976 if CLDSGuias.RecordCount > 0 then
972977 begin
@@ -973,7 +978,7 @@
973978 CLDSGuias.First;
974979 while not CLDSGuias.Eof do
975980 begin
976- Add(LinhaGuias);
981+// Add(LinhaGuias);
977982
978983 if CLDSAtos.RecordCount > 0 then
979984 begin
@@ -980,7 +985,7 @@
980985 CLDSAtos.First;
981986 while not CLDSAtos.Eof do
982987 begin
983- Add(LinhaAtos);
988+// Add(LinhaAtos);
984989
985990 if CLDSReceitas.RecordCount > 0 then
986991 begin
@@ -987,7 +992,8 @@
987992 CLDSReceitas.First;
988993 while not CLDSReceitas.Eof do
989994 begin
990- Add(LinhaReceitas);
995+// Add(LinhaReceitas);
996+ Add(LinhaFinal);
991997
992998 CLDSReceitas.Next;
993999 end;
旧リポジトリブラウザで表示