Skip to content

Commit

Permalink
correcao da acentuacao e novos campos na grade do Produto
Browse files Browse the repository at this point in the history
  • Loading branch information
decisao.net committed Mar 12, 2019
1 parent a2a8851 commit 94b2d3d
Show file tree
Hide file tree
Showing 15 changed files with 15,164 additions and 2,491 deletions.
4 changes: 2 additions & 2 deletions enterprise.dproj.local
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
<BorlandProject>
<Transactions>
<Transaction>2018/02/19 20:48:26.000.526,=C:\Users\Administrador\Documents\enterprise\Unit1.pas</Transaction>
<Transaction>2018/02/19 20:51:02.000.921,C:\Users\Administrador\Documents\enterprise\relatorios\rel_estoquereposicao.pas=C:\Users\Administrador\Documents\enterprise\Unit1.pas</Transaction>
<Transaction>2018/02/19 20:51:02.000.921,C:\Users\Administrador\Documents\enterprise\relatorios\rel_estoquereposicao.dfm=C:\Users\Administrador\Documents\enterprise\Unit1.dfm</Transaction>
<Transaction>2018/02/19 20:51:02.000.921,C:\Users\Administrador\Documents\enterprise\Unit1.pas=C:\Users\Administrador\Documents\enterprise\relatorios\rel_estoquereposicao.pas</Transaction>
<Transaction>2018/02/19 20:51:02.000.921,C:\Users\Administrador\Documents\enterprise\Unit1.dfm=C:\Users\Administrador\Documents\enterprise\relatorios\rel_estoquereposicao.dfm</Transaction>
</Transactions>
</BorlandProject>
Binary file modified enterprise.identcache
View file
Binary file not shown.
32 changes: 16 additions & 16 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 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 @@ -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
127 changes: 77 additions & 50 deletions nfe/__history/NFe_gerar.pas.~15~ → nfe/__history/NFe_gerar.pas.~25~
View file
Original file line number Diff line number Diff line change
Expand Up @@ -186,8 +186,8 @@ begin
ReWrite(arquivo);
try
writeln(arquivo, 'NFe.CriarEnviarNFe("');
// writeln(arquivo, '[infNFe]');
// writeln(arquivo, 'versao=3.10');
writeln(arquivo, '[infNFe]');
writeln(arquivo, 'versao=4.0');
writeln(arquivo, '[Identificacao]');

