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

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

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.

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.

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/

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

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?

esse é o grupo do rdw no telegram https://t.me/restdataware o pessoal responde rapidinho la

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;

vc pode varrer todos os itens da nfce e comparar com a tabela ibpt

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

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)