Skip to content

Commit 08bb34d

Browse files
author
decisao.net
committed
2019.10: DIFAL 2019
1 parent f6967f6 commit 08bb34d

File tree

13 files changed

+6971
-2887
lines changed

13 files changed

+6971
-2887
lines changed

‎enterprise.identcache

0 Bytes
Binary file not shown.

‎nfe/NFe_gerar.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -534,7 +534,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
534534
writeln(arquivo, 'pFCPUFDest=2'); // simples
535535
writeln(arquivo, 'pICMSUFDest=0'); // simples
536536
writeln(arquivo, 'pICMSinter='+icmsdest);
537-
writeln(arquivo, 'pICMSinterPart=80'); // 2017
537+
writeln(arquivo, 'pICMSinterPart=100'); // 2019
538538
writeln(arquivo, 'vFCPUFDest=0');
539539
writeln(arquivo, 'vICMSUFDest=0');
540540
writeln(arquivo, 'vICMSUFRemet=0'); // simples

‎nfe/__history/NFe_gerar.pas.~14~ ‎nfe/__history/NFe_gerar.pas.~24~

+77-50
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']) then
203+
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'DF', '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;
@@ -533,7 +534,7 @@ begin
533534
writeln(arquivo, 'pFCPUFDest=2'); // simples
534535
writeln(arquivo, 'pICMSUFDest=0'); // simples
535536
writeln(arquivo, 'pICMSinter='+icmsdest);
536-
writeln(arquivo, 'pICMSinterPart=60'); // 2017
537+
writeln(arquivo, 'pICMSinterPart=80'); // 2017
537538
writeln(arquivo, 'vFCPUFDest=0');
538539
writeln(arquivo, 'vICMSUFDest=0');
539540
writeln(arquivo, 'vICMSUFRemet=0'); // simples
@@ -620,65 +621,91 @@ 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');
627+
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;
644664

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;
658665
end;
659666

660-
661667
{ fatura }
662668
writeln(arquivo, '[Fatura]');
663669
writeln(arquivo, 'Numero= ' + FormatFloat('000000',nf_numero));
664670
writeln(arquivo, 'ValorOriginal=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
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 + '. ' +

0 commit comments

Comments
 (0)