Joao infog

Boa tarde, Ao emitir uma nota de serviço à prazo pelo provedor Publica, é impresso a condição de pagamento como "À Vista", embora esteja configurado para receber a condição correta, e quando é feito pagamento à vista, a forma de pagamento vem vazio. O mesmo ocorre com o XML. Segue exemplo abaixo COMPRA FEITA À PRAZO EM 2 VEZES COMPRA FEITA À VISTA if qryConsPgto.FieldByName('TP_PAGAMENTO').AsInteger = 0 then CondicaoPagamento.Condicao := cpAVista else CondicaoPagamento.Condicao := cpAPrazo; Ele entra corretamente dentro da validação.

Obrigada a todos pela ajuda, consegui resolver o problema da seguinte forma: Quando a função era chamada, era passado objNfe como parâmetro. Visto que, objNfe é ACBrNFe.NotasFiscais.Add.nfe, apenas alterei o with para objNfe e a a tag passou a ser gerada.

procedure TManipuladorArquivoNFe.pInfPagamentos(objNfe: TNfe; Pag: TpagCollection; ID_NF_CONTABIL_C: Int64); var item : TpagCollectionItem; FConsulta: TConsultaSQL; fTroco : Currency; vPag : Extended; totalPag : Extended; difPag : Extended; begin if (ACBrNFe.Configuracoes.Geral.VersaoDF = ve400) then if (objNfe.Ide.finNFe in [fnComplementar, fnAjuste, fnDevolucao]) or (FL_Igonrar_cxa) then begin with ACBrNFe.NotasFiscais.Add.nfe do begin with Pag.New do begin tPag := fpSemPagamento; vPag := 0; end; end; Exit; end; end; end; O código inteiro é feito com ACBrNFe e não com ACBrNFe1 como sugerido acima. Porém está funcionando tudo corretamente, exceto essa tag.

Bom dia, tentei de todas as formas possíveis. Fiz como você mandou acima e continua dando o mesmo erro. Debugando ele passa por todas as linhas corretamente. Segui o exemplo do demo do acbr e fiz igual e mesmo assim não funcionou.

Tentei mapear a unidade de rede e funcionou, porém só alterando a configuração não. Voltei para o xsNone e mapeei o caminho. Muito obrigada pela ajuda.

O erro que dá é o seguinte: Como citado na imagem acima, alterei a configuração SSLXmlSignLib de xsNone para xsMsXML, porém dá o erro acima. Os schemas estão corretos e atualizados, pois os mesmos funcionam localmente.

Olá, conferi aqui e não é usado o certificado A3. Tentei mudar a configuração mas não funcionou, estou fazendo alguma coisa errada?

Bom dia, Após atualizar os fontes há algum tempo atrás, percebi que o componente não consegue encontrar os schemas pela rede. Após debugar o componente, percebi que o sistema passa o caminho corretamente para o ACBr, contudo, ao fazer a verificação se encontra o arquivo na pasta, não é encontrado nada. Se é configurado uma pasta local é encontrado sem problemas, porém ao configurar uma pasta da rede ele não encontra. Debuguei e está sendo passado certo o caminho dos schemas na rede. Gostaria de saber se o ACBr descontinuou isso ou se é algum erro. Grata, Bárbara.

Não, os antigos programadores fizeram dessa forma no sistema. Então, ontem fui atualizar o ACBr e deu erro justamente nessa parte. Antes era feito da seguinte forma: procedure TManipuladorArquivoNFe.pSetInfPagamentos(Pag: TpagCollection) begin item := TPagCollectionItem.Create(Pag); Acusou o erro no create que não poderia ser passado parâmetros, porém antes da atualização funcionava perfeitamente. Então tirei o parâmetro e o detPag deixou de ser criado no XML. Agora tentei ajustar o código como no Demo e dá acess violation logo na primeira linha. As variáveis foram declaradas da mesma forma que o Demo. item := NotaF.NFe.pag.Add;

Antes do with, dou um create em "TpagCollectionItem ". Após o if not, fiz uma venda que entrou no primeiro if e tPag recebeu fpDinheiro. Continua o mesmo erro.

Boa tarde, Atualizei os fontes do acbr (incluindo os schemas), e após a atualização as notas em homologação pararam de funcionar. Olhei o XML e percebi que a tag <detpag> não está sendo criada. Os valores de <tpag> e <vpag> estão sendo passados, conforme anexo abaixo. O erro diz o seguinte: with TpagCollectionItem do begin if not FConsulta.IsEmpty then begin if FConsulta.FieldByName('FL_CHEQUE').AsString = PGTO_DINHEIRO then tPag := fpDinheiro else if FConsulta.FieldByName('FL_CHEQUE').AsString = PGTO_CHEQUE then tPag := fpCheque else if FConsulta.FieldByName('FL_CHEQUE').AsString = PGTO_OUTROS then tPag := fpOutro; vPag := Iif(FConsulta.FieldByName('VL_ENTRADA').asCurrency > 0, FConsulta.FieldByName('VL_ENTRADA').asCurrency, FConsulta.FieldByName('VL_SAIDA').asCurrency) end; end; Grata, Bárbara. 42190303657739000169558550000021231860846835-nfe.xml

Muito obrigada a todos que contribuíram, consegui ajeitar a configuração.

Boa tarde, Estou com um problema para salvar os XMLs. Foi solicitado que as notas que possuíssem erro de emissão, fossem salvas em outro lugar para não se misturar com os XMLs corretos. Porém, ao depurar o código, percebi que primeiro é salvo o XML na pasta (...201903/NFE) e só depois é validado se está correta a nota, salvando todas na mesma pasta (erradas ou corretas), gerando conflito ao enviar a pasta para a contabilidade. Gostaria de saber se existe alguma solução para isso. Grata, Bárbara.

Aqui os fontes foram atualizados e não está funcionando em produção.

Olá, Italo! Isso já foi feito. Alguma outra solução?

Boa tarde, Ao atualizar da Betha para a Publica na cidade de Chapecó/SC, o cancelamento da NFS-e pelo ACBr deixou de funcionar. Segue foto do erro em anexo.