Ir para conteúdo
  • Cadastre-se

thiagoaraujo

Membros
  • Total de ítens

    17
  • Registro em

  • Última visita

Posts postados por thiagoaraujo

  1. Olá Pessoal,

     

    Conforme prometido, fiz a implementação da balança rodoviária Toledo.

     

    Ao contrário do que imaginei inicialmente, o que determina o protocolo de comunicação é o Display, que por sua vez de comunica com a balança de fato. Atualmente há 03 tipos de Display, 9091, 8530 e 8540. A implementação que fiz vale para os 3, pois os protocolos são idênticos, conforme manual anexo no post anterior.

     

    Com a comunicação direta pelo ACBr, não há necessidade da aquisição do HardKey, a não ser que haja necessidade de comunicação com o Display de forma mais avançada.  Este kit (DLL + HardKey) custa atualmente mais de R$ 3.000,00. 

     

    Segue em anexo a unit. Não sei qual o procedimento para adicionar aos fontes do ACBr. Não me importo com os créditos, gostaria apenas de ver essa implementação aceita pelos moderadores.

     

    Qualquer dúvida estou a disposição,

     

    Amigo, poderia entrar em contato? [email protected], whatsapp 75-91364000

  2. Bom dia,

     

    Estou com um problema no comando ACBrNFe1.Enviar. Na minha maquina de desenvolvimento no Delphi a nota é emitida normalmente. 

    O problema é ná estação, ele considera a nota como autorizada. Mas entra no bloco do except. E nem chega a imprimir a nota. 

    Vejam o código 

     

         try
            DM.ACBrNFe1.NotasFiscais.Valida;
            if DM.ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
               MessageDlg('Alertas: '+DM.ACBrNFe1.NotasFiscais.Items[0].Alertas,mtWarning,[mbOK],0);
              DM.ACBrNFeDANFEFR1.FastFile := 'c:\NFE\Report\DANFeRetrato_Basic.fr3';
              DM.ACBrNFe1.Enviar(DM.QrPedidosCodPedido.AsString,True);
              // Autorizada ou Denegada
              if (DM.ACBrNFe1.WebServices.Retorno.cStat = 100) OR (DM.ACBrNFe1.WebServices.Retorno.cStat = 110) OR
              (DM.ACBrNFe1.WebServices.Retorno.cStat = 301) OR (DM.ACBrNFe1.WebServices.Retorno.cStat = 302) then
              begin
                  // Autorizada
                  if (DM.ACBrNFe1.WebServices.Retorno.cStat = 100) then
                  begin
                       // faz procedimentos da nota autorizada
                  end;
              end;
         except
            MessageDlg('STAT: '+IntToStr(DM.ACBrNFe1.WebServices.Retorno.cStat),mtWarning,[mbOK],0);
            Memo1.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.Retorno.RetWS);
            Memo2.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.Retorno.RetornoWS);
            DM.ACBrNFe1.NotasFiscais.Clear;
         end;
     
  3. Olá,

     

    Vou tentar explicar melhor. Se você acessar o link http://www.institutopronordeste.com.br/sge/ACBRMonitor/teste_socket.php

    Vai receber o seguinte resultado: 

    BOLETO.Imprimir
    string(5) "OK: "

    E o boleto será impresso na tela do servidor do acbrmonitor, que se encontra nesse servidor de páginas que é hospedado no dominio.

    Existe alguma forma de ser impresso ai na sua maquina quando você acessar o endereço acima? Pensei em criar uma pasta por usuario, salvar o pdf la e depois que fosse impresso eu iria apagar o pdf. Ou seja, tem como via socket eu definir a pasta que quero gerar o pdf naquele momento, e o nome do arquivo pdf do boleto? Porque o padrao é boleto.pdf. Se não resolver so preciso setar o caminho da pasta via socket.

     

    Thiago.

  4. Boa tarde,

     

    Comecei a testar o acbrmonitor com uma página php utilizando o exemplo do ClienteSocket, fiz a configuração dos boletos e consigo incluir titulos na lista, imprimir na maquina do acbrmonitor (servidor), habilitando a opção de previsualizar e configurar impressora no ACBrMonitor. Mas minha dúvida é a seguinte: consigo fazer essa impressão na máquina do cliente que está requisitando a página? e não no servidor do acbrmonitor? Seja ela em pdf, html ou impressora? 

     

    Thiago.

  5. Olá, boa tarde

    Existe a função dentro de ACBrBoleto.pas

    "function TACBrBancoClass.MontarLinhaDigitavel (const CodigoBarras: String): String;"

     

    Essa função tem a finalidade de receber por parâmetro o "número" (const CodigoBarras...) gerado na função "MontarCodigoBarras", que por sua vez está dentro *.pas do Banco que você está utilizando.

     

    Espero ter lhe ajudado!

     

    Abraço

    Fábio Watanabe

     

    Grande Fábio.

     

    Muito obrigado, funcionou 100%!

  6. Caros,

    Estou com um problema para fazer o botão Gerar e Enviar funcionar. Minha cidade é Feira de Santana - Bahia, que já está previamente cadastrada na base do ACBrNFSe.

    Aparentemente configurei correto, estou usando um cartão e-CNPJ, que o demo detectou corretamente, pediu a senha e foi tudo ok.

    Após gerar o RPS, e clicar no botão gerar e enviar usando o rps criado, o primeiro erro era que faltava o arquivo nfse.xsd na pasta configurada para os arquivos schemas, copiei da pasta Exemplos\ACBrNFSe\Delphi\Schemas\Abrasf.

    Dai ele me da o protocolo gerado, com data de recebimento e informa o provedor WebiSS, após clicar em Ok, da um primeiro erro Situacao: 2 - Não processado, da novamente o erro Situação 2, logo após um erro Situação 3 - Processado com erro. depois do ok da erro de Invalid pointer operation.

    Seguem logs em anexo.

    Agradeço desde já.

    Thiago Araujo.

    Ger Logs.rar

  7. Bom dia.

    Daniel, no meu caso o boleto da caixa seria homologado, pelo que me consta ele tem que estar de acordo com o padrão do manual da caixa.

    Entende minha preocupação com a questão dos milímetros em relação aos tamanhos e posições das linhas e campos?

    Thiago Araujo.

  8. Olá pessoal.

    Utilizei o design do form ACBrBoletoFCFortesFr para iniciar o desenvolvimento do meu boleto da caixa para homologação.

    Porém me deparo com um problema em que não encontro solução, o manual da caixa vem com todas as informações em milímetros e o delphi e fortes trabalham com pixels.

    Pesquisando descobri a propriedade RealBounds que ao setar a sub-propriedade UsedUnit para 'buMilimeters' deveria aceitar valores em milímetros no Height, Left, Top e Width da propriedade RealBounds.

    Ao que me parece a função não foi implementada, utilizo a versão 3.70B do Fortes Report e Delphi XE.

    Será que alguém teria alguma solução? Deixando claro que não gostaria de usar a solução ACBrBoleto pois gostaria de fazer a minha do zero.

    Agradeço desde já.

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

The popup will be closed in 10 segundos...