Ir para conteúdo
  • Cadastre-se

dionatan

Membros
  • Total de ítens

    233
  • Registro em

  • Última visita

Posts postados por dionatan

  1. Boa tarde.

    Tenho uma solução de TEF, que é uma DLL que você pode integrar com o seu sistema, no final da transação é gerado um arquivo txt que é só mandar para  a impressão. Os controles que você citou, pode fazer diretamente na sua aplicação.

    Tem interesse ? Posso te passar mais informações de como funciona.

     

    Isso seria para não fiscal correto? Se for eu teria interesse tamb´me Caejr... Teria um demo para nos passar?

     

     

    Aguardo

     

    Email: [email protected]

  2. Pessoal resolvido..... 

     

    Tive que alterar a unit: ACBrProvedorPronim.pas

     

    Função:

    function TProvedorPronim.GetConfigURL(ACodCidade: Integer): TConfigURL;

     

    e acrescentar as URL...

     

    4310207: begin // Ijui/RS
                ConfigURL.HomNomeCidade         := '';
                ConfigURL.HomRecepcaoLoteRPS    := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
                ConfigURL.HomConsultaLoteRPS    := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
                ConfigURL.HomConsultaNFSeRPS    := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
                ConfigURL.HomConsultaSitLoteRPS := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
                ConfigURL.HomConsultaNFSe       := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
                ConfigURL.HomCancelaNFSe        := 'http://ambienteteste.ijui.rs.gov.br/nfsewsteste/Services.svc';
     
                ConfigURL.ProNomeCidade         := '';
                ConfigURL.ProRecepcaoLoteRPS    := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
                ConfigURL.ProConsultaLoteRPS    := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
                ConfigURL.ProConsultaNFSeRPS    := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
                ConfigURL.ProConsultaSitLoteRPS := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
                ConfigURL.ProConsultaNFSe       := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
                ConfigURL.ProCancelaNFSe        := 'http://server21.ijui.rs.gov.br/nfsews/Services.svc';
               end;
  3. Pessoal apos atualizar os fontes comecou a dar erro nas Nota de Serviço ao Autorizar...

     

    Bom o provedor que eu usava era o GovBR...

     

    dae começou a dar a seguinte erro:  

     

    Erro ao Enviar a Nota Fiscal.
    Falha na validação do Lote 447
    Element '{http://tempuri.org/servico_enviar_lote_rps_envio.xsd}NumeroLote' is unexpected according to content model of parent element '{http://tempuri.org/servico_enviar_lote_rps_envio.xsd}LoteRps'.
     
     
    Bom pesquisando no forum para alguns resolveu mudando o provedor para Pronim...
     
    tive que alterar so minha cidade Ijui(4310207) que estava pegando o GovBR para o Pronin isso na unit pnfsConversao.pas..
     
    Bom feito isso agora me aparece o seguinte erro ao autorizar...
     
    Erro ao Enviar a Nota Fiscal.
    Parâmetro incorreto. - URL: - SOAPAction:http://tempuri.org/INFSEGeracao/RecepcionarLoteRps
     
     
    O que posso fazer? Meu cliente não consegue mais emitir NFSE...
     
     
    Att 

     

  4. Dionatan, o problema que vc relatou eu consegui resolver fazendo conforme o Ítalo disse:

     

    " Alterei a cidade de Contagem para o provedor Pronim. Favor atualizar os fontes novamente e configurar o componente para utilizar os schemas da pasta Pronim para a cidade de Contagem.

    "

     

     

    Cara beleza alterei coo voce disse porem na unit pnfsConversao.pas tive que tirar a cidade de Ijui (4310207) no procedimento:

    function CodCidadeToProvedor(const ACodigo: Integer): string;

    Pois ela estava ainda vinculada no case para pegar o GovBr dae alterei para:

     

     

      3118601, // Contagem/MG
      4310207, // Ijui/RS
      3511102  // Catanduva/SP
             : Provedor := 'Pronim';
     
    Ate beleza porem agora deu outro erro:
     
    Erro ao Enviar a Nota Fiscal.
    Parâmetro incorreto. - URL: - SOAPAction:http://tempuri.org/INFSEGeracao/RecepcionarLoteRps
     
     
    O que pode ser?
     
    O erro acontece na unit ACBRNFSeWebServices.pas 
     
    function TNFSeEnviarLoteRPS.Executar: Boolean;
     
    ....
     
    try
        {$IFDEF ACBrNFSeOpenSSL}
          HTTP.Document.LoadFromStream(Stream);
          ConfiguraHTTP(HTTP, 'SOAPAction: "'+ FProvedorClass.GetSoapAction(acRecepcionar, FNomeCidade) +'"');
          HTTP.HTTPMethod('POST', FURL);
     
          StrStream := TStringStream.Create('');
          StrStream.CopyFrom(HTTP.Document, 0);
     
          FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
          FRetWS     := FProvedorClass.GetRetornoWS(acRecepcionar, FRetornoWS);
     
          StrStream.Free;
        {$ELSE}
          ReqResp.Execute(Acao.Text, Stream);
          StrStream := TStringStream.Create('');
          StrStream.CopyFrom(Stream, 0);
     
          FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
     
          FRetWS     := FProvedorClass.GetRetornoWS(acRecepcionar, FRetornoWS);
     
          StrStream.Free;
        {$ENDIF}
     
        if FConfiguracoes.WebServices.Salvar
         then FConfiguracoes.Geral.Save(NumeroLote+'-rec-c.xml', FRetornoWS, FConfiguracoes.Arquivos.GetPathGer);
     
        if FConfiguracoes.Geral.Salvar
         then FConfiguracoes.Geral.Save(NumeroLote+'-rec.xml', FRetWS, FConfiguracoes.Arquivos.GetPathGer);
     
        NFSeRetorno := TretEnvLote.Create;
  5. Ítalo, baixei os novos fontes e realizei os testes para Contagem utilizando o schema da pasta C:\ACBr\Exemplos\ACBrNFSe\Delphi\Schemas\GovBR. Anexo o erro

     

     

    Esta ocorrendo o mesmo erro aqui pra mim... Estou na cidade de Ijui/RS... GovBr

     

    Erro:

     

    Erro ao Enviar a Nota Fiscal.
    Falha na validação do Lote 447
    Element '{http://tempuri.org/servico_enviar_lote_rps_envio.xsd}NumeroLote' is unexpected according to content model of parent element '{http://tempuri.org/servico_enviar_lote_rps_envio.xsd}LoteRps'.
  6. Pessoal fui cancelar uma Nota de serviço porem esta dando o seguinte erro:

     

    Não foi Possivel Cancelar a NFE.
    '201400000000423' is not a valid integer value
     
    Como estou programando carrego o xml em anexo 
     
      ACBrNFSe1.NotasFiscais.LoadFromFile(varCaminho);
                    ACBrNFSe1.CancelarNFSe(IntToStr(varCodigoCancelamento)); //Nesse caso 1
     
    Porém na Unit: ACBrNFSeWebServices.pas
     
    Na linha 1807:
     
      else FDadosMsg := TNFSeG.Gera_DadosMsgCancelarNFSe(Prefixo4,
                                                           NameSpaceDad,
                                                           TNFSeCancelarNfse(Self).FNumeroNFSe,
                                                           TNFSeCancelarNfse(Self).FCnpj,
                                                           TNFSeCancelarNfse(Self).FIM,
                                                           TNFSeCancelarNfse(Self).FCodigoMunicipio,
                                                           TNFSeCancelarNfse(Self).FCodigoCancelamento,
                                                           FTagI, FTagF, FProvedor);
     
    pnfsNFSeG.pas
     
    class function TNFSeG.Gera_DadosMsgCancelarNFSe(Prefixo4, NameSpaceDad, NumeroNFSe,
      CNPJ, IM, CodMunicipio, CodCancelamento: String; TagI,
      TagF: AnsiString; AProvedor: TnfseProvedor = proNenhum): AnsiString;
     
    else DadosMsg := '<' + Prefixo4 + 'IdentificacaoNfse>' +
                        '<' + Prefixo4 + 'Numero>' +
                          NumeroNFse +
                        '</' + Prefixo4 + 'Numero>' +
     
                        // alterado por Akai - L. Massao Aihara 12/11/2013
                       DFeUtil.SeSenao(AProvedor in [pro4R, proISSe, profintelISS, proFiorilli,proDigifred,
                                                     proVirtual, proISSDigital, proSaatri, proCoplan, proVitoria, proTecnos],
     
                        '<' + Prefixo4 + 'CpfCnpj>' +
                         '<' + Prefixo4 + 'Cnpj>' +
                          Cnpj +
                         '</' + Prefixo4 + 'Cnpj>' +
                        '</' + Prefixo4 + 'CpfCnpj>',
     
                        '<' + Prefixo4 + 'Cnpj>' +
                          Cnpj +
                        '</' + Prefixo4 + 'Cnpj>') +
     
                        '<' + Prefixo4 + 'InscricaoMunicipal>' +
                          IM +
                        '</' + Prefixo4 + 'InscricaoMunicipal>' +
                        '<' + Prefixo4 + 'CodigoMunicipio>' +
                          CodMunicipio +
                        '</' + Prefixo4 + 'CodigoMunicipio>' +
                       '</' + Prefixo4 + 'IdentificacaoNfse>' +
                       '<' + Prefixo4 + 'CodigoCancelamento>' +
     
                         // Codigo de Cancelamento
                         // 1 - Erro de emissão
                         // 2 - Serviço não concluido
                         // 3 - RPS Cancelado na Emissão
     
                         CodCancelamento +
     
                       '</' + Prefixo4 + 'CodigoCancelamento>' +
                       DFeUtil.SeSenao(AProvedor = proTecnos, '<Id>' + CNPJ + IM + IntToStrZero(StrToInt(NumeroNFse), 16) + '</Id>', '') +
                      '</' + Prefixo4 + 'InfPedidoCancelamento>';
     

     

     

    o erro esta ai pois realmente 201400000000423 e muito grande para um inteiro...

     

    O que posso fazer?

    201400000000423.xml

    201400000000423.xml

  7. Bom dia pessoal,

     

    Estou com problemas ... Atualizei o sistema em meu cliente juntamente com os schemas (GovBr) e agora quando tenta autorizar a nota da o seguinte erro:

     

    Erro ao Enviar a Nota Fiscal.

    Falha na validação do Lote 110

    Element '{http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}OutrasRetencoes' is unexpected according to content model of parent element '{http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}Valores'.

    Expecting: {http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}DescontoIncondicionado,

  8. Bom dia pessoal,

     

    Estou com problemas ... Atualizei o sistema em meu cliente juntamente com os schemas (GovBr) e agora quando tenta autorizar a nota da o seguinte erro:

     

    Erro ao Enviar a Nota Fiscal.

    Falha na validação do Lote 110

    Element '{http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}OutrasRetencoes' is unexpected according to content model of parent element '{http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}Valores'.

    Expecting: {http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}DescontoIncondicionado, {http://www.abrasf.org.br/ABRASF/arquivos/nfse.xs....

     

     

    O que esta de errado ? mudou alguma estrutura?

     

    Aguardo...

     

    Att

     

     

    Dionatan

     

     

  9. Qual Sistema Operacional, versão, como esta gerando, precisamos de mais informações para lhe ajudar.

     

    ModeloStr: (FiscNET: ELGIN - ELGIN FIT)
    {8;0;ValorInteiro=14400;23}
     
    SO: Windows XP
     
    Estou Gerando pelo ECFTeste - Menu Fiscal - Botão  Arq.MFD
     
    Ele fica um tempo gerandocerca de 15m mas logo depois da erro
     
    --------------------------------------------------------------------------------

    ATIVAR - 23/01/14 11:23:33:625 - Modelo: FiscNET - Porta: COM1 - TimeOut: 3

    Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0

    --------------------------------------------------------------------------------

    -- 11:23:33:625

    TX -> {1;LeTexto;NomeTexto="VersaoSW";31}

    11:23:33:750 RX <- {1;0;ValorTexto="01.00.08";26}

    -- 11:23:33:750

    TX -> {2;LeTexto;NomeTexto="TextoLivre";33}

    11:23:33:859 RX <- {2;0;ValorTexto="";18}

    -- 11:23:33:859

    TX -> {3;LeTexto;NomeTexto="Marca";28}

    11:23:33:984 RX <- {3;0;ValorTexto="ELGIN";23}

    -- 11:23:33:984

    TX -> {4;LeTexto;NomeTexto="Modelo";29}

    11:23:34:109 RX <- {4;0;ValorTexto="ELGIN FIT";27}

    -- 11:23:34:109 Estado

    TX -> {5;LeInteiro;NomeInteiro="EstadoFiscal";39}

    11:23:34:218 RX <- {5;0;ValorInteiro=1;19}

    -- 11:23:34:218

    TX -> {6;LeInteiro;NomeInteiro="Indicadores";38}

    11:23:34:343 RX <- {6;0;ValorInteiro=14400;23}

    -- 11:23:34:343 Estado

    TX -> {7;LeInteiro;NomeInteiro="EstadoFiscal";39}

    11:23:34:468 RX <- {7;0;ValorInteiro=1;19}

    -- 11:23:34:468

    TX -> {8;LeInteiro;NomeInteiro="Indicadores";38}

    11:23:34:578 RX <- {8;0;ValorInteiro=14400;23}

    -- 11:23:37:250 Estado

    TX -> {9;LeInteiro;NomeInteiro="EstadoFiscal";39}

    11:23:37:375 RX <- {9;0;ValorInteiro=1;19}

    -- 11:23:37:375

    TX -> {10;LeInteiro;NomeInteiro="Indicadores";39}

    11:23:37:484 RX <- {10;0;ValorInteiro=14400;24}

    -- 11:23:37:484 TestaPodeAbrirCupom

    TX -> {11;LeInteiro;NomeInteiro="EstadoFiscal";40}

    11:23:37:593 RX <- {11;0;ValorInteiro=1;20}

    -- 11:23:37:593

    TX -> {12;LeInteiro;NomeInteiro="Indicadores";39}

    11:23:37:718 RX <- {12;0;ValorInteiro=14400;24}

    -- 11:23:37:718 Estado

    TX -> {13;LeInteiro;NomeInteiro="EstadoFiscal";40}

    11:23:37:828 RX <- {13;0;ValorInteiro=1;20}

    -- 11:23:37:828

    TX -> {14;LeInteiro;NomeInteiro="Indicadores";39}

    11:23:37:953 RX <- {14;0;ValorInteiro=14400;24}

    -- 11:24:40:343 ArquivoMFD_DLL( 01/12/2013 , 31/12/2013 , C:\Documents and Settings\Administrador\Desktop\nfg.txt )

    TX -> {15;LeTexto;NomeTexto="NumeroSerieECF";38}

    11:24:40:468 RX <- {15;0;ValorTexto="EL010800000000001773";39}

    -- 11:24:40:468

    TX -> {16;LeInteiro;NomeInteiro="ContadorProprietarios";49}

    11:24:40:593 RX <- {16;0;ValorInteiro=1;20}

    --------------------------------------------------------------------------------

    ATIVAR - 23/01/14 11:44:26:718 - Modelo: FiscNET: ELGIN - ELGIN FIT - Porta: COM1 - TimeOut: 3

    Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0

    --------------------------------------------------------------------------------

    -- 11:44:26:718

    TX -> {17;LeTexto;NomeTexto="VersaoSW";32}

    11:44:26:828 RX <- {17;0;ValorTexto="01.00.08";27}

    -- 11:44:26:828

    TX -> {18;LeTexto;NomeTexto="TextoLivre";34}

    11:44:26:953 RX <- {18;0;ValorTexto="";19}

    -- 11:44:26:953

    TX -> {19;LeTexto;NomeTexto="Marca";29}

    11:44:27:078 RX <- {19;0;ValorTexto="ELGIN";24}

    -- 11:44:27:078

    TX -> {20;LeTexto;NomeTexto="Modelo";30}

    11:44:27:187 RX <- {20;0;ValorTexto="ELGIN FIT";28}

  10. Pessoal estou tendo uma enorme dificuldade em gerar o arquivo do ato cotepe 17 numa impressora elgin...

     

     

    Ja atualizeis os fonte, dll e sempre ao gerar da o erro:

     

    Erro ao GERAR: Elgin_GeraArquivoATO17Binario

     

    O que pode ser.. pois em outros clientes gera certinho... peguei as dll na pasta dll do acbr... acontece mesmo erro pelo ecf teste

     

     

    Att

  11. A unit que eu tinha postado era uma alteração para Sefaz Virtual RS e não para o RS. Vou alterar novamente e anexar.

     

    Eu testei a versão 3.10 na Sefaz Virtual de Contingência e com esta alteração funcionou, tem até os arquivos de retorno do lote e da consulta em posts anteriores.

     

     

    Cara baixei sua Unit agora da o seguinte erro:

     

    <retConsReciNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
    <tpAmb>2</tpAmb>
    <verAplic>RS20140103131138</verAplic>
    <nRec>431000023870863</nRec>
    <cStat>225</cStat>
    <xMotivo>
    Rejeicao: Falha no Schema XML do lote de NFe (Elemento: enviNFe/NFe[1]/infNFe/dest/IE/)
    </xMotivo>
    <cUF>43</cUF>
    <dhRecbto>2014-01-03T16:53:55-02:00</dhRecbto>
    </retConsReciNFe>
     
     
    Sendo que no destinatario eu passo "ISENTO" na IE.. o que pode ser?
     
    Troquei os Schemas pela versão que esta na pasta pela Schemas\V310\PL_008b\PL_008b  seria estes ou este Schemas\V310\PL_008a\PL_008a ??
     
    dae aparece este erro:
     
    Erro ao Enviar a Nota Fiscal.
    Falha na validação dos dados da nota 763
    'ISENTO' violates pattern constraint of '[0-9]{2,14}'.
    The element '{http://www.portalfiscal.inf.br/nfe}IE' with value 'ISENTO' failed to parse.
     
     
     
     
    Abraço
  12. Pessoal comecei a testar a versão 3.10 da NFE no estado do RS em Homologação... Quando mando autorizar a nota simplesmente ela nao autoriza e da erro... so que a mensagem do erro esta retornando '' (vazio).....

     

     

    O que pode ser?

     

    Obs: 

     

    colocando a configuaracao:  Configuracoes.Geral.VersaoDF := ve200;

     

    funciona perfeitamente.....

     

    Segue em anexo o print da tela do debug...

    post-26-0-64097200-1388767868_thumb.jpg

  13. Pessoal, estava fazendo um cte com o cliente e tivemos que referenciar varias notas eletrônicas, contudo ao imprimir o DACTE saiu em 4 folhas.. queria saber se nao tem como colocar as NFE uma abaixo da outra sem fazer esta quebra de pagina??

     

    Agradeco... 

     

    Att

  14. Bom dia,

     

    Fiz a atualização do Danfe NFC-e em FastReport:

    * Inclusão do campo "Valor Desconto R$" que busca a tag "VDesc" do grupo "Total".

    * Alteração da altura do Danfe na propriedade PaperHeight para 29,70.

    Útil somente para visualização em PDF pois na impressão não fiscal corta o papel ao final das informações do Danfe.

    Há a possibilidade de inclusão no svn das alterações do ACBrNFeDANFEFRDM.pas e .dfm ?

     

     

    Dae cara beleza... Estou com problema na impressão eu carrego o xml conforme exemplo

     

    ACBrNFe1.NotasFiscais.Clear;

    ACBrNFe1.NotasFiscais.LoadFromFile(PathDoXML);

    ACBrNFe1.NotasFiscais.Imprimir;

     

    porem esta me dando o seguinte erro em anexo...

     

    Ja atualizei o ACBR.....   Obs: Peguei este ultimo arquivo que voce disponibilizou: DANFeNFCe.rar   3.38K   11 Downloads

     

    Att

    post-26-0-15316000-1383066898.jpg

  15.  

    Certo... Alterando o ACBR.inc

     

    // Definições para o compomente ACBrCTe
    // Define o Pacote de Liberação / Descomente o pacote a ser utilizado 
    // Atenção: descomente apenas uma das definições
    //------------------------------------------------------------------------------
    //{$DEFINE PL_103}
    //{$DEFINE PL_104}
    {$DEFINE PL_200}
     
    vai dar muitos erros com a geração do cte?
     
    Pois como esta agora comentado a 1.04 esta dando erro por exemplo em:
     
    with Rem.InfNFe.Add do
                        begin
                            chave := RxMemoryData1ChaveNfe.AsString;
                            PIN := RxMemoryData1PinSUFRAMA.AsString;
                        end;

     

     

     

    Estou fazendo assim:

     

    {$IFDEF PL_200}
                        with infCTeNorm.infDoc.infNF.Add do
                        begin
     
     
     
     
                        end;
    {$ELSE}
                        with Rem.InfNF.Add do
                        begin
     
                            chave := RxMemoryData1ChaveNfe.AsString;
                            PIN := RxMemoryData1PinSUFRAMA.AsString;
     
                        end;
    {$ENDIF}
     
     
    Porem nao sei como referenciar as NFE NA 2.0... Tentei colocar a Chave e Pin mas nao deu certo...
  16. Dionatan,

     

    Você não vai conseguir nunca enviar a CC-e.

     

    Pela simples razão de que você não alterou o ACBr.ini para a versão 2.00 do CT-e.

     

    Ele esta gerando o XML da CC-e e colocando a versão 1.04, só que nesta versão não existe a CC-e.

     

     

    Certo... Alterando o ACBR.inc

     

    // Definições para o compomente ACBrCTe
    // Define o Pacote de Liberação / Descomente o pacote a ser utilizado 
    // Atenção: descomente apenas uma das definições
    //------------------------------------------------------------------------------
    //{$DEFINE PL_103}
    //{$DEFINE PL_104}
    {$DEFINE PL_200}
     
    vai dar muitos erros com a geração do cte?
     
    Pois como esta agora comentado a 1.04 esta dando erro por exemplo em:
     
    with Rem.InfNFe.Add do
                        begin
                            chave := RxMemoryData1ChaveNfe.AsString;
                            PIN := RxMemoryData1PinSUFRAMA.AsString;
                        end;
×
×
  • 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.