Bloco C181

[Hetosoft Sistemas]

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 24 Outubro, 2014 por hetoandrade

[Isaque Pinheiro]

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

[Hetosoft Sistemas]

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]) );

[Juliomar Marchetti]

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

[Hetosoft Sistemas]

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||

[Isaque Pinheiro]

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

[Isaque Pinheiro]

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

[Hetosoft Sistemas]

Isaque Pinheiro, obrigado pela ajuda deu tudo certo. So um detalhe na unit ACBrTXTClass linha:379 quando atualizei o fonte ainda esta IsNumber tive que alterar novamente para (VarIsNumeric).

[Isaque Pinheiro]

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

[Hetosoft Sistemas]

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]) );
 

[Juliomar Marchetti]

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