{ cabe�alho da nota }
Expand All @@ -200,7 +200,7 @@ begin
{ 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']) then
['ES', 'RR', 'AP', 'AM', 'PA', 'MA', 'CE', 'RN', 'PB', 'AL', 'SE', 'BA', 'AC', 'RO', 'TO', 'DF', 'GO', 'MT', 'MS', 'PE']) then
icmsdest := '7'
else
icmsdest := '12';
Expand Down Expand Up @@ -453,6 +453,7 @@ begin
else
writeln(arquivo, 'Codigo=' + cdsItens.FieldByName('CODIGO').AsString);
writeln(arquivo, 'EAN=' + cdsItens.FieldByName('BARRA').AsString);
writeln(arquivo, 'cEANTrib=' + cdsItens.FieldByName('BARRA').AsString);
if cdsItens.FieldByName('NCM').AsInteger > 0 then
writeln(arquivo, 'NCM=' + cdsItens.FieldByName('NCM').AsString)
else if cdsItens.FieldByName('NCM').AsInteger = 0 then
Expand Down Expand Up @@ -482,7 +483,7 @@ begin
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 @@ -533,7 +534,7 @@ begin
writeln(arquivo, 'pFCPUFDest=2'); // simples
writeln(arquivo, 'pICMSUFDest=0'); // simples
writeln(arquivo, 'pICMSinter='+icmsdest);
writeln(arquivo, 'pICMSinterPart=80'); // 2017
writeln(arquivo, 'pICMSinterPart=100'); // 2019
writeln(arquivo, 'vFCPUFDest=0');
writeln(arquivo, 'vICMSUFDest=0');
writeln(arquivo, 'vICMSUFRemet=0'); // simples
Expand Down Expand Up @@ -620,65 +621,91 @@ begin
writeln(arquivo, 'ValorNota=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
end;

{ transportador }
writeln(arquivo, '[Transportador]');
if trim(cdsNota.FieldByName('TRA_NOME').AsString) = '' then
begin
writeln(arquivo, 'FretePorConta=0');
end else

if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
begin
writeln(arquivo, 'FretePorConta=' + cdsNota.fieldByName('NOTA_FRETE').AsString);
writeln(arquivo, 'CnpjCpf=' + cdsNota.fieldByName('TRA_CPFCGC').AsString);
writeln(arquivo, 'IE=' + cdsNota.fieldByName('TRA_RGIE').AsString);
writeln(arquivo, 'NomeRazao=' + cdsNota.fieldByName('TRA_NOME').AsString);
writeln(arquivo, 'Endereco=' + trim(cdsNota.FieldByName('TRA_LOGRADOURO').AsString) + ' ' + cdsNota.FieldByName('TRA_NUMERO').AsString);
writeln(arquivo, 'CidadeCod=' + cdsNota.FieldByName('TRA_MUNIBGE').AsString);
writeln(arquivo, 'Cidade=' + cdsNota.FieldByName('TRA_CIDADE').AsString);
writeln(arquivo, 'UF=' + cdsNota.FieldByName('TRA_ESTADO').AsString);
writeln(arquivo, 'CEP=' + cdsNota.FieldByName('TRA_CEP').AsString);
writeln(arquivo, 'Placa=' + cdsNota.FieldByName('NOTA_PLACAVEICULO').AsString);
if trim(cdsNota.FieldByName('NOTA_UFVEICULO').AsString) > '' then
writeln(arquivo, 'UFPlaca=' + cdsNota.FieldByName('NOTA_UFVEICULO').AsString)
else
writeln(arquivo, 'UFPlaca=AAA9999');

{ transportador }
writeln(arquivo, '[Transportador]');
if trim(cdsNota.FieldByName('TRA_NOME').AsString) = '' then
begin
writeln(arquivo, 'FretePorConta=0');
end else
begin
writeln(arquivo, 'FretePorConta=' + cdsNota.fieldByName('NOTA_FRETE').AsString);
writeln(arquivo, 'CnpjCpf=' + cdsNota.fieldByName('TRA_CPFCGC').AsString);
writeln(arquivo, 'IE=' + cdsNota.fieldByName('TRA_RGIE').AsString);
writeln(arquivo, 'NomeRazao=' + cdsNota.fieldByName('TRA_NOME').AsString);
writeln(arquivo, 'Endereco=' + trim(cdsNota.FieldByName('TRA_LOGRADOURO').AsString) + ' ' + cdsNota.FieldByName('TRA_NUMERO').AsString);
writeln(arquivo, 'CidadeCod=' + cdsNota.FieldByName('TRA_MUNIBGE').AsString);
writeln(arquivo, 'Cidade=' + cdsNota.FieldByName('TRA_CIDADE').AsString);
writeln(arquivo, 'UF=' + cdsNota.FieldByName('TRA_ESTADO').AsString);
writeln(arquivo, 'CEP=' + cdsNota.FieldByName('TRA_CEP').AsString);
writeln(arquivo, 'Placa=' + cdsNota.FieldByName('NOTA_PLACAVEICULO').AsString);
if trim(cdsNota.FieldByName('NOTA_UFVEICULO').AsString) > '' then
writeln(arquivo, 'UFPlaca=' + cdsNota.FieldByName('NOTA_UFVEICULO').AsString)
else
writeln(arquivo, 'UFPlaca=AAA9999');

if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
writeln(arquivo, 'CFOP=5353') else
writeln(arquivo, 'CFOP=6353');
if cdsNota.FieldByName('NOTA_QUANTIDADE').AsInteger > 0 then
begin
writeln(arquivo, '[Volume001]');
writeln(arquivo, 'Quantidade=' + cdsNota.fieldByName('NOTA_QUANTIDADE').AsString);
writeln(arquivo, 'Especie=CAIXAS');
writeln(arquivo, 'Marca=');
writeln(arquivo, 'Numeracao=1');
writeln(arquivo, 'PesoLiquido=' + cdsNota.fieldByName('NOTA_PESOLIQUIDO').AsString);
writeln(arquivo, 'PesoBruto=' + cdsNota.fieldByName('NOTA_PESOBRUTO').AsString);
end;
end;

if cdsNota.FieldByName('EMPRESA_ESTADO').AsString = cdsNota.FieldByName('CLI_ESTADO').AsString then
writeln(arquivo, 'CFOP=5353') else
writeln(arquivo, 'CFOP=6353');
if cdsNota.FieldByName('NOTA_QUANTIDADE').AsInteger > 0 then
begin
writeln(arquivo, '[Volume001]');
writeln(arquivo, 'Quantidade=' + cdsNota.fieldByName('NOTA_QUANTIDADE').AsString);
writeln(arquivo, 'Especie=CAIXAS');
writeln(arquivo, 'Marca=');
writeln(arquivo, 'Numeracao=1');
writeln(arquivo, 'PesoLiquido=' + cdsNota.fieldByName('NOTA_PESOLIQUIDO').AsString);
writeln(arquivo, 'PesoBruto=' + cdsNota.fieldByName('NOTA_PESOBRUTO').AsString);
end;
end;


{ fatura }
writeln(arquivo, '[Fatura]');
writeln(arquivo, 'Numero= ' + FormatFloat('000000',nf_numero));
writeln(arquivo, 'ValorOriginal=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
writeln(arquivo, 'ValorDesconto= 0,00');
writeln(arquivo, 'ValorLiquido=' + FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));

{ duplicatas }
i := 1;
cdsPagamentos.First;
while not (cdsPagamentos.Eof) do
if dev then
begin
writeln(arquivo, Format('[Duplicata%.3d]', [i]));
writeln(arquivo, 'Numero=' + FormatFloat('000000',nf_numero) + '-' + IntToStr(i));
writeln(arquivo, 'DataVencimento=' + FormatDateTime('dd/mm/yyyy',cdsPagamentosDATAVENCIMENTO.AsDateTime));
// writeln(arquivo, 'Valor=' + FormatFloat('#,###,##0.00',cdsPagamentosVALOR.AsCurrency));
writeln(arquivo, 'Valor=' + FloatToStrF(cdsPagamentosVALOR.AsCurrency, ffFixed, 18, 2));
inc(i);
cdsPagamentos.Next;

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

end else
begin

{ duplicatas }
i := 1;
cdsPagamentos.First;
while not (cdsPagamentos.Eof) do
begin
writeln(arquivo, Format('[Duplicata%.3d]', [i]));
writeln(arquivo, 'Numero=' + Format('%.3d', [i]));
// writeln(arquivo, 'Numero=' + FormatFloat('000000',nf_numero) + '-' + IntToStr(i));
writeln(arquivo, 'DataVencimento=' + FormatDateTime('dd/mm/yyyy',cdsPagamentosDATAVENCIMENTO.AsDateTime));
// writeln(arquivo, 'Valor=' + FormatFloat('#,###,##0.00',cdsPagamentosVALOR.AsCurrency));
writeln(arquivo, 'Valor=' + FloatToStrF(cdsPagamentosVALOR.AsCurrency, ffFixed, 18, 2));
inc(i);
cdsPagamentos.Next;
end;

{ fatura }
writeln(arquivo, '[PAG001]');
writeln(arquivo, 'tpag=01');
writeln(arquivo, 'tpIntegra=2');
writeln(arquivo, 'vPag='+FloatToStrF(cdsNota.FieldByName('NOTA_VALOR_TOTAL').AsCurrency, ffFixed, 18, 2));
writeln(arquivo, 'vTroca=0');

end;


{ dados adicionais }
writeln(arquivo, '[DadosAdicionais]');
writeln(arquivo, 'Complemento=CODIGO INTERNO ' + cdsNota.FieldByName('CODIGO').AsString + '. ' +
Expand Down
Loading

0 comments on commit 94b2d3d

Please sign in to comment.