[Problema com float lazarus]

6 horas atrás, Juliomar Marchetti disse:

O que está usando para acessar o dados?

 

zeosdbo mas mesmo com o valor fixo o resultado é o mesmo

[Problema com float lazarus]

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?

[Duvida com subselect + group by]

Em 04/10/2020 at 17:31, felipeiw disse:

To precisando montar um sql que traga o codigo, nome do cliente, total em vendas e total em trocas dos pedidos com data FATURA is null

tabela PEDIDOS tem o codigo, tabela PEDIDOSITENS sao os itens vendidos e CLIENTES tabela de clientes

dessa maneira da erro Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause).

uso FB 2.0

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 A.CODIGO, C.NOME

Alguma sujestão por favor, travei nesse sql 

Obrigado

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

[Validação GTIN]

3 horas atrás, freitagnx disse:

Prezados!

O que fazer quando temos um código de barras como este: '7988926061097'.

Passou pela validação, porém o retorno na validação da NFC-e é de prefixo inválido?

Qual a estratégia que vcs têm usado, ou recomendam?

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

 

[Recuperar ultimo cadastro do banco Firebird]

5 horas atrás, Ederson disse:

Ainda estou vendo aqui como posso fazer, pois como está o sistema somente gera novo código do produto apos clicar no botão gravar !

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;

 

[Recuperar ultimo cadastro do banco Firebird]

7 minutos atrás, Ederson disse:

Olá datilas, sua idéia me ajuda muito porque como você disse pode ter outras formas, mas com a sua pode abrir o caminho por mais simples que possa parecer  estava nebuloso aqui.

 

Obrigado !

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;

 

[Recuperar ultimo cadastro do banco Firebird]

2 horas atrás, Ederson disse:

Bom dia !

Preciso de ajuda de como resolver uma implementação que gostaria de fazer no sistema, seria o seguinte:

Eu importo os itens do xml de uma nota fiscal, para poder fazer vinculo com o cadastro, neste caso importo numa Memtable que ligo numa DBGrid, nessa grid tem uma coluna codigo cadastro (Produto) que é mostrada quando faço o vinculo e

a partir da linha do produto importado chamo o form em tempo de execução do cadastro de produtos também, a minha dúvida como posso fazer para quando eu gravar o cadastro desse novo produto o seu código seja recuperado na Memtable (tabela temporária) que vincula o produto,

gostaria de sugestões de como posso fazer isso. o banco é firebird e componentes firedac.

Obrigado !

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

[Melhorias no FortesReport CE]

39 minutos atrás, paaraujo disse:

Prezados.

Estou aqui compartilhando as alterações realizadas pelo Ednilson Dudar, as quais foram disponibilizadas em um grupo do Telegram e a pedido do mesmo, que fosse compartilhado aqui também.
 

 

FortesRep-ce4-Preview.zip 43 kB · 1 download

ja tentou postar no git do fortes?

https://github.com/fortesinformatica/fortesreport-ce/pulls

[Tag cilin gerando Alerta ACBrNFe]

7 minutos atrás, BigWings disse:

Enviado para o repositório, rev. 2014.

Obrigado pela contribuição.

muito obrigado.

[Tag cilin gerando Alerta ACBrNFe]

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

[Fortes Report CE]

coloque um componente RLExpressionParser no formulario, não tem configuração é só soltar no formulario

[Duas vias na mesma folha Fortes Report]

desculpe a insistência mas olhei todos os demos e não vi nada parecido,

só pra explicar o relatório esta funcionando.

eu preciso fazer duas vias na mesma folha

[Duas vias na mesma folha Fortes Report]

9 minutos atrás, Juliomar Marchetti disse:

Tem coloca dentro de uma masterdata e coloca 2 registros

como eu faria isso? 

pois eu tenho:

01 query para os dados do emitente (apenas um registro) header

01 query para os dados do destinatário e Vendedor (apenas um registro) header

01 query para os itens da venda (varios registros) subdetail

