Pesquisar na Comunidade
Showing results for tags 'enviarloterps xml acbr'.
Encontrado 1 registro
-
Bom dia. Estou usando pela primeira vez os componentes do ACBr em Delphi para assinar o documento em xml gerado pela minha aplicação e depois Emitir para a prefeitura de salvador utilizando o Servico <EnviarRpsLoteEnvio>. Minha aplicação já gera o XML automaticamente com todos os campos necessários pelo layout XSD. Consegui utilizar o componente da ACBr para assinar o xml de acordo com os moldes da prefeitura de Salvador e quero utilizar o ACBr também para emitir. Procurando na internet, achei algo do tipo procedure TvwNFSEExportacao.EmitirXML; var xmlFile: IXMLDocument; xmlAssinado: string; begin xmlFile := SysXML.ReadFile('C:/dados/xml_assinado.xml'); xmlAssinado := xmlFile.XML.Text; nfse.SSL.SSLCryptLib := cryWinCrypt; nfse.SSL.SSLHttpLib := httpWinHttp; nfse.SSL.SSLType := LT_TLSv1_2; nfse.Configuracoes.Certificados.ArquivoPFX := cPathCertificado; nfse.Configuracoes.Certificados.Senha := cSenhaCertificado; nfse.Configuracoes.Geral.CodigoMunicipio := 2927408; nfse.Configuracoes.Geral.Provedor := proISSSalvador; nfse.Configuracoes.WebServices.Ambiente := taHomologacao; try nfse.NotasFiscais.Clear; nfse.NotasFiscais.LoadFromFile('C:/dados/xml_assinado.xml'); nfse.Emitir('L0003'); nfse.NotasFiscais.Items[0].GravarXML('resposta.xml', 'c:/dados'); except raise; end; end; Não sei se a solução acima é a mais correta até por que quando chamo 'Emitir' passando o ID do lote no meu arquivo, o sistema da a mensagem de erro: "ID Inválido. Impossível Salvar XML". Alguém pode me orientar? Ou se é possível utilizar o ACBr apenas para fazer o envio, ou ele só envia se eu montar todo o xml pelo componente?