Problema No Registro C170 No Campo Qtde,vl_Bc_Pis E Vl_Bc_Cofins

[Ricardo De Luca]

boa tarde estou com problema no registro C170 no validador do pis e cofins quando tem uma nota de complemento de ICMS quando gera o arquivo de pis e cofins o campo qtde gera com o valor 0 (zero) e validador pede pra informar valor >0 e se deixar null ele aceita so que sempre fica com valor 0(zero), valor da base pis e cofins fica null e para ficar com o valor 0(zero). segue imagem dos erros no validador.

 

eu alterei a rotina ACBREPCBLOCO_C_CLASS na  função:TBLOCO_C.WRITEREGISTROC170 aonde ta DFill(QTD,5) eu coloquei DFill(QTD,5 true) , DFill(VL_BC_PIS, 2, true) eu coloquei DFill(VL_BC_PIS,2,False) e DFill(VL_BC_COFINS,2,true) para DFill(VL_BC_COFINS,2,false).

 

[Juliomar Marchetti]

boa tarde estou com problema no registro C170 no validador do pis e cofins quando tem uma nota de complemento de ICMS quando gera o arquivo de pis e cofins o campo qtde gera com o valor 0 (zero) e validador pede pra informar valor >0 e se deixar null ele aceita so que sempre fica com valor 0(zero), valor da base pis e cofins fica null e para ficar com o valor 0(zero). segue imagem dos erros no validador.

 

eu alterei a rotina ACBREPCBLOCO_C_CLASS na  função:TBLOCO_C.WRITEREGISTROC170 aonde ta DFill(QTD,5) eu coloquei DFill(QTD,5 true) , DFill(VL_BC_PIS, 2, true) eu coloquei DFill(VL_BC_PIS,2,False) e DFill(VL_BC_COFINS,2,true) para DFill(VL_BC_COFINS,2,false).

Boa tarde 

já tem um tópico que o Isaque explicou que criou o evento para que seja feito esse tratamento!

Verifique no componente que existe um evento para que seja tratado esses campo passando as informações !

[Ricardo De Luca]

verifiquei no componente so tem do registro C481 E C485

[Isaque Pinheiro]

Verdade, não te para o C170, mas quero fazer diferente agora, teste esses .pas em anexo e depois me da um feedback.

 

você irá passar o valor = null, pois mudei o tipo de double para variant.

ACBrEPCBloco_C.pas

ACBrEPCBloco_C_Class.pas

[Ricardo De Luca]

Bom dia Isaque  o problema da QTDE foi resolvido so  ficou o problema do vl_bc_pis e vl_bc_cofins

Edited September 8, 2014 by Ricardo De Luca

[Juliomar Marchetti]

Bom Administradores  o problema da QTDE foi resolvido so  ficou o problema do vl_bc_pis e vl_bc_cofins

Uma questão que conversamos eu o Isaque é sobre as casas decimais!

não teve problemas de arredondamento ou truncamento?

[Ricardo De Luca]

bom dia juliomar os valores estão zerado mesmo e uma nota de complemento de ICMS então assim alguns valores tem que ser zerado.

[Juliomar Marchetti]

Não seria essa a questão mas sim valor tipo 3,4232 como ficou entende?

[Ricardo De Luca]

juliomar viu da uma na imagem pra vc entender melhor o que quero dizer.

 

[Isaque Pinheiro]

Alimente com Zero, como foi feito em ICMS ST, IPI.

[Ricardo De Luca]

da uma olhada nesta parte da rotina

 

 

function TACBrTXTClass.DFill(value:double; Decimal:Integer=2; nulo:boolean=false):string;

begin

    if (Nulo) and (value=0) then begin

       result := FDelimitador;

       exit;

    end;

    Result:= FDelimitador+ FormatFloat('#0.'+stringofchar('0',decimal),value);

end;

 

se eu não mudar na rotina ACBREPCBloco_C_Class a linha aonde ta DFill(VL_BC_PIS,2,true) para DFill(VL_BC_PIS,2,false) não vai alimentar com o valor zero olha código acima aonde ta if (Nulo) and (value=0) then begin na rotina atual DFill(VL_VC_PIS,2,TRUE) então o NULO VAI SER VERDADE E O VALOR QUE TOU PASSANDO E 0(ZERO) ele vai retornar o delimidador sem valor.

Edited September 8, 2014 by Ricardo De Luca

[Isaque Pinheiro]

Segue alteração em anexo para teste, só subirei após alguns dias de testes, inclusive eu farei com meus clientes este mês.

ACBrEPCBloco_C.pas

ACBrEPCBloco_C_Class.pas

[Ricardo De Luca]

e isso Isaque resolvido obrigado.

 

Mas lembrando este problema deu numa NF-e de Complemento de ICMS.

Edited September 8, 2014 by Ricardo De Luca

[analista.edilson]

Bom dia.

 

Percebi que os campos "VL_BC_PIS" e "VL_BC_COFINS" está como "variant" e isso está causando um problema

de arredondamento, por exemplo tenho valor 62,175 e ele está transformando para 62,17.

 

A base de ICMS tenho o mesmo valor e está funcionando corretamente 62,175 gera 62.18, e este campo é currency,

alterei o código fonte dos campos VL_BC_PIS e VL_BC_COFINS para currency e passou a mostrar corretamente

isso pode ser dessa forma?

[Isaque Pinheiro]

Edison, vou analisar essa situação, a mudança para Variant é foi para atender s situações onde campos precisem ir como null, mas meu receio era exatamente esse, arredondamento no tido Variant, vou fazer uns testes e dou um retorno.

 

Em qual registro ?

[Isaque Pinheiro]

Resolvido, no Guia Pratico os campos são com duas casas decimais, dessa forma, você deve fazer esse tratamento na sua aplicação e não passar valores com mais do que é solicitado para que o componente faça algum tratamento.

[analista.edilson]

Entendo, tentei isso também antes de post aqui,  e aconteceu o seguinte, passei o valor de 62,18 mas 

no arquivo texto saiu 62,17 realmente não entendi mais de qualquer forma vou verificar novamente.

 

Obrigado pela atenção.

[EMBarbosa]

Entendo, tentei isso também antes de post aqui,  e aconteceu o seguinte, passei o valor de 62,18 mas 

no arquivo texto saiu 62,17 realmente não entendi mais de qualquer forma vou verificar novamente.

 

Obrigado pela atenção.

Veja esse tópico:

[analista.edilson]

Desculpe reativar um post antigo, analisei melhor percebi que problema está no meu fonte e não nos fontes do Acbr.

[Isaque Pinheiro]

Obrigado pelo feedback, precisando estamos a disposição.