Ir para conteúdo
  • Cadastre-se

ISAIAS

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Posts postados por ISAIAS

  1. 12 minutos atrás, Italo Giurizzato Junior disse:

    Boa tarde Isaias,

    O prestador é MEI?

    Se sim, você deve configurar o componente para usar o layout do Padrão Nacional.

    Se não é MEI, você deve configurar o componente para usar o layout do provedor.

    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

     

     

     

     

  2. 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
     

  3. 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

     

    • Curtir 1
  4. 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+
  5. 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

  6. 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

  7. 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

  8. 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...
  9. 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

  10. 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

  11. Boa tarde Fernando

    segue link que havia postado:

     

    https://mega.co.nz/#!oh9xSZxa!U3F8CGpptiU9G_qiESAUFymWPNcmZVYueyS16GGb2YM

     

    Ats

    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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.