-
Posts
485 -
Joined
-
Last visited
-
Days Won
1
Content Type
Blocks
Notes ACBrMonitorPlus
Notes ACBrLibNFe
Forums
Downloads
Calendar
Blogs
Videos
Everything posted by datilas
-
https://soft-gems.net/graphicex-on-github/ https://github.com/mike-lischke/GraphicEx
-
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.
-
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
-
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)
-
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 ?
-
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".
-
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
-
Iniciar .exe delphi no windows 10
datilas replied to Edevair Viesa Junior's topic in Dúvidas não relacionadas ao ACBr
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 -
Iniciar .exe delphi no windows 10
datilas replied to Edevair Viesa Junior's topic in Dúvidas não relacionadas ao ACBr
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. -
Iniciar .exe delphi no windows 10
datilas replied to Edevair Viesa Junior's topic in Dúvidas não relacionadas ao ACBr
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. -
Iniciar .exe delphi no windows 10
datilas replied to Edevair Viesa Junior's topic in Dúvidas não relacionadas ao ACBr
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 -
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/
-
Dúvida sobre licença Delphi Community Edition
datilas replied to Marcos Bordin's topic in Object Pascal - Delphi & Lazarus
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 -
Server rest dataware delphi 10.4 não conecta
datilas replied to benefreitas's topic in Object Pascal - Delphi & Lazarus
entre no grupo do telegram do rdw, la eles podem te ajudar: https://t.me/restdataware -
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.
-
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
-
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
-
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
-
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?
-
Execute Block no delphi
datilas replied to Rodrigo Cunha's topic in Object Pascal - Delphi & Lazarus
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; -
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
-
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)