datilas

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)

talvez isso possa te ajudar: da uma olhada nos videos desse canal: https://www.youtube.com/channel/UCExEoXjNTmKLFLK2qpBSI5g considere que a parte do cliente não precisa necessariamente ser mobile, vc pode usar VCL desktop como cliente isso é só para te dar uma base de como iniciar, mas lembre-se o Google é seu amigo, desde que vc saiba o que procurar

perfeito, muito obrigado

o link do Google Podcasts não esta funcionando.

isso é do driver da placa de video, vc pode desabititar isso no app que fica no tray, provavelmente é driver da intel. ja passei por isso, e resolvi desabilitando a inicialização do app do driver

tenta: (Shift = [ssCtrl]) and (Key = VK_MENU) Alt Gr gera o click de char(17) e Char(18) Char(17) é VK_CONTROL (tecla Ctrl) Char(18) é VK_MENU (tecla Alt)

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'));

tem isso nos fontes {@prop DataFormula - Expressão matemática envolvendo campos, valores e literais. :/} property DataFormula: string read FDataFormula write SetDataFormula; mas não entendi como funciona e no: TRLCustomSystemInfo tem isso // a propriedade TEXT pode vir na seguinte forma: "Esta página # o relatório\|continua;encerra"; mas não funciona com a DataFormula

alguem sabe como usar essa expressão no Dataformula do fortes: Endereço1 + ',' + Cidade + ',' + TelefoneNo pois ja tentei de varias formas mas da erro como se eu estivesse tentando somar os campos, mas na verdade estou tentando concatenar os campos

vc ja conseguiu usar? pois ja tentei e não consegui se puder passar um passo a passo seria ótimo

o que seria FBLite?

pra falar e verdade eu não sei pois ele não vai ser lido por mim, mas eu resolvi usando json4delphi (que esta na pasta "Fontes\Terceiros" do acbr)e nele funciona certinho, é algum problema no fpjson que eu não consegui resolver. eu só não queria depender de nenhum componente externo pois é um projeto simples e eu vou ter que entregar os fontes para o cliente e ele não quer dependência externa para não gerar quebra quando houver uma possível migração ou atualização

Com esse teste: var jsObjValues: TJSONObject; rValor: real; cValor: currency; sValor: single; dValor: double; begin rValor := 1.23456; cValor := 1.23456; sValor := 1.23456; dValor := 1.23456; jsObjValues := TJSONObject.Create; jsObjValues.Add('REAL', rValor); jsObjValues.Add('CURRENCY', cValor); jsObjValues.Add('SINGLE', sValor); jsObjValues.Add('DOUBLE', dValor); Memo1.Text := jsObjValues.AsJSON; olha o resultado: { "REAL":1.2345600000000001E+000, "CURRENCY":1.2345999999999999E+000, "SINGLE":1.2345600128173828E+000, "DOUBLE":1.2345600000000001E+000 } nada funciona, não sei o que fazer

ja tentei tambem, eu vi isso em outro post aqui mas não resolveu. segue um exemplo: o codigo é esse: uses fpjson procedure TForm1.Button1Click(Sender: TObject); Var jsObjValues: TJSONObject; begin jsObjValues := TJSONObject.Create; jsObjValues.Add('VALOR',1.23456 ); ShowMessage(jsObjValues.AsJSON); end;