joemil

ola pessoal, nao sei se este é o local correto, se nao for, podem mudar, ok? to tentando conectar com o webservice da Horus, mas sempre ocorre os erros: Invalid User ou java.lang.NullPointerException o webService é no endereco: http://aplicacao-homologacao.saude.gov.br/horus-ws-basico/RecebeDadosWS?wsdl a funcao importada pelo WSDL Importer: function GetRecebeDadosWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): RecebeDadosWS; to usando este codigo: procedure TForm1.Button1Click(Sender: TObject); var xRecebeDados: RecebeDadosWS; myByteArray: TByteDynArray; memStream: TMemoryStream; retorno: horus_ws_resposta; uf, proto, data, user: wideString; begin memstream := TMemoryStream.Create; try xml.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xml.SaveToStream(memstream); setLength(myByteArray, memStream.Size); if memstream.size > 0 then move(PAnsiChar(memStream.Memory)^, myByteArray[0], memStream.size); xRecebeDados := GetRecebeDadosWS(false,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray); {uf := '510020'; proto := '962'; data := '24/07/2013'; user := '[email protected]'; retorno := xRecebeDados.consultarInconsistenciasPorMunicipio(uf, proto, data, user);} ShowMessage('Mensagem de Retorno do WS' + #13 + #13 + retorno.horus_ws_mensagem.mensagem_global); finally memStream.Free; end; {myByteArray := FileToByteArray(ExtractFilePath(ParamStr(0)) + 'horus_entrada.xml'); xRecebeDados := GetRecebeDadosWS(false); //,'', HttpRio1); retorno := xRecebeDados.recebeDados(myByteArray);} end; a funcao recebeDados pede como parâmetro um TByteDynArray, q é o xml convertido tb ja tentei usar assim: xRecebeDados := GetRecebeDadosWS(false); qdo passo o HTTPRio como parâmetro, o evento RIOHTTPWebNode1BeforePost esta assim: procedure TForm1.RIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); var user, pass: widestring; begin user := '[email protected]'; pass := 'dnshorus1234'; if not InternetSetOption(Data, INTERNET_OPTION_USERNAME, PChar(user {HTTPRIO1.HTTPWebNode.UserName}), Length(user {HTTPRIO1.HTTPWebNode.UserName})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); if not InternetSetOption(Data, INTERNET_OPTION_PASSWORD, PChar(pass {HTTPRIO1.HTTPWebNode.Password}), Length(pass {HTTPRIO1.HTTPWebNode.Password})) then ShowMessage('Erro: ' + #13 + SysErrorMessage(GetLastError)); end; os fontes, o xml e o wsdl estao nos anexos. se alg puder dar uma forca, assim q ficar ok, posto o resultado aqui. valew usando D7. ja fiz a atualizacao do WSDL Importer Horus.rar

up

ola pessoal, tb estou com problemas na geracao da linha digitavel/codigo de barras do boleto Itau (por enqto so to usando ele) informo os dados: Conta: 01272 DigitoConta: 5 CodigoCedente: 01272 porem o numero da conta/cedente nao fica na posicao correta na linha digitavel/codigo de barras como devo informar o numero da conta/cedente para o componente? isso acontece toda vez q atualizo o ACBr. ja modifiquei o ACBRBoletoItau varias vezes, so q desta vez nao me lembro onde alterei, e a unit q havia alterado nao encontrei. e tb ta indo errado no arquivo remessa

ja encontrei: Numero do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; Data do protocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento;

ola pessoal, to iniciando o uso do ACBrNFSe novamente e tenho as duvidas: 1. apos enviar o RPS, como faco pra pegar o nº do protocolo? direto do xml ou tem algum propriedade pra isso? 2. apos consultar, como pego o numero da nfse e o codigo de verificacao? tb do xml?

ola pessoal, nao consegui fazer a pesquisa pq minha ta uma m.... se tiver algum post com a resposta, por gentileza, me informe fiz o preenchimento do campo vTotTrib, tanto pelo item, como pelo total da nota. o meu danfe ta informando invalid na hora da impressao: fiz assim: ITENS: with Imposto do begin vTotTrib := sqlItensVendasNF_Total_Trib.Value; .... TOTAL Total.ICMSTot.vTotTrib := sqlVendasNF_Total_Trib.Value; essa é a forma correta de preencher esses campos?

