Jump to content

datilas

Membros
  • Posts

    446
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by datilas

  1. https://acbr.sourceforge.io/ACBrMonitor/ModeloNFeINICompleto.html
  2. vc pode tentar um metodo do synautil: (ReadStrFromStream) sRetornoAPIOriginal := String(ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size)); ou sRetornoAPIOriginal := ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size);
  3. tenta: synHttpTextMsg.Document.Position := 0; sRetornoAPIOriginal := MemoryStreamToString(synHttpTextMsg.Document); ou try //declare uma variavel: //ssRetorno :TStringStream; synHttpTextMsg.Document.Position := 0; ssRetorno := TStringStream.Create(''); synHttpTextMsg.Document.SaveToStream(ssRetorno); {.} ssRetorno.Position := 0; sRetornoAPIOriginal := ssRetorno.DataString; finally ssRetorno.Free; end;
  4. 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
  5. mas a questão é no registro 0150 eu uso o CNPJ da agencia que recebeu ou o CNPJ 0001-XX do banco?
  6. no caso de cartão de debito ou credito, ou venda por app de terceiro (ifood, mercado livre etc) ja entendi como preencher, mas no caso de pix direto(do cliente para conta do comerciante sem uso de algum tef ou maquininha), aqui acontece muito esse tipo de operação. como devo preencher o registro 1601? alguém pode me ajudar?
  7. eu usei por pouco tempo, mas atendeu muito bem no que eu precisava https://saveincloud.com/pt/solucoes-cloud/cloud-banco-de-dados/
  8. pelo que vi não tem essa opção na documentação: https://zenvia.github.io/zenvia-openapi-spec/v2/#tag/SMS vc tem algum manual onde tenha essa opção?
  9. tente usar RETURNING no insert, assim vc não precisa fazer outro SELECT para gravar a venda ex: INSERT INTO DETVENDA ... RETURNING VLRTOTALCUSTO, DESCRICAO, QUANTIDADE, VLRDESCONTO, TOTALPESOLIQUIDO, TOTALPESOBRUTO, VLRALIQ_NAC, VALORTOTAL, SUBTOTAL e trocque: IBQueryDetVenda.ExecSQL; por: IBQueryDetVenda.Open; IBQueryDetVenda.First; While Not IBQueryDetVenda.EOF Do Begin ... //faz a soma aki IBQueryDetVenda.Next; end;
  10. essa é a tabela de meios de pagamentos: 01-Dinheiro 02-Cheque 03-Cartão de Crédito 04-Cartão de Débito 05-Crédito de Loja 10-Vale Alimentação 11-Vale Refeição 12-Vale Presente 13-Vale Combustível 14-Duplicata Mercanti 15-Boleto Bancário 16-Depósito Bancário 17-Pagamento Instantâneo (PIX) 18-Transferência bancária, Carteira Digital 19-Programa de fidelidade, Cashback, Crédito Virtual 90-Sem Pagamento 99-Outros "Tabela de bandeiras das Operadoras de cartão de crédito e/ou débito" 01-Visa 02-Mastercard 03-American Express 04-Sorocred 05-Diners Club 06-Elo 07-Hipercard 08-Aura 09-Cabal 10-Alelo 11-Banes Card 12-CalCard 13-Credz 14-Discover 15-GoodCard 16-GreenCard 17-Hiper 18-JcB 19-Mais 20-MaxVan 21-Policard 22-RedeCompras 23-Sodexo 24-ValeCard 25-Verocheque 26-VR 27-Ticket 99-Outros então para gerar a <infIntermed> vc tem que informar a tag <tPag> como 03 ou 04 eu recomendo que vc acesse https://www.nfe.fazenda.gov.br/portal/listaSubMenu.aspx?Id=04BIflQt1aY= e leia os manuais e as notas técnicas para ter mais informações.
  11. qual DB? se for firebird: https://firebirdsql.org/refdocs/langrefupd15-substring.html
  12. https://soft-gems.net/graphicex-on-github/ https://github.com/mike-lischke/GraphicEx
  13. 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.
  14. qual seria o equivalente do LibXML2 no linux libxml2.dll libexslt.dll libiconv.dll libxslt.dll pra eu tentar pegar no linux e linkar no fpc
  15. se no ACBr.inc eu adicionar essas linhas {$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} --adicionado {$DEFINE DFE_SEM_LIBXML2} --adicionado o lazarus compila mas existe alguma forma de fazer a assinatura depois?(ainda não tentei assinar)
  16. fui colocando componentes acbr no form até dar erro, e percebi que sempre que aparece essas linhas no lazarus da pau. C:\lazarus\cross\bin\x86_64-linux\x86_64-linux-ld.exe: cannot find -lxmlsec1 C:\lazarus\cross\bin\x86_64-linux\x86_64-linux-ld.exe: cannot find -lxml2 pelo que vi parece que componentes que precisam assinar documento não compila existe alguma diretiva para desabilitar -lxmlsec1 e -lxml2 ?
  17. esse post eu ja tinha visto, mas não me ajudou muito. e meu pc é muito simples quando eu ligo a vm ela entra em "coma".
  18. tem como fazer cross compiler de win32 para linux x86_x64? eu ja fiz a configuração no lazarus, se eu compliar um projeto em branco funciona normal, mas se eu colocar o ACBrNFe da erro na compilação. segue o log do lazarus. log-erro.txt
  19. vc ta tentando abrir o seu exe antes do logon? https://stackoverflow.com/questions/5091504/application-start-before-windows-explorer https://stackoverflow.com/questions/12491364/how-to-run-application-exe-before-windows-startup https://www.youtube.com/watch?v=pPsjSTnSowI
  20. o fato de ter certificado não tem haver com privilegio, mas o certificado ajuda muito, principalmente para antivírus e plugins de banco, talvez seja seja falta de permissão em antivírus, firewall, etc.
  21. function RunAsAdmin(hWnd: HWND; const filename, param: string): Boolean; var sei: TShellExecuteInfo; ExitCode: DWORD; begin ZeroMemory(@sei, SizeOf(sei)); sei.cbSize := SizeOf(TShellExecuteInfo); sei.Wnd := hwnd; sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS; sei.lpVerb := PWideChar('runas'); sei.lpFile := PWideChar(Filename); sei.lpParameters := PWideChar(param); sei.nShow := SW_HIDE; if ShellExecuteEx(@sei) then Result := True; end; ///****** Usa assim: RunAsAdmin(handle, 'schtasks', '/create /tn "Titulo do se app" /tr "c:\caminhodoseuapp.exe" /sc onstart'); eu uso assim e esta funcionando.
  22. tenta assim: ShellExecute(handle,'open',PChar('schtasks'), '/create /tn "Titulo do se app" /tr "c:\caminhodoseuapp.exe" /sc onstart','',SW_SHOWHIDE); ele vai criar uma tarefa agendada no windows
  23. no caso do offline vc poderia usar sqlite, mas se tiver a necessidade de ser firebird vc pode tentar isso: https://sourceforge.net/p/zeoslib/wiki/How to use Firebird 4.0 with Zeos on Android/
  24. então a sua renda não pode ser superior a 5 mil dólares(a sua renda total) independente se foi usando a ferramenta ou não. resumindo se vc ou a ong tem uma renda BRUTA superior 5 mil dólares por ano não pode usar a versão community
  25. entre no grupo do telegram do rdw, la eles podem te ajudar: https://t.me/restdataware
×
×
  • 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.