Skip to content

Commit 197292e

Browse files
author
Izeli Reis
committed
Rejeição 837
1 parent f30b252 commit 197292e

File tree

4 files changed

+82
-58
lines changed

4 files changed

+82
-58
lines changed

‎nfe/NFe_gerar.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
236236
writeln(arquivo, 'NaturezaOperacao=' + cdsNota.fieldByName('NATUREZAOPERACAO').AsString);
237237
writeln(arquivo, 'Modelo=55');
238238
writeln(arquivo, 'Serie=1');
239-
writeln(arquivo, 'Codigo=' + inttostr(nf_numero));
239+
writeln(arquivo, 'Codigo=' + inttostr(Round(Random(99999999))));
240240
writeln(arquivo, 'Numero=' + inttostr(nf_numero));
241241
writeln(arquivo, 'Emissao=' + FormatDateTime('DD/MM/YYYY', now));
242242
if not ckDataHora.Checked then

‎nfe/__history/NFe_gerar.pas.~16~ ‎nfe/__history/NFe_gerar.pas.~26~

+78-51
Original file line numberDiff line numberDiff line change
@@ -186,8 +186,8 @@ begin
186186
ReWrite(arquivo);
187187
try
188188
writeln(arquivo, 'NFe.CriarEnviarNFe("');
189-
// writeln(arquivo, '[infNFe]');
190-
// writeln(arquivo, 'versao=3.10');
189+
writeln(arquivo, '[infNFe]');
190+
writeln(arquivo, 'versao=4.0');
191191
writeln(arquivo, '[Identificacao]');
192192

