-
Total de ítens
521 -
Registro em
-
Última visita
-
Days Won
2
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que datilas postou
-
zeosdbo mas mesmo com o valor fixo o resultado é o mesmo
-
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?
-
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
-
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);
-
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;
-
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;
-
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
datilas replied to Pedro A. Araújo's tópico in Object Pascal - Delphi & Lazarus
ja tentou postar no git do fortes? https://github.com/fortesinformatica/fortesreport-ce/pulls -
muito obrigado.
-
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
-
coloque um componente RLExpressionParser no formulario, não tem configuração é só soltar no formulario
-
Duas vias na mesma folha Fortes Report
datilas replied to datilas's tópico in Object Pascal - Delphi & Lazarus
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
datilas replied to datilas's tópico in Object Pascal - Delphi & Lazarus
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
datilas replied to datilas's tópico in Object Pascal - Delphi & Lazarus
não tem como duplicar, pois é um pedido de venda, tem header, subdetail, sumary ... -
Duas vias na mesma folha Fortes Report
um tópico no fórum postou datilas Object Pascal - Delphi & Lazarus
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? -
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);
-
o próprio componente se encarrega de extrair e salvar no disco conforme a configuração em: ACBrNFE1.Configuracoes.Arquivos....
-
ACBrNFE1.Consultar(chaveNFe,True{extrair eventos});
-
eu uso e recomendo. muito bom.
-
seria muito bom se você puder compartilhar com a comunidade.
-
os conversores online não funcionam? pergunto isso porque nunca precisei. https://permita.me/?q=jpg+to+pcx+monochrome
-
na nota tecnica 2016.002 v1.61 é um puco diferente mas não soma o difal
-
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
datilas replied to Milton Lima's tópico in Dúvidas não relacionadas ao ACBr
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
datilas replied to Darlan Souza's tópico in Object Pascal - Delphi & Lazarus
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.