Ir para conteúdo
  • Cadastre-se

Ademir P. Voigt

Membros
  • Total de ítens

    178
  • Registro em

  • Última visita

Tudo que Ademir P. Voigt postou

  1. Eu emito NFe normalmente. Meu certificado é da safeweb, diferente da caixa que tem todas aquelas cadeias. Tem algo em especifico relacionado ao certificado quando falamos de manifesto? NFe não tenho nenhum problema para emitir, cancelar, consultar etc...
  2. Deixa eu postar aqui como está o form e o codigo. Uso igual sim ao do SVN. svn://svn.code.sf.net/p/acbr/code/trunk procedure TForm1.btnManifDestConfirmacaoClick(Sender: TObject); var Chave, idLote, CNPJ: string; lMsg: string; begin Chave:='41140781106957000119550010005481801807170610'; if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Chave da NF-e', Chave)) then exit; Chave := Trim(OnlyNumber(Chave)); idLote := '1'; if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; CNPJ := ''; if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then exit; ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); with AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; ShowMessage(lMsg); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS); // ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX LoadXML(MemoResp, WBResposta); end;
  3. Boa Tarde! Estou usando o demo do ACBR para enviar um Manifesto de Destinatário Conf. Operação. Estou com os dados preenchidos e certificado funcionando no Demo, pois faço consultas e outros testes sem problemas. Quando envio o manifesto pelo botão do demo, recebo sempre a mesma mensagem de erro conforme anexo. Estou realizando a operação com meus dados, meu certificado e usando a chave de uma NFe emitida para meu CNPJ.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.