ailtonbrc

Um erro onde mostra a mens. "uma rotina de Inicialização da biblioteca de vínculo dinâmico(DLL) falhou" esta acontecendo quando executo o demo do NFSe na opçao gerar e enviar lote na linha 9872 da classe "ACBrMSXML2_TLB", como eu devo proceder diante deste erro, estou tentando usar o provedor DSF para cidade de Campo Grande - MS class function CoDOMDocument50.Create: IXMLDOMDocument3; begin Result := CreateComObject(CLASS_DOMDocument50) as IXMLDOMDocument3; end; http://msdeveloper.com.br/image/erro de dll.png uma rotina de Inicialização da biblioteca de vínculo dinâmico(DLL) falhou

Italo estou enviando aqui referente ao post fiz algumas alterações que resolveu quase todos os erros que indiquei, mas sobrou outros que nao entendi. seque anexo os códigos para vc dar uma analisada e ver se esta a contento. onde inclui informação eu coloquei o meu nome para que você localize de forma mais fácil "Incluido por Ailton Branco em 16/07/2014" ACBrNFSeWebServices.pas ACBrProvedorIssDsf.pas

Italo, Atualizei e o erro persiste, entao eu andei depurando com mais cuidado e cheguei a um outro lugar que pode ajudar a desvendar o erro na linha 751 da Unit Soap.SOAPHTTPTrans; o valor da FURLHost chega com valor vazio '' desta forma não tem o endereço para conexão quando ele passa por este codigo gera o erro que e mostrado na linha 753 Check(not Assigned(FInetConnect)); que mostra o erro, então depurando quando chegou nesta linha eu coloquei alterei o valor da FURLHost para http://nfse.pmcg.ms.gov.br/WsNFe2/LoteRps desta forma a conexao foi efetuada com sucesso e o processo deu andamento e foi para outra etapa que gerou outro erro identifiquei o codigo com o nome Codigo Erro 2 , erro mostrado na imagem : Codigo Erro 1 try FInetConnect := InternetConnect(FInetRoot, PChar(FURLHost), FURLPort, PChar(FUserName), PChar(FPassword), INTERNET_SERVICE_HTTP, 0, Cardinal(Self)); Check(not Assigned(FInetConnect)); FConnected := True; except InternetCloseHandle(FInetRoot); FInetRoot := nil; raise; end; Codigo Erro 2 if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError)); raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} ); end; end;

o erro ocorre exatamente nesta linha marcada em vermelho "unit ACBrNFSeWebServices; na linha 4889" retorna o seguinte erro: http://www.msdeveloper.com.br/image/erro_nfse.png, OBS: Forma que usei a chamada e os parametros enviado foi assim: {NFSe.ConsultarSequencialRPS('5002704','10255232000144','00132716005', '1'); } estes dados informado nos parametros são os dados reais do cliente registrado na base da Prefeitura de Campo Grande - MS StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := FProvedorClass.GetRetornoWS(acConsSecRps, FRetornoWS); StrStream.Free;

Italo, o erro indicado acima esta resolvido mas em outra parte esta retornando erros que nao consigo identificar, inclusive algumas mens. de erros retorna com caracteres em chines, "Joguei no google e a tradução saiu zuada", se voce quizer eu passo uma inscrição, um cnpj e um certificado valido para vc fazer uns testes ai com a prefeitura de Campo Grande - MS derrepente eu saio do rolo que estou, ate por nao entender que esta acontecendo para te explicar com mais propriedade.

Italo eu baixei e mesmo assim da o erro então acompanhei o código e encontrei que vc fez alteração mas mesmo assim o erro persiste. masquei o local do erro para ter certeza que foi ai a alteração quando ele chega na área marcada em vermelho da erro de violação de acesso indicando que Self.ConsSeqRPS.FCidade não esta estanciada. a nao ser que eu esteja fazendo chamada errado, estou chamando assim ----------------------------------------------------------------------------------------------------- procedure TfrmConversao.cxButton2Click(Sender: TObject); begin //consultar sequencial do proximo RPS NFSe.ConsultarSequencialRPS( '9051','10255232000144','132716005','99'); end; ----------------------------------------------------------------------------------------------------- function TWebServices.ConsultaSequencialRPS(ACidade, ACnpj, AInscricaoMunicipal, ASeriePrestacao: String): Boolean; begin ACnpj := OnlyNumber(ACnpj); if not ValidarCNPJ(ACnpj) then raise Exception.Create('CNPJ '+ACnpj+' inválido.'); // Alterado por Italo em 30/06/2014 Self.ConsSeqRPS.FCidade := ACidade; Self.ConsSeqRPS.FCnpj := ACnpj; Self.ConsSeqRPS.FInscricaoMunicipal := AInscricaoMunicipal; Self.ConsSeqRPS.FSeriePrestacao := ASeriePrestacao; Result := Self.ConsSeqRPS.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsSeqRPS.Msg); if Self.ConsSeqRPS.Msg <> '' then raise Exception.Create(Self.ConsSeqRPS.Msg) else raise Exception.Create('Erro Desconhecido ao Consultar a Sequencia de RPS!') end; end;

