Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'delphi 10.2.3'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Categorias

Não há resultados

Categorias

  • Notes ACBrLibNFe

Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 1 registro

  1. Olá comunidade do ACBR, Tudo bem com vocês? Então vim aqui procurar um socorro porque estou com um problema que vem me tirando o sossego , o problema é bem simples imagino,mas não sei o que posso estar fazendo errado,já que sou iniciante em Delphi. Descrição do problema : Precisei usar um ClienteDataSet em meu projeto em determinada tela , e nas condições que os erros se apresentam já descobri que o erro está no CDS, pois em testes que executei aqui quando eu não o crio não ocorre estes erros. Trechos do código - Criação: 1 2 3 4 5 6 procedure TF_FinContaReceber.FormShow(Sender: TObject); begin Cds_Lanc.CreateDataSet; Cds_Lanc.Open; {...} end; - Fechando o Form: 1 2 3 4 5 6 7 8 9 10 11 procedure TF_FinContaReceber.FormClose(Sender: TObject; var Action: TCloseAction); begin Cds_Lanc.Close; {...} Action := caFree; end; procedure TF_FinContaReceber.FormDestroy(Sender: TObject); begin F_FinContaReceber := nil; end; Propriedades do ClientDataSet: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 object Cds_Lanc: TClientDataSet Aggregates = <> AggregatesActive = True FieldDefs = <> IndexDefs = <> Params = <> StoreDefs = True OnCalcFields = Cds_LancCalcFields Left = 32 Top = 389 object Cds_LancSequencialLanc: TIntegerField FieldName = 'SequencialLanc' end object Cds_Lancflag: TStringField DisplayLabel = 'X' FieldName = 'flag' Size = 1 end object Cds_LancVencimento: TDateField FieldName = 'Vencimento' end object Cds_LancCodEnti: TIntegerField FieldName = 'CodEnti' end object Cds_LancEntidadeNome: TStringField FieldName = 'EntidadeNome' Size = 67 end object Cds_LancReferencia: TStringField FieldName = 'Referencia' Size = 65 end object Cds_LancValor: TFloatField DefaultExpression = '0' FieldName = 'Valor' DisplayFormat = '#,###,###,##0.00' end object Cds_LancJuros: TFloatField DefaultExpression = '0' FieldName = 'Juros' DisplayFormat = '#,###,###,##0.00' end object Cds_LancDesconto: TFloatField DefaultExpression = '0' FieldName = 'Desconto' DisplayFormat = '#,###,###,##0.00' end object Cds_LancValorReceber: TFloatField DefaultExpression = '0' FieldKind = fkInternalCalc FieldName = 'ValorReceber' DisplayFormat = '#,###,###,##0.00' end object Cds_LancSelecTotal: TFloatField FieldKind = fkInternalCalc FieldName = 'SelecTotal' DisplayFormat = '#,###,###,##0.00' end object Cds_LancSelecJuros: TFloatField FieldKind = fkInternalCalc FieldName = 'SelecJuros' DisplayFormat = '#,###,###,##0.00' end object Cds_LancSelecDesc: TFloatField FieldKind = fkInternalCalc FieldName = 'SelecDesc' DisplayFormat = '#,###,###,##0.00' end object Cds_LancSelecValor: TFloatField FieldKind = fkInternalCalc FieldName = 'SelecValor' DisplayFormat = '#,###,###,##0.00' end object Cds_LancVendaCod: TIntegerField FieldName = 'VendaCod' end object Cds_LancDataPagto: TDateField FieldName = 'DataPagto' end object Cds_LancParcela: TStringField FieldName = 'Parcela' Size = 6 end object Cds_LancDataEmissao: TDateField FieldName = 'DataEmissao' end object Cds_LancFormaPagto: TStringField FieldName = 'FormaPagto' Size = 40 end object Cds_LancCPFCNPJ: TStringField FieldName = 'CPFCNPJ' Size = 32 end object Cds_LancDocumento: TStringField FieldName = 'Documento' Size = 15 end object Cds_LancTotValor: TAggregateField FieldName = 'TotValor' Active = True DisplayName = '' DisplayFormat = '#,###,###,##0.00' Expression = 'Sum(SelecValor)' end object Cds_LancTotReceber: TAggregateField FieldName = 'TotReceber' Active = True DisplayName = '' DisplayFormat = '#,###,###,##0.00' Expression = 'Sum(SelecTotal)' end object Cds_LancTotDesc: TAggregateField FieldName = 'TotDesc' Active = True DisplayName = '' DisplayFormat = '#,###,###,##0.00' Expression = 'Sum(SelecDesc)' end object Cds_LancTotJuros: TAggregateField FieldName = 'TotJuros' Active = True DisplayName = '' DisplayFormat = '#,###,###,##0.00' Expression = 'Sum(SelecJuros)' end end Somente postei estes trechos de código porque os erros que serão mostrados já ocorrem quando eu apenas abro e fecho o formulário em questão. Então é isso ,se alguém me ajudar ficarei muito agradecido,como dito anteriormente,sou iniciante em Delphi e mesmo que possa ser um problema básico ainda não tenho conhecimento necessário para resolvê-lo.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.