ISAIAS

Opa, Obrigado Italo por Retornar... Meu Cliente é Simples Nacional.... Eu segui os passos que vc e o MARCOS DELLATORE fez na implantação do Provedor ISSCAMBE ano passado....... mas travei neste lugar.... É o Provedor ISSCAMBE... estou usando ele... que foi o que vc e ele subiu no SVN.... Peguei o ACBRNFSEDemo e aproveitei ele para implantar aqui.... ajustei conforme vcs tinham mencionado nos posts... mas não deu Se tiver mais alguma sugestão Agradeco desde Ja Ate+ Isaias do Nascimento Analista de Sistemas Cambe-PR

Ola Pessoal, tudo blz a todos!! espero que sim... Sei que ja implementaram o ISSCambe do Parana, forem ao enviar esta me dando o erro abaixo e nao retorna nada... Alguem poderia me ajudar ? desde ja Agradeço!!! procedure TF_NFSe_Cambe.LoadXML(RetWS: String; MyWebBrowser: TWebBrowser; NomeArq: string; aTempo: Integer); begin if RetWS <> '' then begin WriteToTXT(PathWithDelim(ExtractFileDir(application.ExeName)) + NomeArq, AnsiString(RetWS), False, False); ----> NA LINHA ABAIXO QUE DA O ERRO - acess violation, ja tenho o Cadastro na Prefeirura, e o certificado tambem.... MyWebBrowser.Navigate(PathWithDelim(ExtractFileDir(application.ExeName)) + NomeArq); sleep(aTempo); end; end; E vem estes dados no memo... Requisição Ambiente: 2 Cidade : Cambe/PR Provedor: PadraoNacional Versão: 1.00 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False

Ola Estou com este mesmo problema aqui com a nota denegada, o problema que ao dar o Enviar, ja abre a IMPRESSAO DA DANFE, porem em VERMELHO LA NO CODIGO DE BARRA ---> NOTA DENEGADA...Ai o usuario vai conseguir Imprimir... A Pergunta é: Teria como nao abrir a TELA DE IMPRESSAO da Danfe Aguardo Ate+ Isaias

Ola Pessoal, estou com este mesmo problema agora na Versao do XML 3.10. Ja esta rodando faz 15 dias em modo de produção aqui no PR, porem primeira vez que usamos o CONSULTAR e ai nao vem o retorno. Preciso de pegar o Nr.do Recibo e Nr.do Protocolo para Atualizar uma NF que fico pendente no sistema, (Erro de Duplicidade) pois ao dar o comando, ACBrNFe1.Enviar(0);, demorou para me dar o retorno e agora preciso de finalizar o processo. o comando: > ACBrNFe1.NotasFiscais.Clear; > ACBrNFe1.NotasFiscais.LoadFromFile(XML); > ACBrNFe1.Consultar(); > sStat := IntToStr(ACBrNFe1.WebServices.Consulta.cStat); > sMotivo := ACBrNFe1.WebServices.Consulta.XMotivo; O retorno sStat = 0, algum sabe me dizer qual o problema Aguardo Isaias Ate+

Ola Menezes, então agora a variavel RET esta retornado NIL, e no delphi da o famoso erro ACESS VIOLATION. segue rotina: Uses uWS_SigIss_Londrina; {$R *.dfm} procedure TF_Mov_NFE_Servicos.Button1Click(Sender: TObject); var RPS : tcDescricaoRPS; Ret : tcRetornoNota; Errs: tcDescricaoErros; begin RPS := tcDescricaoRPS.Create; Ret := tcRetornoNota.Create; MemoErros.Text := ''; With RPS do begin ccm := '1232789'; cnpj := '03106527000193'; cpf := '06299091991'; senha := 'xxxxxxxxxxx'; -------------------------- rps_num := 0; rps_serie := ''; rps_dia := 01; rps_mes := 09; rps_ano := 2013; end; HTTPRIO.URL := 'http://testeiss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl'; (HTTPRIO as WebService_SigISSPortType).GerarNota(RPS, Ret, Errs); ----------ERRO NA LINHA ABAIXO - ACESS VIOLATION.... if Ret.Resultado = 1 then ShowMessage('Link: '+ Ret.LinkImpressao + ' Autenticidade: ' + ret.autenticidade ) else begin MemoErros.Lines.Add('URRL: ' + HTTPRIO.URL); MemoErros.Lines.Add('Processo: ' + Errs[0].DescricaoProcesso); MemoErros.Lines.Add('Erro: ' + Errs[0].DescricaoErro); end; Alguem me Ajuda!!!!!!! Obrigado... Isaias

Entao Menezes, segue a rotina, e hoje esta dando erro antes do IF Rewt.Resultado: ERRO: NOME OU ENDEREÇO DO SERVIDOR NÃO PODE SER RESOLVIDO. procedure TF_Mov_NFE_Servicos.Button1Click(Sender: TObject); var RPS : tcDescricaoRPS; Ret : tcRetornoNota; Errs: tcDescricaoErros; begin RPS := tcDescricaoRPS.Create; Ret := tcRetornoNota.Create; MemoErros.Text := ''; With RPS do begin ccm := '1232789'; cnpj := '03106527000193'; cpf := '06299091991'; .......................outros campos end; HTTPRIO.URL := 'http://testeiss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl'; (HTTPRIO as WebService_SigISSPortType).GerarNota(RPS, Ret, Errs); -----------> ONTEM TAVA DANDO ERRO AQUI O RET.RESULTADO ESTA VINDO = NIL. if Ret.Resultado = 1 then ShowMessage('Link: '+ Ret.LinkImpressao + ' Autenticidade: ' + ret.autenticidade ) else begin MemoErros.Lines.Add('URRL: ' + HTTPRIO.URL); MemoErros.Lines.Add('Processo: ' + Errs[0].DescricaoProcesso); MemoErros.Lines.Add('Erro: ' + Errs[0].DescricaoErro); end; end Obrigado e Aguardo Isaias

Ola menezesbr, aqui em Londrina-Pr é o mesmo processo de Bauru e já temos o Login e Senha para testes, e fiz como vc mencionou no exemplo e esta dando erro no Delphi ACESS VIOLATION, após GeraNota, na linha (if Ret.Resultado = 1 then), O RET. esta retornando NIL, vc sabe me dizer o q pode estar acontecendo. Desde Já agracedo Ate+ Isaias