Jump to content

datilas

Membros
  • Posts

    485
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by datilas

  1. 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
  2. o link do Google Podcasts não esta funcionando.
  3. 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
  4. 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)
  5. 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'));
  6. 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
  7. 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
  8. vc ja conseguiu usar? pois ja tentei e não consegui se puder passar um passo a passo seria ótimo
  9. 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
  10. 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
  11. 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;
  12. zeosdbo mas mesmo com o valor fixo o resultado é o mesmo
  13. uso lazarus 32 bits 2.0.10 windows 10 eu tenho um campo VALOR no banco firebird do tipo DOUBLE PRECISION com o valor: 1,23456 quando eu vou gerar um json com fpjon assim: jsObjValues.Add('VALOR', aDataSet.FieldByName('VALOR').AsFloat) o resultado é esse: "VALOR": 1.2345600000000000E+002 se eu fizer assim: jsObjValues.Add('VALOR', 1.23456) o resultado é esse: "VALOR": 1.2345600000000000E+001 no delphi funciona certinho "VALOR": 1.23456 só para comparação: o campo ID é do tipo integer assim funciona: FieldByName('ID').AsInteger "ID": 1, assim não funciona: FieldByName('ID').AsFloat "ID": 1.0000000000000000E+000, alguem sabe como resolver no lazarus?
  14. tenta assim: SELECT CODIGO,NOME,SUM(VENDAS) AS VENDAS,SUM(TROCAS) AS TROCAS FROM ( SELECT A.CODIGO, C.NOME (SELECT SUM(E.QNT * E.PRECO) FROM PEDIDOSITENS E WHERE A.NUMERO = E.NUMERO AND E.TIPO = 'VENDA') AS VENDAS, (SELECT SUM(F.QNT * F.PRECO) FROM PEDIDOSITENS F WHERE A.NUMERO = F.NUMERO AND F.TIPO = 'TROCA') AS TROCAS FROM PEDIDOS A, CLIENTES C WHERE A.FATURA IS NULL ) GROUP BY CODIGO,NOME precisaria de uma base para testar
  15. Você pode validar antes de enviar: (só pra constar acho que erraram ao digitar "789" para "798") sErro := ACBrValidador.ValidarPrefixoGTIN('7988926061097'); If sErro <> '' Then ShowMessage(sErro);
  16. se você estiver usando GENERATOR ou SEQUENCE poderia retornar o codigo assim: suaquery.Close; suaquery.SQL.Clear; suaquery.SQL.Add('INSERT INTO SUATABELA (SEUSCAMPOS...) VALUES (:SEUSPARAMS...) RETURNING SEUCAMPOCODIGO'); ... suaquery.Open; iCodigoProduto := suaquery.Fields[0].AsInteger;
  17. você pode preencher o form de cadastro assim: seuform := Tseufrom.Create(Self); Try seufrom.iCodigoProduto := 0; seufrom.editNomeProduto.Text := seuXML.NomeProduto; seufrom.editNCM.Text := seuXML.NCM; seufrom.editCEST.Text := seuXML.CEST; ... seufrom.ShowModal; If seufrom.iCodigoProduto > 0 Then Begin FDMemTable1.Edit; FDMemTable1.FieldByName('seucampo').AsInteger := seufrom.iCodigoProduto; FDMemTable1.Post; End; Finally FreeAndNil(seufrom); End;
  18. você poderia criar uma variável (iCodigoProduto) no public do form de cadastro de produto e então: No botão salvar do seu cadastro popular a variável iCodigoProduto com o código do produto cadastrado seuform := Tseufrom.Create(Self); Try seufrom.iCodigoProduto := 0; seufrom.ShowModal; If seufrom.iCodigoProduto > 0 Then Begin FDMemTable1.Edit; FDMemTable1.FieldByName('seucampo').AsInteger := seufrom.iCodigoProduto; FDMemTable1.Post; End; Finally FreeAndNil(seufrom); End; lembrando que existe varias formas de se fazer isso, essa é apenas uma ideia
  19. ja tentou postar no git do fortes? https://github.com/fortesinformatica/fortesreport-ce/pulls
  20. o acbr esta gerando alerta na tag cilin quando não deveria gerar pois o campo esta com tamanho minimo de 04 caracteres quando no manual o tamanho minimo é 01 carácter segue a unit corrigida: pcnNFeW.pas
  21. coloque um componente RLExpressionParser no formulario, não tem configuração é só soltar no formulario
×
×
  • 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.