193193
{ cabe�alho da nota }
@@ -200,7 +200,7 @@ begin
200200
{ ICMS outro estado para partilha }
201201
if MatchStr(cdsNota.FieldByName('EMPRESA_ESTADO').AsString, ['SP', 'MG', 'RJ', 'PR', 'SC', 'RS']) and
202202
MatchStr(cdsNota.FieldByName('CLI_ESTADO').AsString,
203-
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'DF', 'GO', 'MT', 'MS', 'PE']) then
203+
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'GO', 'MT', 'MS', 'PE']) then
204204
icmsdest := '7'
205205
else
206206
icmsdest := '12';
@@ -453,6 +453,7 @@ begin
453453
else
454454
writeln(arquivo, 'Codigo=' + cdsItens.FieldByName('CODIGO').AsString);
455455
writeln(arquivo, 'EAN=' + cdsItens.FieldByName('BARRA').AsString);
456+
writeln(arquivo, 'cEANTrib=' + cdsItens.FieldByName('BARRA').AsString);
456457
if cdsItens.FieldByName('NCM').AsInteger > 0 then
457458
writeln(arquivo, 'NCM=' + cdsItens.FieldByName('NCM').AsString)
458459
else if cdsItens.FieldByName('NCM').AsInteger = 0 then
@@ -482,7 +483,7 @@ begin
482483
writeln(arquivo, 'vFrete=' + FloatToStrF(rateiofrete+rateiofrete_resto, ffFixed, 18, 2))
483484
end else
484485
begin
485-
writeln(arquivo, 'vOutro=' + FloatToStrF(rateio, ffFixed, 18, 2));
486+
writeln(arquivo, 'vOutro=' + FloatToStrF(rateio, ffFixed, 18, 2));
486487
writeln(arquivo, 'vFrete=' + FloatToStrF(rateiofrete, ffFixed, 18, 2));
487488
end;
488489
end;
@@ -526,14 +527,14 @@ begin
526527
and (not comie) then
527528
begin
528529
if not MatchStr(cdsNota.FieldByName('CLI_ESTADO').AsString,
529-
['RJ']) then
530+
['RJ', 'DF']) then
530531
begin
531532
writeln(arquivo, Format('[ICMSUFDEST%.3d]', [i]));
532533
writeln(arquivo, 'vBCUFDest=0'); // simples
533534
writeln(arquivo, 'pFCPUFDest=2'); // simples
534535
writeln(arquivo, 'pICMSUFDest=0'); // simples
535536
writeln(arquivo, 'pICMSinter='+icmsdest);
536-
writeln(arquivo, 'pICMSinterPart=80'); // 2017
537+
writeln(arquivo, 'pICMSinterPart=100'); // 2019
537538
writeln(arquivo, 'vFCPUFDest=0');
538539
writeln(arquivo, 'vICMSUFDest=0');
539540
writeln(arquivo, 'vICMSUFRemet=0'); // simples
@@ -620,43 +621,48 @@ begin
620621
writeln(arquivo, 'ValorNota=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
621622
end;
622623

623-
{ transportador }
624-
writeln(arquivo, '[Transportador]');
625-
if trim(cdsNota.FieldByName('TRA_NOME').AsString) = '' then
626-
begin
627-
writeln(arquivo, 'FretePorConta=0');
628-
end else
624+
625+
if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
629626
begin
630-
writeln(arquivo, 'FretePorConta=' + cdsNota.fieldByName('NOTA_FRETE').AsString);
631-
writeln(arquivo, 'CnpjCpf=' + cdsNota.fieldByName('TRA_CPFCGC').AsString);
632-
writeln(arquivo, 'IE=' + cdsNota.fieldByName('TRA_RGIE').AsString);
633-
writeln(arquivo, 'NomeRazao=' + cdsNota.fieldByName('TRA_NOME').AsString);
634-
writeln(arquivo, 'Endereco=' + trim(cdsNota.FieldByName('TRA_LOGRADOURO').AsString) + ' ' + cdsNota.FieldByName('TRA_NUMERO').AsString);
635-
writeln(arquivo, 'CidadeCod=' + cdsNota.FieldByName('TRA_MUNIBGE').AsString);
636-
writeln(arquivo, 'Cidade=' + cdsNota.FieldByName('TRA_CIDADE').AsString);
637-
writeln(arquivo, 'UF=' + cdsNota.FieldByName('TRA_ESTADO').AsString);
638-
writeln(arquivo, 'CEP=' + cdsNota.FieldByName('TRA_CEP').AsString);
639-
writeln(arquivo, 'Placa=' + cdsNota.FieldByName('NOTA_PLACAVEICULO').AsString);
640-
if trim(cdsNota.FieldByName('NOTA_UFVEICULO').AsString) > '' then
641-
writeln(arquivo, 'UFPlaca=' + cdsNota.FieldByName('NOTA_UFVEICULO').AsString)
642-
else
643-
writeln(arquivo, 'UFPlaca=AAA9999');
644627

645-
if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
646-
writeln(arquivo, 'CFOP=5353') else
647-
writeln(arquivo, 'CFOP=6353');
648-
if cdsNota.FieldByName('NOTA_QUANTIDADE').AsInteger > 0 then
649-
begin
650-
writeln(arquivo, '[Volume001]');
651-
writeln(arquivo, 'Quantidade=' + cdsNota.fieldByName('NOTA_QUANTIDADE').AsString);
652-
writeln(arquivo, 'Especie=CAIXAS');
653-
writeln(arquivo, 'Marca=');
654-
writeln(arquivo, 'Numeracao=1');
655-
writeln(arquivo, 'PesoLiquido=' + cdsNota.fieldByName('NOTA_PESOLIQUIDO').AsString);
656-
writeln(arquivo, 'PesoBruto=' + cdsNota.fieldByName('NOTA_PESOBRUTO').AsString);
657-
end;
658-
end;
628+
{ transportador }
629+
writeln(arquivo, '[Transportador]');
630+
if trim(cdsNota.FieldByName('TRA_NOME').AsString) = '' then
631+
begin
632+
writeln(arquivo, 'FretePorConta=0');
633+
end else
634+
begin
635+
writeln(arquivo, 'FretePorConta=' + cdsNota.fieldByName('NOTA_FRETE').AsString);
636+
writeln(arquivo, 'CnpjCpf=' + cdsNota.fieldByName('TRA_CPFCGC').AsString);
637+
writeln(arquivo, 'IE=' + cdsNota.fieldByName('TRA_RGIE').AsString);
638+
writeln(arquivo, 'NomeRazao=' + cdsNota.fieldByName('TRA_NOME').AsString);
639+
writeln(arquivo, 'Endereco=' + trim(cdsNota.FieldByName('TRA_LOGRADOURO').AsString) + ' ' + cdsNota.FieldByName('TRA_NUMERO').AsString);
640+
writeln(arquivo, 'CidadeCod=' + cdsNota.FieldByName('TRA_MUNIBGE').AsString);
641+
writeln(arquivo, 'Cidade=' + cdsNota.FieldByName('TRA_CIDADE').AsString);
642+
writeln(arquivo, 'UF=' + cdsNota.FieldByName('TRA_ESTADO').AsString);
643+
writeln(arquivo, 'CEP=' + cdsNota.FieldByName('TRA_CEP').AsString);
644+
writeln(arquivo, 'Placa=' + cdsNota.FieldByName('NOTA_PLACAVEICULO').AsString);
645+
if trim(cdsNota.FieldByName('NOTA_UFVEICULO').AsString) > '' then
646+
writeln(arquivo, 'UFPlaca=' + cdsNota.FieldByName('NOTA_UFVEICULO').AsString)
647+
else
648+
writeln(arquivo, 'UFPlaca=AAA9999');
649+
650+
if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
651+
writeln(arquivo, 'CFOP=5353') else
652+
writeln(arquivo, 'CFOP=6353');
653+
if cdsNota.FieldByName('NOTA_QUANTIDADE').AsInteger > 0 then
654+
begin
655+
writeln(arquivo, '[Volume001]');
656+
writeln(arquivo, 'Quantidade=' + cdsNota.fieldByName('NOTA_QUANTIDADE').AsString);
657+
writeln(arquivo, 'Especie=CAIXAS');
658+
writeln(arquivo, 'Marca=');
659+
writeln(arquivo, 'Numeracao=1');
660+
writeln(arquivo, 'PesoLiquido=' + cdsNota.fieldByName('NOTA_PESOLIQUIDO').AsString);
661+
writeln(arquivo, 'PesoBruto=' + cdsNota.fieldByName('NOTA_PESOBRUTO').AsString);
662+
end;
663+
end;
659664

665+
end;
660666

661667
{ fatura }
662668
writeln(arquivo, '[Fatura]');
@@ -665,20 +671,41 @@ begin
665671
writeln(arquivo, 'ValorDesconto= 0,00');
666672
writeln(arquivo, 'ValorLiquido=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
667673

668-
{ duplicatas }
669-
i := 1;
670-
cdsPagamentos.First;
671-
while not (cdsPagamentos.Eof) do
674+
if dev then
672675
begin
673-
writeln(arquivo, Format('[Duplicata%.3d]', [i]));
674-
writeln(arquivo, 'Numero=' + FormatFloat('000000',nf_numero) + '-' + IntToStr(i));
675-
writeln(arquivo, 'DataVencimento=' + FormatDateTime('dd/mm/yyyy',cdsPagamentosDATAVENCIMENTO.AsDateTime));
676-
// writeln(arquivo, 'Valor=' + FormatFloat('#,###,##0.00',cdsPagamentosVALOR.AsCurrency));
677-
writeln(arquivo, 'Valor=' + FloatToStrF(cdsPagamentosVALOR.AsCurrency, ffFixed, 18, 2));
678-
inc(i);
679-
cdsPagamentos.Next;
676+
677+
{ fatura }
678+
writeln(arquivo, '[PAG001]');
679+
writeln(arquivo, 'tpag=90');
680+
681+
end else
682+
begin
683+
684+
{ duplicatas }
685+
i := 1;
686+
cdsPagamentos.First;
687+
while not (cdsPagamentos.Eof) do
688+
begin
689+
writeln(arquivo, Format('[Duplicata%.3d]', [i]));
690+
writeln(arquivo, 'Numero=' + Format('%.3d', [i]));
691+
// writeln(arquivo, 'Numero=' + FormatFloat('000000',nf_numero) + '-' + IntToStr(i));
692+
writeln(arquivo, 'DataVencimento=' + FormatDateTime('dd/mm/yyyy',cdsPagamentosDATAVENCIMENTO.AsDateTime));
693+
// writeln(arquivo, 'Valor=' + FormatFloat('#,###,##0.00',cdsPagamentosVALOR.AsCurrency));
694+
writeln(arquivo, 'Valor=' + FloatToStrF(cdsPagamentosVALOR.AsCurrency, ffFixed, 18, 2));
695+
inc(i);
696+
cdsPagamentos.Next;
697+
end;
698+
699+
{ fatura }
700+
writeln(arquivo, '[PAG001]');
701+
writeln(arquivo, 'tpag=01');
702+
writeln(arquivo, 'tpIntegra=2');
703+
writeln(arquivo, 'vPag='+FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
704+
writeln(arquivo, 'vTroca=0');
705+
680706
end;
681707

708+
682709
{ dados adicionais }
683710
writeln(arquivo, '[DadosAdicionais]');
684711
writeln(arquivo, 'Complemento=CODIGO INTERNO ' + cdsNota.FieldByName('CODIGO').AsString + '. ' +

‎principal/__history/principal.pas.~82~ ‎principal/__history/principal.pas.~94~

+2-5
Original file line numberDiff line numberDiff line change
@@ -1207,11 +1207,8 @@ end;
12071207

12081208
procedure TformPrincipal.actSobreExecute(Sender: TObject);
12091209
begin MsgError(
1210-
'Enterprise' + #13#10#13#10 +
1211-
'� 1999-2012 Taligent' + #13#10 +
1212-
'� 2013-2018 decisao.net - Gest�o de Resultado' + #13#10#13#10 +
1213-
'[email protected]' + #13#10#13#10 +
1214-
'vers�o 2018.023 (21/02/2018)',
1210+
'Enterprise' + #13#10#13#10 +
1211+
'vers�o 2019.37 (21/03/2019)',
12151212
'Sobre...');
12161213
end;
12171214

‎principal/principal.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1208,7 +1208,7 @@ function TformPrincipal.GetTime: TDateTime;
12081208
procedure TformPrincipal.actSobreExecute(Sender: TObject);
12091209
begin MsgError(
12101210
'Enterprise' + #13#10#13#10 +
1211-
'versão 2019.37 (21/03/2019)',
1211+
'versão 2019.92 (02/09/2019)',
12121212
'Sobre...');
12131213
end;
12141214

0 commit comments

Comments
 (0)