Jump to content

datilas

Membros
  • Posts

    485
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by datilas

  1. https://soft-gems.net/graphicex-on-github/ https://github.com/mike-lischke/GraphicEx
  2. 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.
  3. 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
  4. 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)
  5. 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 ?
  6. 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".
  7. 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
  8. 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
  9. 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.
  10. 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.
  11. 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
  12. 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/
  13. 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
  14. entre no grupo do telegram do rdw, la eles podem te ajudar: https://t.me/restdataware
  15. não entendi seu problema, mas vc poderia pegar o status assim: ShowMessage(js.Values['situacao'].ToString); pois nesse json não tem nenhum array, mas seu codigo esta funcionando pra mim perfeitamente, tente explicar melhor seu problema.
  16. nesse select esta retornando mais de um resultado, vc deve filtrar melhor para que esse select retorne apenas um resultado. eu usaria: update C000050 QRC set QRC.CODCONTA = (select first 1 RC.CODIGO from C000049 RC where substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10) where char_length(QRC.CODCONTA) = 10 ai ele traria apenas um resultado, mas cuidado com isso, nada garante que será o registro que vc precisa, então de uma olhada melhor nos filtros
  17. tentando ativar o tef paygo com ACBrTEFDTipo := gpPayGo; esta gerando o erro: Nome do executável do Gerenciador Padrão não definido na unit ACBrTEFDPayGo.pas alterar a linha 301 de: GPExeName := ''; para: GPExeName := CACBrTEFDDial_GPExeName; Errado: constructor TACBrTEFDPayGo.Create(AOwner : TComponent); begin inherited Create(AOwner); ArqReq := CACBrTEFDPayGo_ArqReq; ArqResp := CACBrTEFDPayGo_ArqResp; ArqSTS := CACBrTEFDPayGo_ArqSTS; ArqTemp := CACBrTEFDPayGo_ArqTemp; GPExeName := ''; fpTipo := gpPayGo; Name := 'PagGo' ; fSuportaNSUEstendido := True; fSuportaReajusteValor := False; fSuportaViasDiferenciadas := True; if Assigned(fpResp) then fpResp.Free ; fpResp := TACBrTEFDRespPayGo.Create; fpResp.TipoGP := fpTipo; end; Certo: constructor TACBrTEFDPayGo.Create(AOwner : TComponent); begin inherited Create(AOwner); ArqReq := CACBrTEFDPayGo_ArqReq; ArqResp := CACBrTEFDPayGo_ArqResp; ArqSTS := CACBrTEFDPayGo_ArqSTS; ArqTemp := CACBrTEFDPayGo_ArqTemp; GPExeName := CACBrTEFDDial_GPExeName; fpTipo := gpPayGo; Name := 'PagGo' ; fSuportaNSUEstendido := True; fSuportaReajusteValor := False; fSuportaViasDiferenciadas := True; if Assigned(fpResp) then fpResp.Free ; fpResp := TACBrTEFDRespPayGo.Create; fpResp.TipoGP := fpTipo; end; Segue unit alterada: ACBrTEFDPayGo.pas
  18. 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
  19. baixei o sdk que esta em: https://projetoacbr.com.br/tef/ instalei o PG_004.006.000.001_demo.exe ao utilizar o ACBrTEFD\NaoFiscal\Lazarus\TEFDDemoNF.exe chamou o GP da paygo e apareceu atualizando tabelas deu erro ao atualizar tabelas(no GP) log.log agora todo cartão que eu tento usar aparece Cartão invalido no GP alguem ja teve esse problema? como resolveu?
  20. esse é o grupo do rdw no telegram https://t.me/restdataware o pessoal responde rapidinho la
  21. dbexpress não sei mas com firedac usa assim: Execute Block (dtvencto timestamp = :data) update tabela set campo=:dtvencto ... fdquery.ParamByName('data').AsDateTime := Now; fdquery.ExecSQL; no zeosdbo usa assim: Execute Block (dtvencto timestamp = &data) update tabela set campo=:dtvencto ... ZQuery1.ParamChar:='&'; ZQuery1.ParamCheck:=False; ZQuery1.ParamByName('data').AsDateTime := Now; ZQuery1.ExecSQL;
  22. vc pode varrer todos os itens da nfce e comparar com a tabela ibpt
  23. eu uso o ACBrIBPTax e mantenho as tabelas ibpt sempre atualizada e antes de enviar a nfe/nfce eu verifico se o ncm existe nas tabelas ibpt "TabelaIBPTaxMT21.1.G.csv" por exemplo se a menssagem de erro for padrão alterando só o item vc pode capturar o nr do item na mensagem de erro
  24. tenta assim é um exemplo de como eu uso e funciona: EXECUTE BLOCK( PARAM1 TIMESTAMP=?,PARAM2 VARCHAR(50)=?,PARAM3 INTEGER=?, PARAM4 TIMESTAMP=?,PARAM5 VARCHAR(50)=?,PARAM6 INTEGER=? ) AS BEGIN INSERT INTO SUATABELA (CAMPODATA,CAMPOVARCHAR,CAMPOINTEGER) VALUES (:PARAM1,:PARAM2,:PARAM3) ; INSERT INTO SUATABELA (CAMPODATA,CAMPOVARCHAR,CAMPOINTEGER) VALUES (:PARAM4,:PARAM5,:PARAM6) ; END
  25. com a mesma regra dos videos acima, vc pode alugar uma vps (amazon,azure,etc) e subir seu db e seu app servidor(micro serviços assim como o juliomar citou acima), mas lembre-se toda segurança é pouca na web, então configure firewall , senha no appserver, token ou jwt (tudo que vc possa colocar para não expor seu db nem sua vps)
×
×
  • 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.