Estou tentando consultar a sequencia da RPS e estou tendo problemas no componente Chamada no meu sistema : ACBrNFSe1.ConsultarSequencialRPS( '9051','10255232000144','132716005','99'); erro dentro da unit ACBrNFSeWebServices na linha 2711, indica que "Self.ConsSeqRPS.Cnpj" e os demais esta nil causando erro apartir da linha 2718 onde destaquei em vermelho function TWebServices.ConsultaSequencialRPS(ACidade, ACnpj, AInscricaoMunicipal, ASeriePrestacao: String): Boolean; begin ACnpj := OnlyNumber(ACnpj); if not ValidarCNPJ(ACnpj) then raise Exception.Create('CNPJ '+ACnpj+' inválido.'); Self.ConsSeqRPS.Cnpj := ACnpj; Self.ConsSeqRPS.InscricaoMunicipal := AInscricaoMunicipal; Self.ConsSeqRPS.FSeriePrestacao := ASeriePrestacao; Result := Self.ConsSeqRPS.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsSeqRPS.Msg); if Self.ConsSeqRPS.Msg <> '' then raise Exception.Create(Self.ConsSeqRPS.Msg) else raise Exception.Create('Erro Desconhecido ao Consultar a Sequencia de RPS!') end; end;

sim eu estou olhando o exemplo e estou tentando executar por partes e estou encontrando algumas barreiras, parece que existe algumas mudanças aqui em campo grande, vou usar o componente e as alteracoes vou relatando para testes e possivel implementacao.

Alguem desenvolveu NFSe para Cidade de Campo Grande - MS usando os componentes ACBR, estou precisando de ajuda para iniciar o projeto, e aproveitando queria saber so SAC se aleguem fez este tipo de nota fiscal e se o pessoal do SAC("Pago") pode me ajudar com esta situação. Ailton Branco

alguem desenvolveu NFSe para a cidade de Campo Grande - MS com o ACBR? estou tendo uns problemas uns erros que nao estou me encontrando, e gostaria de saber de algum caso de sucesso, quero usar o ACBR e não a dll da propria prefeitura.

eu vi que no componente de NFSe nao tem o link de homologação da prefeitura de Campo Grande - MS entaão dei um pulinho na prefeitura e peguei o link segue para o caso de alguem puder incluir no componente http://treinamento.dsfweb.com.br/WsNFe2/LoteRps.jws segue tambem o link para o manual sendo que nas paginas 36 e 37 tem todos os links necessários; http://nfse.pmcg.ms.gov.br/NotaFiscal/cgrPDF/ManualNFSeDll.pdf Espero ter contribuido para alguma coisa Atenciosamente Ailton Branco

Valeu, eu estava tentando instalar pelo ACBRInstall, com a instalação manual deu certo... Obrigado

Tenho sim, o Fast Report que vem incluso na ide original,

Estou tentando instalar o componente no meu Delphi XE3 e esta dando o erro erro ao compilar os pacotes ACBrNFeDanfeFRpkg.dpk ACBr_BoletoFC_FR.dpk ACBrCTeDacteFRpkg.dpk ACBrNFSeDanfseFRpkg.dpk erro ao compilar qualquer pocote para os relatorios (*FR*.dpk) ja instalei outras vezes e nunca deu problema tive que formatar minha maquina instalei novamente o delphi e agora nao consigo mais instalar o componente, houve alguma alteração neste sentido??? fico grato pela ajuda.

o duro da brincadeira que moro em Campo Grande - MS , meu cliente e São Paulo, Paraná e Minas Gerais, para fazer os teste uso o certificado do meu cliente de MG, os outros clientes usa o certificado com o cartão e nao tenho como usar e pelo fato de eu morar em MS e fazer os testes em minas as vezes o bicho pega devido ao fuso horario, principalmente na hora de cancelar nota, então por isto a peregrinação para arrumar o certificado, vou ter que providenciar um pela inscrição estadual minha, e torcer para que PR e SP nao me de problemas. Mas Valeu galera.

