Jump to content

datilas

Membros
  • Posts

    446
  • Joined

  • Last visited

  • Days Won

    1

Community Answers

  1. datilas's post in Retorno incompleto Synapse was marked as the answer   
    vc pode tentar um metodo do synautil: (ReadStrFromStream)
    sRetornoAPIOriginal := String(ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size)); ou
    sRetornoAPIOriginal := ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size);  
  2. datilas's post in Erro HTTP: 500 ao listar Tabelas Sped was marked as the answer   
    aqui ta normal:

    vc pode acessar no navegador:
    http://www.sped.fazenda.gov.br/spedtabelas/WsConsulta/WsConsulta.asmx/consultarVersoesTabelasExternas?codigoSistema=spedfiscal
    se houver resposta o servidor esta funcionando e o problema é no seu programa
  3. datilas's post in Duvida em update was marked as the answer   
    qual DB?
    se for firebird:
    https://firebirdsql.org/refdocs/langrefupd15-substring.html
  4. datilas's post in cross compiler win32 > linux x86_x64 com ACBrNFe was marked as the answer   
    eu instalei o xml2 no mint:
    apt-get install libxml2-utils
    depois copiei o libxml2.so.2:
     /usr/lib/x86_64-linux-gnu/libxml2.so.2
    e colei no meu windows:
    "pathlazarus\cross\lib\x86_64-linux\libxml2.so.2"
    "pathlazarus\cross\lib\x86_64-linux\libxml2.so"
    alterei o ACBr.inc
    {$IfDef DFE_SEM_OPENSSL} {$Define DFE_SEM_XMLSEC} {$Define DFE_SEM_LIBXML2} {$EndIf} {$IfDef DFE_SEM_LIBXML2} {$UnDef DFE_ACBR_LIBXML2} {$EndIf} {$DEFINE DFE_SEM_XMLSEC} e funcionou perfeitamente
    muito obrigado.
  5. datilas's post in Server rest dataware delphi 10.4 não conecta was marked as the answer   
    entre no grupo do telegram do rdw, la eles podem te ajudar:
    https://t.me/restdataware
  6. datilas's post in Problema com TEF Paygo IP (TXT) was marked as the answer   
    entrei em contato com a paygo e eles me passaram uma nova versão do GP (PG_004.006.001.001_demo)
    e resolveu meu problema.
    por favor algum admin do ACBr atualize o link:
    https://projetoacbr.com.br/tef/
    pois a versão que esta la, esta gerando problema
  7. datilas's post in 778 Rejeição: Informado NCM inexistente was marked as the answer   
    vc pode varrer todos os itens da nfce e comparar com a tabela ibpt
  8. datilas's post in Problema ao baixar arquivo da internet was marked as the answer   
    tente assim:
    // para emular o navegador opera (alguns servidores bloqueiam acesso de navegador desconhecido) IdHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.141 Safari/537.36 OPR/73.0.3856.344'; S := UTF8ToString(IdHTTP.Get('http://www.meusite.com.br/arquivos/arquivo.sql'));  
  9. datilas's post in Recuperar ultimo cadastro do banco Firebird was marked as the answer   
    se você estiver usando GENERATOR ou SEQUENCE
    poderia retornar o codigo assim:
    suaquery.Close; suaquery.SQL.Clear; suaquery.SQL.Add('INSERT INTO SUATABELA (SEUSCAMPOS...) VALUES (:SEUSPARAMS...) RETURNING SEUCAMPOCODIGO'); ... suaquery.Open; iCodigoProduto := suaquery.Fields[0].AsInteger;  
  10. datilas's post in Falha ao enviar NFe após EPEC was marked as the answer   
    me desculpe o transtorno, eu vi que em uma classe minha muito antiga estava carregando o aLote com a tag Ide.dEmi sem formatação.
    muito obrigado pela ajuda. 
  11. datilas's post in Recuperar XML autorizado was marked as the answer   
    Vamos supor que o seu cliente venha perder o XML da nota por exemplo, neste caso basta você ler os dados da nota do banco de dados, gerar e assinar o XML e por fim realizar uma consulta com o XML carregado, desta forma ao realizar a consulta a SEFAZ vai retornar o protocolo de autorização e o componente se encarrega de atualizar o XML acrescentando o protocolo nele, deixando-o assim um documento com validade jurídica.
  12. datilas's post in Integrar com API - ActiveCorp was marked as the answer   
    remova o IdHTTP1 do seu formulario e tente usar assim:
    Var code: Integer; sResponse: String; Json: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Begin Json := '{"Customer": { "DocumentType" : "CNPJ", "DocumentNumber" : "11229082000167" }, "Driver": { "PhoneCountry": "+55", "PhoneNumber": "19999690130", "Name": "Daniel Marcelo"} }'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.Response.ContentType := 'applicattion/json'; http.Response.CharSet := 'utf-8'; Try http.Post('https://api.tudoentregue.com.br/v1/customers/AddDriver', JsontoSend, AResponseContent); Except On E: Exception Do Begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo1.Lines.Add('Error on Request: ' + sLineBreak + e.Message); exit; End; End; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: ' + AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Response Text: ' + http.ResponseText); Finally JsontoSend.Free; AResponseContent.Free; http.Free; End; eu adicionei essas duas linhas:
         Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode));
         Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText);
    porque caso ResponseCode for 403,404,422 o indy vai levantar um except
    sendo que
    //IdHTTP1.ResponseCode = 403 Motorista não Relacionado. *response vazio*
    //IdHTTP1.ResponseCode = 404 Motorista não Localizado. *response vazio*
    então você não conseguiria tratar o erro de Motorista não Localizado por exemplo.
    caso tenha resolvido seu problema marque o post como melhor resposta
    clicando no sinal de ✔️ no canto superior esquerdo do post 
  13. datilas's post in QR Code was marked as the answer   
    da uma olhada nesses links:
    https://youtu.be/nsYvgmQlT58
    https://github.com/tdevrocks/qrcode
    https://blog.andreamagni.eu/2017/06/scannermapp-a-qrbarcode-scanner-app-with-delphi-zxing-and-tframestand/
  14. datilas's post in Gerar Código de Barras igual Etiqueta de Balança was marked as the answer   
    Resposta:
    1- Exatamente isso o "1" seria o digito verificador ele pode ser fixo caso ele não seja valido o ACBrValidador vai gerar um digito valido pra vc
    2- O ACBrInStore é um componente para ler e decodificar codigo de barras de balanças
    da uma olha da nos demos:
    Exemplos\ACBrDiversos\ACBrInStore
  15. datilas's post in Captura de Dados TEF PayGo was marked as the answer   
    a paygo não devolve "NFCeSAT.CNPJCredenciadora" vc vai ter obter essa informação de outra forma.
    e aqui ".NFCeSAT.Autorizacao" altera para ".CodigoAutorizacaoTransacao"
     
    leia aqui: 
     
    mas vc tambem pode usar o BIN do cartão para retornar a bandeira, existe alguns exemplos na internet
  16. datilas's post in Usando o copy was marked as the answer   
    Const sMeuValor = '2019-04-02T07:30:37'; Begin Edit1.Text := copy(sMeuValor, 1, Pos('T', sMeuValor) - 1); Edit2.Text := copy(sMeuValor, Pos('T', sMeuValor) + 1, length(sMeuValor)); End;  
  17. datilas's post in Como pegar valor de desconto e saque sem confirmar a transação? was marked as the answer   
    Ja tentou assim?
    Var  i: Integer;  aValor:Real; Begin //pega a ultima operação aValor :=  ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].Saque;  For I := 0 To ACBrTEFD1.RespostasPendentes.Count - 1 Do   Begin //varre todas as operação    aValor :=  ACBrTEFD1.RespostasPendentes[i].Saque;   End;  
  18. datilas's post in Cancelamento de vários cartões was marked as the answer   
    Debugando
    percebi que 
    ACBRTef1.CancelarTransacoesPendentes; só faz o cancelamento se o estado da ecf for livre então
    No evento ACBrTEFD1ComandaECF
    tive que colocar
    case Operacao of  opeCancelaCupom: EstadoSimulado := tpsLivre; End; assim resolveu meu problema de cancelar todos os cartões
    muito obrigado.
  19. datilas's post in Cadastro de ANP was marked as the answer   
    vc vai acessar : http://www.anp.gov.br/simp/
    clica em:  Tabelas de Códigos i-SIMP (do lado esquedo)
    depois em: Tabelas de Códigos (Versão 445 - Abril/2018)
    baixa o arquivo: tabela_apoio_isimp_20180402.zip
    use o arquivo: T012-Codigos_de_produtos_20180402.xls
  20. datilas's post in Estrutura de banco de dados para MDF-e was marked as the answer   
    esse é o db do emissor gratuito de mdfe, (pode servir como base para vc) esta em FB2.1.
    use a ultima versão do 7z para descompactar,
    MDFe.7z
  21. datilas's post in Compatibilidade Do Acbr Com Delphi 7 Atualmente was marked as the answer   
    por acaso vc usa duas versoes na mesma maquina?
    (Borland Delphi Version 15.0 Copyright © 1983,2002 Borland Software Corporation retirado do log) caso positivo existe um tutorial para poder coexistir varias versões do delphi
  22. datilas's post in Jedi Para Download Xe5 was marked as the answer   
    eu tive esse problema tambem
    então usei esse : http://sourceforge.net/projects/utilitarioserp/files/
    pra mim resolveu sem problemas
  23. datilas's post in Acbr_Boletofc_Fortes Delphi Xe5 was marked as the answer   
    log de erro acbrInstall:
    ACBr_BoletoFC_Fortes.dpk(44) Fatal: E2202 Required package 'RLibWinDXE5' not found Compilation failure   eu estou usando : RLibWinDXE3   Abri o Pacote: RLibWinDXE3.dpk   fui em save as... e salvei como RLibWinDXE5.dpk   compilei e instalei. funcionou 100%
  24. datilas's post in Danferl Delphi Xe5 was marked as the answer   
    realmente era isso eu mudei a Uses para
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg e funcionou perfeitamente, agora alguem sabe que cag... eu fiz, e como eu poderia resolver isso, pois ja olhei todos os paths e estão todos certos.
  25. datilas's post in Nfse De Substituição was marked as the answer   
    (* Usando quando o RPS for substituir outro      RpsSubstituido.Numero := FormatFloat('#########0', i);      RpsSubstituido.Serie  := 'UNICA';      // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );      RpsSubstituido.Tipo   := trRPS;      *)   esta do demo do acnrnfse
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.