Ir para conteúdo
  • Cadastre-se

dev botao

Bloco C181


  • Este tópico foi criado há 3312 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

no guia prático EFD

 

REGISTRO C181: DETALHAMENTO DA CONSOLIDAÇÃO – OPERAÇÕES DE VENDAS – PIS/PASEP

 

quando utlizo cst '05' - Operação Tributável por Substituição Tributária (stpisValorAliquotaPorST)

 

o arquivo e gerado desta forma

|C181|05|5102|4,90|0,00|4,90||||0,00||
|C185|05|5102|4,90|0,00|4,90||||0,00||
 

o campo ALIQ_PIS no manual não é obrigatório e ao gerar o arquivo o campo grava vazio não esta permitindo gravar aliquota |0,00|

 

ao validar o arquivo com este campo vazio da o erro "É obrigatório infomar a Alíquota em reais ou em percentual.

 

E desta forma o arquivo e validado com sucesso

|C181|05|5102|4,90|0,00|4,90|0,00|||0,00||
|C185|05|5102|4,90|0,00|4,90|0,00|||0,00||

Editado por hetoandrade
Link para o comentário
Compartilhar em outros sites

Bom dia, baixe esses arquivos em anexo e faça um teste com eles, mudei o tipo para variant, dessa forma de passar valores mesmo que sejam 0 (Zero) irá sair no arquivo, e se precisar que não saia, basta passar o valor := null

 

Após o teste se funcionar me de um feedback, assim subo para o repositório.

 

ACBrEPCBloco_C.zip

  • Curtir 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Na alteração para variant o campo VL_ITEM do bloco (ACBrSPEDPisCofins1.Bloco_C.RegistroC185New) que era currency tambem ficou como variant,  na

procedure TBloco_C.WriteRegistroC185(RegC180: TRegistroC180); (unit ACBrEPCBloco_C_Class linha: 1169) que preenche os valores e chamada a

function TACBrTXTClass.VLFill(Value: Variant; Size: Integer; Decimal: Integer; Caracter: Char; Mascara: String): String; (unit ACBrTXTClass linha358)

 

o VL_ITEM esta caindo direto nesta linha e da o seguinte erro (Format %a' invalid or incompatible with argument.)

  // Checa se é um valor numérico
  if not IsNumber(Value) then
     raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) );

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Na alteração para variant o campo VL_ITEM do bloco (ACBrSPEDPisCofins1.Bloco_C.RegistroC185New) que era currency tambem ficou como variant,  na

procedure TBloco_C.WriteRegistroC185(RegC180: TRegistroC180); (unit ACBrEPCBloco_C_Class linha: 1169) que preenche os valores e chamada a

function TACBrTXTClass.VLFill(Value: Variant; Size: Integer; Decimal: Integer; Caracter: Char; Mascara: String): String; (unit ACBrTXTClass linha358)

 

o VL_ITEM esta caindo direto nesta linha e da o seguinte erro (Format %a' invalid or incompatible with argument.)

  // Checa se é um valor numérico

  if not IsNumber(Value) then

     raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) );

Boa tarde Heto

troque o comando IsNumber por VarIsNumeric

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Perfeito, fiz a alteração e funcionou para o BLOCO C185 mas o bloco C181 que é identico nao consigo gravar. |0,00| no campo ALIQ_PIS ainda ocorre o erro.

veja como ficou o arquivo.

 

|C180|55|01082014|31082014|0000078909106|38089149||23,07|
|C181|06|5102|23,07|0,00|23,07||||0,00||
|C185|06|5102|23,07|0,00|23,07|0,0000|||0,00||

 

|C180|55|01082014|31082014|0000078909113|38089419||28,60|
|C181|06|5102|28,60|0,00|28,60||||0,00||
|C185|06|5102|28,60|0,00|28,60|0,0000|||0,00||
 

no bloco C185 ja consigo passar a aliquota nas no C181 não da certo por que os campos estão como Currency

 

teria que ficar desta forma:

|C180|55|01082014|31082014|0000078909106|38089149||23,07|
|C181|06|5102|23,07|0,00|23,07|0,0000|||0,00||
|C185|06|5102|23,07|0,00|23,07|0,0000|||0,00||

post-4970-0-95759800-1414412520_thumb.gi

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

bom dia, vou implementar para o C181 tb, te aviso assim que subir.

  • Curtir 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

Recuso implementado e disponível no repositório, só atualizar seu fonte.

  • Curtir 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

Estranho no repositório está com VarIsNumeric, clique com o botão direito sobre essa Unit e seleciona a opção Revert... do TortoiseSVN.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • 4 meses depois ...
  • Moderadores

fiz o revert continua isnumber.

 

  // Checa se é um valor numérico

  if not IsNumber(Value) then

     raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) );

 

Boa noite Heto

conseguiu resolver seu problema? caso negativo efetue uma limpeza no svn e baixe novamente

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.