Galera procurei no fórum mas não achei por isto estou recorrendo, Existe alguma forma de eu conseguir um certificado para desenvolvedor "EX: que acessa somente a sefaz de homologação?", eu tenho certificado de MG mas preciso ter de outros estados principalmente dos estados com fuso horário diferente para eu fazer alguns testes que tem me atormentado, mas não consigo um certificado para teste, -- Motivo de minha procura e devido a um teste que preciso fazer na sefaz de MS e fui na sefaz e o povo de lá nem sabe do que estou falando, e impressionante tem gente que esta na nota fiscal eletrônica do estado e não tem ideia do que eu falo, "Resposta deles se não tem no site não existe" e manda eu procurar no site. fico agradecido se alguém tiver alguma ideia.

Eu acatei esta postagem fiz um limpa apaguei a pasta do acbr desistalei do delphi pra vc ter uma ideia minha proxima tentativa era formatar a maquina, mas graças as ideias e ajuda sua e dos outros colegas nao precisei formatar, acabei de fazer mais 5 testes e deu perfeito, agradeço ai a todos.

Camarada não sei onde esta o fantasma mas final de semana quase comecei a babar pelo canto da boca de tanto tentar resolver este problema, então com base na sua sugestao de fazer com o demo, tentei novamente, fiz com o demo deu erro tambem, massss para minha surpresa tentei novamente no meu sistema DEU CERTO, fiquei encucado voltei para o demo e deu certo tambem???? juro que nao sei que houve segue abaixo como ficou o xml -<COFINS> -<COFINSNT> <CST>04</CST> </COFINSNT> </COFINS> vou fazer mais uma bateria de testes e volto informar aqui para encerrar o post.

Coloquei somente a parte do codigo pertinente "estou usando CST cfo04" visto que o produto e gás recebido da petrobras e os impostos sao retido na fonte, with Imposto do begin with PIS do begin // --------------------- end; //Cofins with COFINS do begin CST := cof04; COFINS.vBC := 0; COFINS.pCOFINS := 0; COFINS.vCOFINS := 0; COFINS.qBCProd := 0; COFINS.vAliqProd := 0; end; end; end; end;

entao o processo que fiz apontando para a pasta trunk esta correto? se for isto pode marcar o post como resolvido. Valeu

Régys Silveira tentei tudo que e possivel procurei tudo que e extensao que voce indicou apaguei a pasta do ACBr baixei novamente do novo link em pasta com outro nome para nao ter nada associado a antiga reinstalei inclusive achei um problema na instalacao conforme postei em outra questão mas o erro persiste ao gerar o xml ele gera errado <PIS> <PISAliq> <CST>04</CST> <vBC>0.00</vBC> <pPIS>0.00</pPIS> <vPIS>0.00</vPIS> </PISAliq> </PIS> <COFINS/> // aqui ele gera esta tag encerrando o cofins mas nao abre em lugar algum, então

Desistalei do ACBr completo e baixei pelo novo endereco do svn porem na hora de instalar deparei com um erro "Erro que eu ja encontrei outras vezes mas ai optei por instalar manualmente",. mas desta vez fiquei tentando para entender porque o instalador nao encontra o synapse.dpk e não encontrei, procurei no forum que me remeteu para este link e este porem neste segundo link indica que na segunda tela onde indica que o nome do diretorio de instalacao nao deve ser igual o diretorio do instalador, porem tentei isto tambem e nao deu certo e me deparei com a situação que se eu usar neste lugar a pasta trunk como pasta de instalação o erro nao aparece ele encontra o synapse.dpk posso colocar qualquer pasta que da erro mas se eu colocar a pasta trunk da tudo certo, isto e correto alguem ja passou por isto? C:\ACBr\trunk\

Realmente não resolveu, por desencargo de conciencia eu apaguei a pasta acbr, criei uma nova baixei novamente os componentes reinstalei e o erro persiste, baixei da o endereco svn://svn.code.sf.net/p/acbr/code/ o xml fica exatamente ao que enviei anexo anteriorente entao tentei tambem a seguinte situação "Enviei apenas o CST" e deu o mesmo resultado. //Cofins with COFINS do begin CST := cof04; {agora tem que ser assim} // COFINS.vBC := 0; // COFINS.pCOFINS := 0; // COFINS.vCOFINS := 0; // COFINS.qBCProd := 0; // COFINS.vAliqProd := 0; end; end

cara mil desculpas eu li isto e mesmo assim peguei errado, estou atualizando vou fazer novos testes e postar aqui. valeu mesmo

camarada achei que estava atualizado, mas nao estava no novo endereco. então peguei o novo e tentei pegar obter deste endereco "svn+ssh://[email protected]/p/acbr/code/ acbr-code" mas pede senha e nao achei no forum como resolver, vc sabe qual a senha pra isto.