Pesquisar na Comunidade

Boa tarde! Estamos finalizando a atualização dos componentes ACBr, e estamos na atualização do ACBrNFSe. Trabalhamos com provedor GovDigital, e não estamos obtendo as informações de retorno da nota, isto é os campos Numero da Nota, Código Verificação e etc. Em anexo temos o xml de retorno 476-recS.xml e o arquivo ini utilizado GovDigital.INI Abaixo rotina para obter dados com todos os campos em vermelho retornando em branco: if ACBrNFSe.EnviarSincrono(W_NrLote, false) then begin W_Status := '03'; W_Nr_Lote := StrToFloat(ACBrNFSe.WebServices.EnviarSincrono.NumeroLote); W_Dt_Protocolo := ACBrNFSe.WebServices.EnviarSincrono.DataRecebimento; W_Nr_Protocolo := ACBrNFSe.WebServices.EnviarSincrono.Protocolo; W_Msg := 'Autorizado o uso da NFS-e'; GravaResultadoLote(W_Nr_Lote, W_Dt_Protocolo, W_Nr_Protocolo, W_Msg, W_Status); for W_I := 0 to ACBrNFSe.NotasFiscais.Count-1 do begin W_Nr := StrToInt(ACBrNFSe.NotasFiscais.Items[W_I].NFSe.Numero); W_Nr_RPS := StrToFloat(ACBrNFSe.NotasFiscais.Items[W_I].NFSe.IdentificacaoRps.Numero); W_Serie := ACBrNFSe.NotasFiscais.Items[W_I].NFSe.IdentificacaoRps.Serie; W_CD_Verificacao := ACBrNFSe.NotasFiscais.Items[W_I].NFSe.CodigoVerificacao; W_ChaveAcesso := Mascarar('00',ACBrNFSe.NotasFiscais.Items[W_I].NFSe.Prestador.cUF) + FormatDateTime('YYMM',ACBrNFSe.NotasFiscais.Items[W_I].NFSe.DataEmissao) + ACBrNFSe.NotasFiscais.Items[W_I].NFSe.Prestador.Cnpj + '56'+ Mascarar('000000000',StrToInt64(ACBrNFSe.NotasFiscais.Items[W_I].NFSe.Numero)); BuscaDadosNota(W_Nr_RPS,W_NR_Pedido,W_Cliente, W_NM_Cliente); SQLDS_AuxNotaUpdate.Close; SQLDS_AuxNotaUpdate.Params[00].AsInteger := W_Nr; // NOT_NR SQLDS_AuxNotaUpdate.Params[01].AsDateTime := StrToDate(FormatDateTime('DD/MM/YYYY',ACBrNFSe.NotasFiscais.Items[W_I].NFSe.DataEmissao)); // NOT_DT_EMISSAO SQLDS_AuxNotaUpdate.Params[02].AsString := W_CD_Verificacao; // NOT_CD_VERIFICACAO_NFSE SQLDS_AuxNotaUpdate.Params[03].AsString := W_Nr_Protocolo; // NOT_NR_PROTOCOLO_AUT_NFE SQLDS_AuxNotaUpdate.Params[04].AsDateTime := W_Dt_Protocolo; // NOT_DT_HORA_PROC_NFE SQLDS_AuxNotaUpdate.Params[05].AsString := W_Status; // NOT_STATUS_NFSE SQLDS_AuxNotaUpdate.Params[06].AsString := W_Msg; // NOT_MSG_STATUS_NFE SQLDS_AuxNotaUpdate.Params[07].AsString := '100'; // NOT_STATUS_RETORNO_NFE SQLDS_AuxNotaUpdate.Params[08].AsString := '02'; // NOT_TIPO_SITUACAO SQLDS_AuxNotaUpdate.Params[09].AsFloat := W_Nr_Lote; // Numero do Lote SQLDS_AuxNotaUpdate.Params[10].AsString := W_ChaveAcesso; // Chave de Acesso SQLDS_AuxNotaUpdate.Params[11].AsDateTime := W_Dt_Transmissao; // Data da Nota SQLDS_AuxNotaUpdate.Params[12].AsFloat := StrToFloat(ACBrNFSe.NotasFiscais.Items[W_I].NFSe.IdentificacaoRps.Numero); // Nr. RPS SQLDS_AuxNotaUpdate.ExecSQL; GravaNFSeLote(W_Nr_Lote,W_Nr_RPS,W_Nr,W_NR_Pedido,W_Cliente,W_NM_Cliente, W_Serie,W_CD_Verificacao,W_Msg,W_Status); if CheckBoxGerarPDFNFSe.Checked then ACBrNFSe.DANFSE.ImprimirDANFSePDF; end; W_Flag_Transmitido := True; end Certo de vossa atenção de sempre, antecipamos agradecimentos.

Boa noite Estou carregando o XML em anexo no componente sem erros. Ao tentar contar a quantidade de notas do XML (ACBrNFSe1.NotasFiscais.Count), o retorno é 0. Alguem pode me ajudar? 2016-01_127625-in.xml 2016-02_141741-in (1).xml

Boa tarde. Diante de uma necessidade, estou fazendo carregando o XML de CTe gerado há vários meses atrás. Como foi alterado a forma de Gerar Chave pela PL_104, Acredito ser desnecessário a chamada da função "GerarCTe;" dentro da função LoadFromStream da unit ACBrCTeConhecimentos. Essa chamada, faz com que a Chave seja gerada novamente, e o digito acaba não sendo igual, ou seja, a chave é gerada com numeração diferente. Abs.