Skip to content

Commit

Permalink
Estado do DF fora da DIFAL
Browse files Browse the repository at this point in the history
  • Loading branch information
Izeli Reis committed Jan 30, 2019
1 parent 08bb34d commit a2a8851
Show file tree
Hide file tree
Showing 2 changed files with 105 additions and 105 deletions.
36 changes: 18 additions & 18 deletions nfe/NFe_gerar.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -121,7 +121,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
except
end;

{ pego o número da nota }
{ pego o n�mero da nota }
if not formPrincipal.SocketConnection.Connected then
formPrincipal.SocketConnection.Open;
nf_numero := formPrincipal.SocketConnection.AppServer.GetID('NOTAFISCAL');
Expand Down Expand Up @@ -177,7 +177,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
else vista := 1;
end else vista := 1;

{ desabilito o botão cancelar }
{ desabilito o bot�o cancelar }
cxButton2.Enabled := False;
Application.ProcessMessages;

Expand All @@ -190,7 +190,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'versao=4.0');
writeln(arquivo, '[Identificacao]');

{ cabeçalho da nota }
{ cabe�alho da nota }
outroestado := cdsNota.FieldByName('CLI_ESTADO').AsString <> cdsNota.FieldByName('EMPRESA_ESTADO').AsString;
if outroestado then
writeln(arquivo, 'idDest=2')
Expand All @@ -200,7 +200,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
{ ICMS outro estado para partilha }
if MatchStr(cdsNota.FieldByName('EMPRESA_ESTADO').AsString, ['SP', 'MG', 'RJ', 'PR', 'SC', 'RS']) and
MatchStr(cdsNota.FieldByName('CLI_ESTADO').AsString,
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'DF', 'GO', 'MT', 'MS', 'PE']) then
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'GO', 'MT', 'MS', 'PE']) then
icmsdest := '7'
else
icmsdest := '12';
Expand Down Expand Up @@ -268,7 +268,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
begin

{ chave a devolver }
chavedev := inputbox('NFe a devolver', 'Chave (somente números)', '');
chavedev := inputbox('NFe a devolver', 'Chave (somente n�meros)', '');

if LimpaNumStr(chavedev) > '' then
begin
Expand Down Expand Up @@ -353,7 +353,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'PaisCod=1058');
writeln(arquivo, 'Pais=BRASIL');

{ lançamento de produtos }
{ lan�amento de produtos }
if ckAcrescimo.Checked then
begin
quant_itens := cdsItens.RecordCount;
Expand Down Expand Up @@ -483,7 +483,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'vFrete=' + FloatToStrF(rateiofrete+rateiofrete_resto, ffFixed, 18, 2))
end else
begin
writeln(arquivo, 'vOutro=' + FloatToStrF(rateio, ffFixed, 18, 2));
writeln(arquivo, 'vOutro=' + FloatToStrF(rateio, ffFixed, 18, 2));
writeln(arquivo, 'vFrete=' + FloatToStrF(rateiofrete, ffFixed, 18, 2));
end;
end;
Expand Down Expand Up @@ -527,7 +527,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
and (not comie) then
begin
if not MatchStr(cdsNota.FieldByName('CLI_ESTADO').AsString,
['RJ']) then
['RJ', 'DF']) then
begin
writeln(arquivo, Format('[ICMSUFDEST%.3d]', [i]));
writeln(arquivo, 'vBCUFDest=0'); // simples
Expand All @@ -551,7 +551,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
if cdsItens.FieldByName('VALOR_ITEM').AsCurrency > 0 then
begin

{ serviço }
{ servi�o }
writeln(arquivo, Format('[Produto%.3d]', [i]));
if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
writeln(arquivo, 'CFOP=5933') else
Expand All @@ -576,13 +576,13 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'Aliquota=0' {+ FloatToStrF(cdsNota.FieldByName('ISSALIQ').AsCurrency, ffFixed, 18, 2)});
writeln(arquivo, 'ValorISSQN=0' {+ FloatToStrF(cdsItens.FieldByName('VALOR_PAGO').AsCurrency * (cdsNota.FieldByName('ISSALIQ').AsCurrency / 100), ffFixed, 18, 2)});
writeln(arquivo, 'MunicipioFatoGerador=' + cdsNota.FieldByName('EMPRESA_MUNIBGE').AsString);
writeln(arquivo, 'CodigoServico=1402'); // assistência técnica
writeln(arquivo, 'CodigoServico=1402'); // assist�ncia t�cnica

end;

end;

{ próximo produto }
{ pr�ximo produto }
cdsItens.Next;
end;

Expand Down Expand Up @@ -624,7 +624,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);

if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
begin


{ transportador }
writeln(arquivo, '[Transportador]');
if trim(cdsNota.FieldByName('TRA_NOME').AsString) = '' then
Expand Down Expand Up @@ -673,15 +673,15 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);

if dev then
begin


{ fatura }
writeln(arquivo, '[PAG001]');
writeln(arquivo, 'tpag=90');

end else
begin

{ duplicatas }

{ duplicatas }
i := 1;
cdsPagamentos.First;
while not (cdsPagamentos.Eof) do
Expand All @@ -702,7 +702,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'tpIntegra=2');
writeln(arquivo, 'vPag='+FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
writeln(arquivo, 'vTroca=0');


end;


Expand All @@ -711,7 +711,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
writeln(arquivo, 'Complemento=CODIGO INTERNO ' + cdsNota.FieldByName('CODIGO').AsString + '. ' +
cdsNota.FieldByName('OBSERVACOES').AsString + '"');

{ finalização }
{ finaliza��o }
writeln(arquivo, ',1,1)');

{ encerro o arquivo }
Expand All @@ -737,7 +737,7 @@ procedure TformNFeGerar.cxButton1Click(Sender: TObject);
except
end;

{ arquivo não foi gerado }
{ arquivo n�o foi gerado }
Label3.Caption := Label3.Caption + ' [erro]';
Label3.Font.Color := clBlack;
formPrincipal.SocketConnection.Close;
Expand Down
Loading

0 comments on commit a2a8851

Please sign in to comment.