Thiago Pettean

Brasilia mesmo

Bom diz os ajustes aqui. Essa questão de estar amarrado ao A001 foi falha minha, quando eu estava compilando o código e ele não estava reconhecendo as alterações coloquei lá para fazer teste e acabei esquecendo, tanto que acabei usando, no resto da estrutura, o vinculo com o A020 mesmo. Desculpe pelo equivoco e obrigado por avisar, segue os fontes reajustados. ACBrLFD.pas ACBrLFDBloco_A.pas ACBrLFDBloco_A_Class.pas ACBrLFDBloco_B_Class.pas

Vou fazer esse ajuste que comentou e subo aqui novamente. Essa parte de criação dele estar vinculada ao A001 não lembrava que estava assim, se esta assim esta errado, vou ajustar. Manual: http://www1.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2007/..%5C2005%5CAC070_05.htm

Isaque eu atualmente estou usando o Trunk2, e já fiz os ajustes no próprio Trunk2. E as alterações foram necessárias só nesses quatro fontes mesmo. Vou coloca-os aqui novamente, mas estão na versão do Trunk2 mesmo, a mais atual inclusive. Obrigado. ACBrLFD.pas ACBrLFDBloco_A.pas ACBrLFDBloco_A_Class.pas ACBrLFDBloco_B_Class.pas

Acabei de retirar os fontes que alterei da pasta e baixar novamente. Aqui estava dando erro no validador pois não estava gerando o bloco A200. A função Write do loco A200 esta assim depois de feito o download. procedure TBloco_A.WriteRegistroA200(RegA020: TRegistroA020); begin end; Nos fontes que eu enviei acima eu inclui o bloco, como abaixo. procedure TBloco_A.WriteRegistroA200(RegA020: TRegistroA020); var intFor: Integer; begin if Assigned(RegA020.RegistroA200) then begin for intFor := 0 to RegA020.RegistroA200.Count - 1 do begin with RegA020.RegistroA200.Items[intFor] do begin Add( LFill('A200') + LFill(Integer(NUM_ITEM),2) + LFill(COD_ITEM) + DFill(VL_UNIT,3) + DFill(QTD,3) + LFill(UNID) + LFill(VL_ITEM,2) + LFill(VL_DESC_I,2) + LFill(CTISS) + LFill(VL_BC_ISS_I,2) + LFill(ALIQ_ISS,2) + LFill(VL_ISS_I,2) ); end; RegistroA990.QTD_LIN_A := RegistroA990.QTD_LIN_A + 1; end; FRegistroA200Count := FRegistroA200Count + RegA020.RegistroA200.Count; end; End;

Eu usei o Trunk2, o código que devolvi foi do Trunk2. Sim com o manual e com o validador, inclusive após ajustes o validador aceitou o arquivo que o mesmo não estava aceitando pois não gerava mais os blocos.

Foi o que eu fiz, já são os fontes que mandei ai, já estou usando o Trunk2 o problema aqui ocorreu que no Trunk estava funcionando, e quando atualizei parou pois estavam faltando alguns blocos que no Trunk antigo tinha, como exemplo o A200. Verifica se no seu existe no Trunk2, se não estiver com problema na minha versão acredito que no seu não exista também. E no Trunk antigo existia, então eu apliquei o que eu senti falta pelo menos no Trunk2 e coloquei os fontes na postagem acima como solicitado. Obrigado.

Tudo bem, sem problemas, foi o que eu disse o ultimo fonte do Trunk estava muito diferente do Trunk2, não sei se ainda tem acesso ao repositório do Trunk mas o ultimo fonte dele tinham algumas funções que no Trunk2 nem existem, dando a impressão de estar mais atualizado que o Trunk2, eu peguei os dois comparei e meio que fiz um merge. No bloco A eu fiz alguns ajustes alem disso pois estava com erro no A020 e no A200. Mas tranquilo sem pressa, se possível só me avisar para eu tirar os fontes alterados e atualizar eles quando for possível. Obrigado pela atenção.

Bom dia, obrigado pela resposta e peço desculpas pela demora, ontem teve uma falta de energia onde trabalho e acabei mal conseguindo trabalhar. Notei diferenças e fiz algumas alterações nos seguintes arquivos, para que ele pudesse ser emitido sem erros ACBrLFD.pas ACBrLFDBloco_A.pas ACBrLFDBloco_A_Class.pas ACBrLFDBloco_B_Class.pas Obrigado pela atenção.

Olá pessoal, estou com alguns problemas ao gerar o LFD isso depois da atualização para o Trunk 2. Vi por exemplo que o Bloco A200 não existe no "ACBrLFDBloco_A_Class", e no Trunk antigo existia. Porem fui tentar alterar e parece que o mesmo não considera nenhuma alteração, na compilação na hora de linkar parece que ele desconsidera qualquer linha alterada por mim, pelo menos no meu código. Se puderem me ajudar é um tanto quanto urgente. Talvez esteja mais atualizado no Trunk antigo. Obrigado desde já.

Alguma novidade sobre este provedor?

Muito obrigado Italo

Boa Tarde Italo, fiz um teste na cidade de Itu, lá não existe a obrigatoriedade é apenas opcional, porem se você envia a tag mesmo zerada a nota autoriza normalmente, acredito eu que essa implementação não irá atrapalhar as outras cidades por ser opcional, e irá ajudar nas cidades que são obrigatórias. Agradeço a atenção de todos.

Boa Tarde Italo, Vou tentar descobrir isso e volto a postar aqui mesmo. Obrigado desde já.

Boa tarde a todos, estava com um problema na GINFES e fazendo testes em um dos nossos clientes localizado em Guarulhos vi que se tornou obrigatório o envio da TAG <ValorDeducoes> mesmo que zerado e o código não estava adaptado para isso então tive que mexer no pnfsNFSeW.pas, na função GerarServicoValores_V1, na linha que então era: if FProvedor in [proRecife, proFreire, proPronim, proISSNET, proNFSeBrasil] Alterei para : if FProvedor in [proRecife, proFreire, proPronim, proISSNET, proNFSeBrasil, proGINFES] Adicionando proGINFES e a nota autorizou, se possível e estiver certo se puderem verificar isso para sair nas próximas versões. OBS: Sou novo aqui no fórum então não sabia se envia diretamente a alguem para verificar a alteração então criei um tópico, agradeço desde já. Fonte esta anexado. pnfsNFSeW.pas