-
Total de ítens
573 -
Registro em
-
Última visita
-
Days Won
2
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que datilas postou
-
Dúvida sobre licença Delphi Community Edition
datilas replied to Marcos Bordin's tópico 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 tópico 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
-
PayGo IP (TXT) Nome do executável do Gerenciador Padrão não definido
um tópico no fórum postou datilas Dúvidas sobre TEF
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 [email protected]'s tópico 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
-
Que banco de dados usar para acesso em nuvem
datilas replied to tatinaraujo's tópico in Banco de Dados
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) -
Que banco de dados usar para acesso em nuvem
datilas replied to tatinaraujo's tópico in Banco de Dados
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.
-
Simular clique na tecla 'Alt Gr'
datilas replied to DanrleiNascimento's tópico in Dúvidas não relacionadas ao ACBr
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 -
Simular clique na tecla 'Alt Gr'
datilas replied to DanrleiNascimento's tópico in Dúvidas não relacionadas ao ACBr
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) -
Problema ao baixar arquivo da internet
datilas replied to bnobre's tópico in Object Pascal - Delphi & Lazarus
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
-
Acesso ao firebird com UniDAC
datilas replied to Élviro Cavalcanti's tópico in Object Pascal - Delphi & Lazarus
vc ja conseguiu usar? pois ja tentei e não consegui se puder passar um passo a passo seria ótimo -
Acesso ao firebird com UniDAC
datilas replied to Élviro Cavalcanti's tópico in Object Pascal - Delphi & Lazarus
o que seria FBLite? -
- 1 reply
-
- 1
-
-
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