01 query para os dados de pagamento (varios registros) subdetail

sumary com os totais.

tem algum demo para eu tentar entender?

masterdata é um componente?

[Duas vias na mesma folha Fortes Report]

não tem como duplicar, pois é um pedido de venda, tem header, subdetail, sumary ...

[Duas vias na mesma folha Fortes Report]

eu tenho um cliente que usava impressora matricial com papel meia folha,

agora ele trocou para uma impressoras laser e ele precisa imprimir 2 vias na mesma folha

alguém já fez isso com o fortes report?

[Montar XML da Carta de Correção]

o componente apenas salva os eventos em disco,

nesse caso ele não preenche a propriedade ACBrNFE1.Eventos...

só uma correção:

FRM_Data.ACBrNFe.Consultar(Copy(vChaveAcessoCC, 4, Length(vChaveAcessoCC)),True);

[Montar XML da Carta de Correção]

o próprio componente se encarrega de extrair e salvar no disco

conforme a configuração em:

ACBrNFE1.Configuracoes.Arquivos....

[Montar XML da Carta de Correção]

ACBrNFE1.Consultar(chaveNFe,True{extrair eventos});

[consumir API xe2]

30 minutos atrás, felipeiw disse:

Pessoal muito obrigado pelas respostas.

Juliomar é um componente ?

Estive pesquisando, encontrei Projeto Rest Dataware, vocês conhecem ? usam ?

Obrigado

 

eu uso e recomendo. muito bom.

[Boletos+Fortes+Senha PDF]

19 minutos atrás, Sérgio De Oliveira Santos disse:

Olá, eu resolvi de outra forma. Usei o ghostscript para "empacotar" o PDF gerado pelo Fortes. Se quiser, eu mando a forma que fiz. 

seria muito bom se você puder compartilhar com a comunidade.

[Imagem para PCX]

54 minutos atrás, dpaulabh disse:

Boa tarde. 

 

    Preciso converter um logotipo em PCX monocromatico para imprimir etiqueta na Zebra. Procurei por diversas ferramentas e não encontrei. Alguém sabe como fazer essa conversão?

 

Desde já agradeço. 

 

 

os conversores online não funcionam?

pergunto isso porque nunca precisei.

https://permita.me/?q=jpg+to+pcx+monochrome

[O DIFAL E FCP DEVE SER SOMADO NO TOTAL DA NF?]

na nota tecnica 2016.002 v1.61 é um puco diferente mas não soma o difal

[O DIFAL E FCP DEVE SER SOMADO NO TOTAL DA NF?]

essa é a regra de validação qualquer coisa fora disso vai gerar rejeição

o difal é destacado apenas nos itens, e não é impresso na danfe.

[Banco de dados nas nuvens]

22 minutos atrás, Milton Lima disse:

Amigo, obrigada pela resposta. eu estava dando uma olhada no horse umas videos aulas da embarcadero e vi q da p fazer um servidor console com ele, mas gostaria de saber se da para consumir os dados com o horse também, sabe me dizer?

https://www.restdw.com.br/

tem componentes que se comportam como query 

fica muito facil migrar ou começar do zero, basicamente vc faz select no cliente que faz todo trabalho com json

 

[Transformar enter em tab dbgrid lazarus]

9 horas atrás, Darlan Souza disse:

Obrigado pela ajuda Juliomar.

No KeyDown ele passa, porém infelizmente o efeito não mudou nada. Continuo tendo que teclar enter duas vezes para passar para a próxima coluna.

Será a versão do lazarus? Estou usando a 2.0.8

Qual versão vc usa ?

tenta no onkeypress do dbgrid

If Key = #13 Then

Begin

if dbgrid.SelectedIndex = 10 Then // ou dbgrid.SelectedIndex = dbgrid.Columns.Count

dbgrid.SelectedIndex := 1

Else

dbgrid.SelectedIndex := dbgrid.SelectedIndex  + 1;

End;

é só adaptar  a sua necessidade.