Ir para conteúdo
  • Cadastre-se

carlosmarian

Membros
  • Total de ítens

    235
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por carlosmarian

  1. Olá Daniel,

    A ideia inicial consistem em converter a ferramenta com o mínimo impacto nas funcionalidades, isso pq temos inúmeras melhorias para serem implementadas.

    O desafio maior é que não temos domínio total da ferramenta, muito menos do que esses componentes são capazes de fazer. Por isso não é simples a alteração desses componentes.

    Por este motivo estamos focando em tentar usar os mesmo componentes, mas em alguns casos (como deste "DuckBarcode") não temos os fontes ou não existem mais os fontes deste componente.

    Por isso questiono o forum se alguém conhece este componente.

    Obrigado.

  2. Olá.

    Tenho um legado em Delphi 5 que foi repassado pelo cliente e ele solicitou a migração para o Delphi 7.

    Estamos trabalhando nesta atividade já a alguns dias, já consegui evoluir muito nessa migração.

    A tarefa de converter os componentes tem sido a mais difícil, muitos dos componentes não existem mais ou perderam o suporte para versões mais antigas do Delphi. Um dos componentes que a ferramenta usava era de Código de Barras chamada "Duck Barcode", o cliente nos repassou somente alguns fontes (era o que ele tinha) de todos os seus componentes, mas este componente não temos todos os ".pas", em alguns casos só o ".dcu".

    Alguém já ouviu falar neste componente? Teria os fontes?

    Obrigado.

  3. 11 horas atrás, João Paulo Müller disse:

    Vou voltar essa semana para implementação do notablu com ACBR.

    Carlos, está funcionando em ambiente de homologação também?

    Olá.
    O NotaBlu não possui ambiente de homologação, o que existe é um serviço de teste de envio de RPS.
    Este serviço de teste de RPS serve somente para verificar se o seu RPS é aceito pelo WS.

    Para homologar tem que mandar um RPS quente e gerar uma Nota, depois é só cancelar.
    Recomento deixar tudo preparado(já com os testes no serviço de teste), e começar cedo o processo de geração de RPS para homologação.
    Já implemente tudo, envio consulta, cancelamento,... ai só vai ajustando caso ocorra erro.

     

    At+

  4. 9 minutos atrás, Fernando M disse:

     

    Sendo que a própria sefaz de RS depois se retratou. Porém continuo sem conseguir em nenhuma url rsr, Prossigo na luta aqui, se conseguir resolver compartilho com vocês.

    Veja se isso não pode te ajudar.

  5. Olá,

    Ao tentar enviar um RPS onde em alguma tag(texto, exemplo RazaoSocial, Discriminacao, Endereco,...) tenha '&', tenho a seguinte rejeição:

    <RetornoEnvioLoteRPS><Cabecalho Versao="1"><Sucesso>false</Sucesso></Cabecalho><Erro><Codigo>1057</Codigo><Descricao>Rejeicao: Assinatura difere do calculado.</Descricao></Erro></RetornoEnvioLoteRPS>

    Arq com o lote: 40-env-lot.xml
    Arq com o ret:  40-rec.xml

    Alguém já passou por este problema?

    Para contornar estou removendo os & antes de atribuir ao componente.

    Provedor: NotaBlu;
    Cidade: Blumenau.

    40-env-lot.xml

    40-rec.xml

  6. Olá.

    Estou efetuando testes finais para uso do ACBrNfse para o provedor NotaBlu e estou com um problema no retorno da nota.
    No manual informa que para quebra de linha na tag de discriminacao do serviço eu devo passa um pipe(|) para cada quebra que desejo aplicar ao texto.

    Eu monto o RPS com a seguinte discriminação:

    <Discriminacao>LICENCA DE USO SII REFERENTE 06/2017|TOTAL APROX. IMPOSTOS LEI 12.741/2012: 301,68 Federal - FONTE:IBPT| EMPRESA OPTANTE SIMPLES NACIONAL LEI 123/06</Discriminacao>

    Ao consultar o XML ou imprimir o DANFE pelo site da NotaBlu, existe a quebra de linha.

    Mas ao verificar no arquivo XML da NFSe salvo pelo ACBrNFSe não existe esta quebra de linha no texto da discriminação.
     

    <Discriminacao>LICENCA DE USO SII REFERENTE 06/2017TOTAL APROX. IMPOSTOS LEI 12.741/2012: 301,68 Federal - FONTE:IBPT EMPRESA OPTANTE SIMPLES NACIONAL LEI 123/06</Discriminacao>

    Esta quebra não esta nem no arquivo de sufixo "-lista-nfse.xml" nem "-lista-nfse-soap.xml".

    Analisando o fonte "ACBrDFeHttpOpenSSL.pas" no método "TDFeHttpOpenSSL.Enviar" eu descomentei os códigos de debug e gerei o arquivo "c:\temp\ReqResp.xml".
    Neste arquivo existe a quebra de linha:

    &lt;Discriminacao&gt;LICENCA DE USO SII REFERENTE 06/2017
    TOTAL APROX. IMPOSTOS LEI 12.741/2012: 30,73 Federal - FONTE:IBPT
     EMPRESA OPTANTE SIMPLES NACIONAL LEI 123/06&lt;/Discriminacao&gt;&lt;

    O webservice esta mandando com a quebra de linha, mas parece que ao salvar o ACBRNFSe retira esta quebra.

    Como posso fazer para identificar o motivo deste erro?
    Se é alguma configuração que possa estar faltando no componente ou se é uma coisa que só ocorre no NotaBlu?

    Obrigado.

    exemplo.png

  7. Olá.
    Após implantar no cliente a nova versão, tive um erro no tratamento do retorno do envio de um RPS.
    O Cliente enviou o RPS com valores incorretos e o WS retornou uma msg de critica, não processando o RPS.
    Quando o ACBr foi tratar o retorno, acabei tendo um erro List index out of bounds (0), isso pq a rotina tentava ler um atributo que não foi populado já que o retorno foi de critica.

    Com isso acabei efetuando um ajuste no fonte "ACBrNFSeWebServices.pas"(linha 2325 + ou -) com o objetivo de evitar este erro.

    Segue em anexo arquivo com o ajuste para avaliar se é possível subir ao repositório.

     

    ACBrNFSeWebServices.pas

  8. 11 minutos atrás, Juliomar Marchetti disse:

    Bom se tu conseguiu debugar iria sugerir pra ti debugar na parte de validação exatamente nesse campo e verificar.

    Não cheguei a um nível tão fundo do debug, fui até o ponto em que é aplicado o schema ao texto lido/carregado do arquivo xml.
    Fui até o fonte "ACBrDFeXsXmlSec.PAS" método "TDFeSSLXmlSignXmlSec.Validar":

    valid_ctxt := xmlSchemaNewValidCtxt(schema);

    mais que isso não consigo.

  9. 22 horas atrás, Lucas Montemezzo disse:

    MDFe com o OpenSSL só passa na validação com um caractere na tag cInt, quando possui mais que um caractere retorna o erro ( "1824 - Element '{http://www.portalfiscal.inf.br/mdfe}cInt': '14' is not a valid value of the local atomic type." ). 

    Olá, acabei de fazer um teste com o atributo cInt valendo 22, passou sem erro.
    Estou usando OpenSSL

    ...
    <infModal versaoModal="3.00">
      <rodo><veicTracao>
        <cInt>22</cInt>
        <placa>ZZZ4800</placa><tara>100</tara><capKG>9000</capKG><capM3>0</capM3><condutor><xNome>AMARILDO PURCINO</xNome><CPF>11139587111</CPF></condutor><tpRod>02</tpRod><tpCar>03</tpCar><UF>SC</UF></veicTracao></rodo>
    </infModal>
    ..

    Minha sugestão é dar uma revisada no xsd.

  10. Olá.
    Estou com um problema na validação(schema, ACBrCte.Validar() ) de um XML de CT-e onde o Remetente é Não contribuinte de ICMS.
    Avaliando os post abaixo: 

     

    Não consegui encontrar o que posso estar fazendo de errado.
    O erro passou a acontecer após a minha ultima atualização dos fontes do ACBr, antes estava com os fontes antigos que não tinham o tratamento para o TLS 1.2.
    Estou usando OpenSSL( SSLLib := libOpenSSL ) para tratar o certificado.
    Estou também usando o o Schema "tiposGeralCTe_v2.00-OPENSSL.xsd"(renomeado na minha pasta de schemas para "tiposGeralCTe_v2.00.xsd")
    A versão do CT-e é 2.00.
     

    Explicando o caso:
    Meu CT-e tem como remetente um Não contribuinte de ICMS, neste caso conforme descrito no Manual CT-e(Pag 126) "... Caso o remetente não seja contribuinte do ICMS não informar o conteúdo.", não atribuo valor ao atributo "Rem.IE".
    No XML gerado, a tag IE(do remetente) vem vazia( <IE/> ), o que seria o correto já que não tem valor.
    Mas ao executar a validação do XML(ACBrCte.Validar()), recebo a seguinte critica:
    1824 - Element '{http://www.portalfiscal.inf.br/cte}IE': '' is not a valid value of the atomic type '{http://www.portalfiscal.inf.br/cte}TIeDest'.
    Trecho do XML que descreve o Remetente no ct-e:

    <rem>
      <CNPJ>88566223000161</CNPJ>
      <IE/>
      <xNome>CT-E EMITIDO EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><xFant>Homologacao de CT-e em atualizacao</xFant><fone>473298989</fone><enderReme><xLgr>RUA do endereco</xLgr><nro>4500</nro><xBairro>BATEIAS</xBairro><cMun>4202909</cMun><xMun>BRUSQUE</xMun><CEP>88355350</CEP><UF>SC</UF><cPais>1058</cPais><xPais>BRASIL</xPais></enderReme>
    </rem>

    Alguém teria uma sugestão, do que posso estar fazendo de errado ?

  11. Em 20/04/2017 at 16:16, José S. Simione disse:

    Boa tarde Carlos,

    Bom, primeiramente não poderíamos fazer dessa maneira, porque isso iria fazer com que a TAG não fosse criada mesma na versão 2.0. E a ideia desses ajustes é mandar a 2.0 intacta perante as alterações previstas para a 3.0. Tendo isso em mente eu tentei aprovar um CT-e em Homologação com essa alteração sugerida, e me deparei com uma validação da SeFaz.

    O senhor conseguiu aprovar um CT-e 3.00 com esse fonte? Se sim gostaria de ver o XML para estudar essa mudança.

    Att

    José S. Simione

     

    Desculpe, só vi hj seu comentário.

    No meu caso ainda estão usando só a versão 2.0
    At+

  12. Olá.
    Segue em anexo um pequeno ajuste para o NotaBlu, no método que consome o serviço de 'TesteEnvioLoteRPS'.
      Obs: Identifiquei ser incorreto e desnecessário varre a lista de documentos, já que este serviço não gera nota, desta forma sobresquevi o metodo "TratarResposta" na classe "TNFSeTesteEnvioLoteRPS"
    O ajuste foi feito na revisão 13461 do ACBr

    @Italo Jurisato Junior se puder avaliar o ajuste e publicar no repositório agradeço.

    At+

    ACBrNFSeWebServices.pas

  13. Agora, Dercide Alvarez disse:

    @carlosmarian

    Você conseguiu enviar alguma nota de teste ?

     

    Dercide.

    Olá.
      Sim, consegui enviar um teste usando o serviço "TesteEnvioLoteRPSRequest" e tbm emiti em modo de produção duas notas e seu posterior cancelamento.
      Antes eu tinha problemas para gerar a tag "Assinatura", tinha até implementado uma ferramenta auxiliar em C# só para este fim(assinar). Agora faço tudo pelo componente do ACBrNFSe

     
      Isso já usando o TLS ao invés de SSL.

    at+

    • Curtir 1
  14. Olá.

      Fiz alguns ajustes no ACBrNFSe para permitir a integração com o WebService da NotaBlu.

      O Layout era muito similar a nota NFSe de SP, mas identifiquei alguns pontos que necessitaram ajustes.

      Estou anexado um patch com a sugestão de ajustes aplicados a revisão 13431 do ACBr além de um outro zip com os fontes alterados.

      Além dos ajustes em alguns fontes, foi necessário ajuste nos INI Cidades.INI e a criação do provedor NotaBlu.INI.

    Por favor, se puderem avaliar os ajuste e verificar se existe possibilidade de aplicar ao repositório,

    Obrigado e fico no aguardo.

    @Italo Jurisato Junior @André Ferreira de Moraes

    FontesAlteradosRev-13431.7z

    Patch-NotaBlu-Rev_ACBr-13431.patch

    • Curtir 2
  15. Olá.
      Estou com um problema similar, mas no meu caso esta ocorrendo no cancelamento.
      É gerado o XML mas o SAT trava(timeout), ai o usuário acaba solicitando novamente o canelamento.
        Ei quando o SAT é reiniciado ele tenta cancelar duas vezes.

      

  16. Só gostaria de voltar ao item ref ao IE de "Não contribuinte de ICMS" quando a versão do CT-e ainda é 2.
    Hj no fonte existe um tratamento quando a versão é  >= 3 ref ao novo atributo "indIEToma"(caso for diferente de 9 gera a tag), isso para Tomador, Expedidor, ...

    Foi adicionado um tratamento(pcteCTeW.pas) na geração do IE de tomador(procedure TCTeW.GerarTomador), mas para Remetente, Expedidor, .. este critério não foi adicionado.

    if (Trim(CTe.toma.IE) <> '') then
      begin
        if (CTe.infCTe.versao >= 3) then
        begin
          if (TpTomadorToStr(CTe.ide.Toma03.Toma) = '4') then
          begin
            if (indIEDestToStr(CTe.ide.indIEToma) <> '9') then
              GeraIE;
          end
          else
            GeraIE;
        end
        else
          GeraIE;
      end;

    Mas para os demais não tem, abaixo exemplo do Remetente:

    if (CTe.infCTe.versao >= 3) then
        begin
          if (TpTomadorToStr(CTe.ide.Toma03.Toma) = '0') then
          begin
            if (indIEDestToStr(CTe.ide.indIEToma) <> '9') then
              GeraIE;
          end
          else
            GeraIE;
        end
        else
          GeraIE;


    Esta correto isso? Não teria que replicar para estes outros elementos do documento?
    Anexo fonte replicando o tratamento do IE.
    Obrigado.

    pcteCTeW.pas

  17. Em 15/03/2017 at 18:33, Juliomar Marchetti disse:

    @Italo Jurisato Junior irá conferir o código

    temos esse outro tópico que é semelhante 

     

    Olá.
      Sabe informar se o erro ref ao IE descrito neste outro tópico foi corrigido no topico atual? É que este outro tópico esta fechado e fazendo ref a este.
      É que estou com os fontes do ACBr atualizados, mas ainda estou tendo problemas ao gerar CT-e onde o tomador for "Não contribuinte de ICMS".
      Ao validar, apresenta critica ref a falta da tag IE.
    Obrigado.  

  18. Olha... ai eu não consigo entender como vc esta gerando o arquivo.

    Não é pelo ACBR(ACBrSpedFiscal)?

    Se vc esta gerando na mão(linha a linha) então só adiciona o cest no final da linha de cada 0200.
    Sem o CEST:
    0200|16639|AGUA MINERAL CRISTALINA ALPES 20L|||UN|00|||||0|
    Com o CEST:
    0200|16639|AGUA MINERAL CRISTALINA ALPES 20L|||UN|00|||||0|01010101|

  19. Olá, queria um exemplo do seu código fonte e não do txt gerado.
    Exemplo:
     

    		// Dados da Empresa
                 with Bloco_0.Registro0000New do
                 begin
                    COD_VER    := vlVersao110; // Código 011 - Versão 110 Ato COTEPE 01/01/2017
                    COD_FIN  := raOriginal;     // 0 - Remessa do arquivo original
                    NOME       := 'Teste nome';
                    CNPJ       := '00000000000';
                    CPF        := CampoSpedS('0000','CPF');
                    ....
                    IND_PERFIL := pfPerfilB;
                    IND_ATIV   := atIndustrial;    // 0 – Industrial ou equiparado a industrial
                 end;
    
              end;
    ...
    		with Bloco_0.Registro0200New  do
                  begin
                     COD_ITEM     := '000000';
                     DESCR_ITEM   := 'DEscricao';
                     COD_BARRA    := '';
                     COD_ANT_ITEM := '';
                     UNID_INV     := 'KG';
                     ....
                     ALIQ_ICMS    := 17;
                     CEST         := '08055808';
                  end;
    ...

    Outra sugestão é vc debugar, coloca um breakpoint no fonte "procedure TBloco_0.WriteRegistro0200(Reg0001: TRegistro0001) ;" e verifique se ele esta montando a variável strLinha com o CEST que vc informa no momento de add o registro 0200.

    Ou tbm montar um caso de teste(usando o projeto exemplo) para ficar mais fácil de identificarmos o que esta ocorrendo no seu código.

    Até.

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