ola pessoal, nao to conseguindo instalar a danfe FR, pelo instalador tb nao instala qdo abro o pacote, consigo compilar ou dar um build, mas na hora q instala, da o erro: o q pode causar esse erro? to usando D7, FR v.4.12 enterprise

ola pessoal, estou tentando cancelar uma nota e tb to com problema. to usando este codigo (dica do regis: http://www.regys.com.br/como-enviar-um-evento-de-cancelamento-utilizando-o-acbrnfe/): NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); // Criar o cancelamento NFe.EventoNFe.Evento.Clear; //NFe.EventoNFe.idLote := NumeroLote; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := sqlVendasNFE_Serie.AsString; infEvento.CNPJ := OnlyNumber(sqlEmpresaCNPJ.AsString); infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := sqlVendasNFE_Protoc.Asstring; infEvento.detEvento.xJust := vAux; end; // Enviar o evento de cancelamento if NFe.EnviarEventoNFe(NumeroLote) then begin with NFe.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código: %d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos {DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;} end; end else begin with NFe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; mas recebo a mensagem de erro: porem a nota foi enviada hj de manha (04/04/2013 às 09:42:00)

ola pessoal, tenho aqui 2 projetos (principais) q usam o ACBr. Qdo dou um Build no primeiro, compila normal, mas no segundo da um monte de warnings (principalmente) no arquivo JwaWinBase.pas. e nao termina nunca de compilar. a diferenca principal de um pro outro é q o primeiro usa ZeosLib, dxRibbon (devexpress) e nao usa ACBrNFSe (este compila normal), e o outro nao tem dxRibbon, usa MyDAC e tem ACBrNFSe (este nao termina de compilar) o arquivo com as mensagens esta em anexo (é mto grande hehehe) algumas mensagens: To usando Delphi 7 JwaWinBase.txt

ta aqui, mas acho q ele ta pegando o fpTamanhoConta do ACBrBoleto.pas (10 digitos) e nao do ACBrBoletoItau (5 digitos), por isso fiz essa POG ACBrBancoItau.pas

mudei esta linha no ACBrBancoItau.pas: agora ta correto a linha digitavel

mesmo erro de novo. acabei de atualizar

ola pessoal, recebi o email informando o envio da primeira nota fiscal eletronica ao consumidor final - NFC-e. aqui ta o link do post: http://www.spedbrasil.net/forum/topics/nfc-e-emitida-a-1a-nota-fiscal-eletronica-para-consumidor-final

tb to com problemas no WebISS de Sinop-MT envia a nota e recebe o protocolo, mas demora pra processar a nota (leva mais de 1 min, so depois desse tempo q devo consultar o processamento) preciso configurar alguma forma de nao consultar apos o envio, pq trava toda a aplicacao

up

recompilei aqui e funcionou agora

o componente ta "comendo" o ultimo digito do codigocedente codigo cedente: 26642 linha digitavel: 34191.57007 00000.211367 40000.026647 2 56100000423500 pro bradesco, brasil ta funcionando normal

ola pessoal, acabei de atualizar o ACBr, mas a linha digitavel do banco itau esta indo com o digito verificador invalido. ja tentei gerar varios boletos, mas sempre da esse erro. alguma dica?

ola pessoal, recebi um email do pessoal da agil: so q nao entendo mto bem de webservice, se alg puder fazer o principio ai pra mim eu tento implementar o restante em anexo tem uma documentacao. abc Joemil

agora sim, apaguei tudo, baixei e instalei novamente. tudo ok. vou recomecar do ponto onde parei

ola pessoal, ontem atualizei meu ACBr, e o DANFe nao estava imprimindo. estava dando erro em RvSystem1, abri o DMDanfe e verifiquei q o componente nao estava no DataModule, mas esta declarado na unit, porem nao existia no form (olhei pelo arquivo texto do form). tive q retirar a declaracao da Unit e reinserir o componente. nao sei se este erro ocorreu somente no meu computador, mas se alg puder dar uma olhada. assim q estiver liberada a atualizacao, vou baixar novamente. valeu

so aparece essa mensagem q colei. nao mostra mensagem de erro.

ola italo, baixei agora os fontes, estou recebendo a seguinte mensagem ao clicar no botao Gerar e Enviar Lote: desinstalei os componentes e instalei de novo pelo instalador do acbr

up

sim, configurei o componente pra acessar os schemas da pasta H:\Programacao\Components\CompD7\ACBr\Exemplos\ACBrNFSe\Delphi\Schemas\WebISS essa é a pasta onde coloco todos componentes