Ir para conteúdo
  • Cadastre-se

johnbh3

Membros
  • Total de ítens

    712
  • Registro em

  • Última visita

Posts postados por johnbh3

  1. Essa solução esta no SVN ou precisa baixar o .pas?

    9 minutos atrás, Jonas Costa disse:

    Boa tarde, aqui também funcionou e nos salvou, porém só tive que incluir o "RemoverNameSpace" em...
    function TNFeInutilizacao.TratarResposta: Boolean; (Linha 2656)

    só percebemos hoje quando houve um caso de inutilização.

    Muito obrigado pelo apoio

    ???

    function TNFeInutilizacao.TratarResposta: Boolean;
    var
      NFeRetorno: TRetInutNFe;
    begin
      NFeRetorno := TRetInutNFe.Create;
      try
        FPRetWS := SeparaDadosArray(['nfeInutilizacaoNF2Result',
                                     'nfeInutilizacaoNFResult',
                                     'nfeResultMsg'],FPRetornoWS );

        VerificarSemResposta;

        RemoverNameSpace;
        NFeRetorno.Leitor.Arquivo := ParseText(FPRetWS);
        NFeRetorno.LerXml;

  2. Outro detalhe o webservice pra inutilizar tem dado erros.
    Mas com algumas tentativas, ele responde!

    Mas retorna como 563-Já existe pedido de Inutilização com a mesma faixa de inutilização
    Fui no site do estado pra consultar documentos inutilizados - http://nfce.fazenda.mg.gov.br/portalnfce/sistema/consultainutilizacao.xhtml

    A inutilização consta ! A meu ver o werservice deveria retornar 206: NF-e já está inutilizada na Base de dados da SEFAZ
    Mas ele estranhamente retorna 563.

    a Inutilização não esta funcionando 100%

  3. 11 minutos atrás, Cleiver disse:

    Não esta fora, tem um retorno na consulta que esta impedindo a alimentação nos dados de retorno.

    abri um tópico com uma solução que resolveu aqui para min.

     

     

    Mas esta solução e temporária ou oficial?

    Porque sendo oficial o pessoal deve subir pro componente. 
    Estranhamente Minas Gerais mesmo disse que estava fora, em paralisação até 26/09 as 08:00

     

  4. ola
    Bom dia
    Um cliente começou a ter problemas no Pará inesperadamente com esta rejeição UF informada no campo cUF nao e atendida pelo WebService

     

    Já outros topicos sobre isto.
    Mas o componente aponta ele mesmo para o wwebserivce correto certo?
    Sempre funcionou o sistema neste cliente.

    Meu ACBr estava a uns 20 dias apenas sem atualização. POr via das duvidas fiz atualização do ACBr e erro persiste. 

  5. Ola
    Boa  noite vi uma da bematech GD-36 o ACBr comunica com ela?
    Quero indicar a um cliente balança e gaveta. Essa da bemaech tem bom preço

    A balança qual seria a mais recomenda?
    A Elgin e boa? tem bom preço? 
    Quais outros modelos bom com custo beneficio suportado pelo ACBr?

     

    Observação: Balança que imprimi o preço e o peso.

  6. Ola
    Boa noite 
    Pessoal 

    Abri o rest debugger
    Usei o verbo GET para esta URL - https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json

    Observe que o retorno e com acentuação sem problemas com UTF-8
    image.thumb.png.a721c323b89371da312992044fceba3f.png

     

    Copio os componentes 

    image.thumb.png.b3146ce5ce5bb3d1f8539cf2566cd7c1.png

     

    Meu retorno vem com acentuação desconfigurada

    image.png.f9cbc034549b3c46c5142b1b27cdd0ec.png

     

     

    Usei o seguinte codigo simples
       RESTRequest1.Execute;
       Memo1.Text:=RESTResponse1.JSONValue.ToJSON;

    Ja mechi em proprietades seitei utf-8 nada funciona

    O que achei foi esta função 

    function DecodeUnicodeEscapes(EscapedString: String): String;
    var
      FoundPos: LongInt;
      HexCode: String;
      DecodedChars: String;
    begin
      Result := EscapedString;
      FoundPos := Pos('\u', Result);
      while (FoundPos <> 0) and (FoundPos < Length(Result) - 4) do begin
        HexCode :=  Copy(Result, FoundPos + 2, 4);
        DecodedChars := WideChar(StrToInt('$' + HexCode));
        Result := AnsiReplaceStr(Result, '\u' + HexCode,
                                 UTF8Encode(DecodedChars));
        FoundPos := Pos('\u', Result);
      end;
    end;

     

    E usei ela

       RESTRequest1.Execute;
       Memo1.Text:=DecodeUnicodeEscapes(RESTResponse1.JSONValue.ToJSON);

    Até funcionou, só não se isto e o correto e porque no restDebuuger veio tão simples sem fazer nada adicional

  7. Pessoal,
    Estou no ambiente de testes em MG pela primeira vez no NFCe
    Eu informei o XML ficou assim

    image.png.0723c1720c37793c7119005fd024287a.png
     

          with pag.Add do //PAGAMENTOS apenas para NFC-e
           begin

             if DM_DADOS_Cupom.SP_LISTA_FORMA_PGTOFORMA_PGTO.AsString='Dinheiro' then
             tPag := fpDinheiro;

             if DM_DADOS_Cupom.SP_LISTA_FORMA_PGTOFORMA_PGTO.AsString='Débito' then
             begin
                tPag := fpCartaoDebito;
                tpIntegra :=tiPagNaoIntegrado;
             end;

     

    Tentei tambem e deu mesmo erro

          with pag.Add do //PAGAMENTOS apenas para NFC-e
           begin

             if DM_DADOS_Cupom.SP_LISTA_FORMA_PGTOFORMA_PGTO.AsString='Dinheiro' then
             tPag := fpDinheiro;

             if DM_DADOS_Cupom.SP_LISTA_FORMA_PGTOFORMA_PGTO.AsString='Débito' then
             begin
                tPag := fpCartaoDebito;
                tpIntegra :=tiPagNaoIntegrado;
                CNPJ:='99999999000191';
                tBand:=bcMasterCard;

    image.png.6daea3c8bdc55b94ee8cfc4f8875f31e.png

     

    Eu por fim coloquei o a informação cAut - O NFCe foi aprovado;

    Então em produção também seria assim?
    O usuário vai precisar informar o cAut? manualmente? Se for isso seria bem complicado.

  8. Em 06/09/2018 at 11:07, pauloclv disse:

    Bom dia.

    Atuo num projeto de ERP e conforme demanda disponibilizamos uma fatia significativa dos módulos de assistência técnica, estoque, faturamento e contratos na web.
    A solução foi: Delphi + Intraweb + bootstrap + html + css + javascript.

    Foram necessárias algumas semanas de muito estudo, tentativas, erros e frustrações até migrar do meu habitual conceito VCL para o conceito Web.
    O resultado apareceu de fato, depois que fiz o curso de Intraweb do Marcelo Giratto (https://marcelogirattocursos.com.br/).

    Como se não bastasse obter as funcionalidades e o visual desejado, ainda pude aproveitar o código VCL que não usa componentes visuais, com pequenas alterações alterações para compilação condicional nos fontes, que acelerou muito o desenvolvimento.
    É possível por exemplo gerar, visualizar e fazer download de boleto bancário usando o ACBrBoleto.

    Iniciamos o desenvolvimento em dezembro de 2017 e o portal está em produção desde março de 2018.
    Se alguém tivesse solicitado algo próximo do resultado atual a resposta seria: não é possível.

    Hoje oferecemos como valor agregado ao ERP, um portal Web responsivo, que pode ser acessado via browser em dispositivos que rodam windows, linux, android, ios e não precisa de instalação nem atualização no lado cliente. 

    Abraços
    Paulo C. L. Vicente

    Este curso !

    tudo e local. Da algum suporte pra colocar esta aplicação disponivel em nuvem pra acesso de usuarios externos, que tipo de hospedagem e necessária? 

  9. 14 minutos atrás, castrocac disse:

      Obrigado @johnbh3, na verdade eu tiha feito isso e não estava aceitando, deu certo eu mudando o estado do emissor(remetente) para 'AM'.

      Olhando aqui nem precisei usar ACBrNFe1.Configuracoes.WebServices.UF         :='AM';

      Mesmo ele estando com webservices.uf = 'MG' funciona, só precisei mudar mesmo o estado de meu remetente para 'MA'

    Sim

              Ide.cUF       := UFtoCUF('AM');
              Ide.cMunFG    := 1302603;

     

    E meio automático. Nem mencionei pq, esta tag deve ser setada como emitente. Se disse webservice como AM, o emitente deve ser AM.

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