Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Thiago Pettean

Membros
  • Posts

    15
  • Joined

  • Last visited

Thiago Pettean's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. 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
  2. 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
  3. 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
  4. 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;
  5. 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.
  6. 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.
  7. 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.
  8. 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.
  9. 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á.
  10. 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.
  11. Boa Tarde Italo, Vou tentar descobrir isso e volto a postar aqui mesmo. Obrigado desde já.
  12. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.