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 ItaloJr, mesmo colocando na propriedade salvar=True, nao gera este arquivo não... OBS: Era pra gerar na mesma pasta da propriedade ACBrNFe1.Configuracoes.Geral.PathSalvar E o que vc me fiz sobre, mesmo dando a Mensagem de Erro VAZIA, e abortando o Delphi-7, a receita estadual esta aceitando a INUTILIZAÇÃO..... Aguardo Ate+ Isaias

Ola ItaloJr, Complementando o meu teste, mesmo dando a Mensagem de Erro VAZIA, e abortando o Delphi-7, a receita estadual esta aceitando a INUTILIZAÇÃO..... Pois se tentar de novo mudando a propriedade para a Versao ve200, da a mensagem que 'Uma faixa de inutilizacao ja foi Aceita'. Ate+ Isaias

Ola ItaloJr, obrigado pela resposta... Seguinte... Fiz o que pediu e ai o sistema gerou o arquivo .INU.XML vazio e o -PED.INU.XML esta em anexo. Aproveitando consegui inutilizar da seguinte forma, apontando o SCHEMAS V310, porem voltei a propriedade VersaoDF para : ve200, e ai Inutilizou. Sera que esta com algum problema na inutilização da nova Versao ??? Aguardo Ate+ Isaias 41140580487900014855001000000020000000020-ped-inu.xml

Ola pessoal, estou com o mesmo problema do Mauricio na Inutilização, porem a Numeração da NFe nao foi Inutilizada ainda, entao me da a mensagem Vazia (So com o X e o OK) tambem. Estou mudando tambem as propreedades: VersaoDF: ve310 e ModeloDF: moNFe A Emissão/Cancelamento esta normal, so na inutilização que esta com este problema. Ao dar o comando para inutilizar vem a mensagem em Branco e nao retorna nada no Cstat. ---Comando--- ACBrNFe1.WebServices.Inutiliza(DmView.CDQempresasEMP_CNPJ.AsString, EDmotivo.Text, Ano, 55, 1, StrToInt(EDnfe.Text), StrToInt(EDnfe.Text)); Alguem pode me ajudar Aguardo...

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