Fórum Mestre/Detalhe (era... Senão é bug oq que é então?) #329027

select * from LOCACAO where cod_filial=:pFilial

select * from DETLOCACAO where LOCACAO=:CODIGO

object DataModule2: TDataModule2 OldCreateOrder = False Height = 337 Width = 399 object sConn: TSQLConnection ConnectionName = ´FB_SAFPE´ DriverName = ´Interbase´ GetDriverFunc = ´getSQLDriverINTERBASE´ LibraryName = ´dbxint30.dll´ LoginPrompt = False Params.Strings = ( ´DriverName=Interbase´ ´Database=F:\Delphi\Projetos\Locadora(SAFPE)\conversao\DBLOC7023.´ + ´FDB´ ´RoleName=RoleName´ ´User_Name=sysdba´ ´Password=masterkey´ ´ServerCharSet=WIN1252´ ´SQLDialect=3´ ´BlobSize=-1´ ´CommitRetain=False´ ´WaitOnLocks=True´ ´ErrorResourceFile=´ ´LocaleCode=0000´ ´Interbase TransIsolation=ReadCommited´ ´Trim Char=False´) VendorLib = ´fbClient.dll´ Left = 144 Top = 24 end object sdtMASTER: TSQLDataSet CommandText = ´select * from LOCACAO where CODIGO<0´ MaxBlobSize = -1 Params = <> SQLConnection = sConn Left = 40 Top = 88 end object dspMASTER: TDataSetProvider DataSet = sdtMASTER Options = [poCascadeDeletes, poCascadeUpdates, poAutoRefresh, poPropogateChanges, poUseQuoteChar] BeforeUpdateRecord = dspMASTERBeforeUpdateRecord Left = 104 Top = 160 end object cdsMASTER: TClientDataSet Aggregates = <> Params = <> ProviderName = ´dspLOCACAO´ AfterInsert = cdsMASTERAfterInsert AfterPost = cdsMASTERAfterPost Left = 48 Top = 240 object cdsMASTERCOD_FILIAL: TIntegerField FieldName = ´COD_FILIAL´ end object cdsMASTERCODIGO: TIntegerField FieldName = ´CODIGO´ Required = True end object cdsMASTERCLIENTE: TIntegerField FieldName = ´CLIENTE´ end object cdsMASTERLOCATARIO: TStringField FieldName = ´LOCATARIO´ Size = 52 end object cdsMASTERDATA: TDateField FieldName = ´DATA´ end object cdsMASTERDATARETORNO: TDateField FieldName = ´DATARETORNO´ end object cdsMASTERPAGO: TStringField FieldName = ´PAGO´ Size = 3 end object cdsMASTERATRASO: TIntegerField FieldName = ´ATRASO´ end object cdsMASTERREAJUSTE: TFloatField FieldName = ´REAJUSTE´ end object cdsMASTERENTREGUE: TStringField FieldName = ´ENTREGUE´ Size = 3 end object cdsMASTERDATAENTREGUA: TSQLTimeStampField FieldName = ´DATAENTREGUA´ end object cdsMASTERTOTAL: TFloatField FieldName = ´TOTAL´ end object cdsMASTEROBS: TBlobField FieldName = ´OBS´ Size = 1 end object cdsMASTERLOGUSU: TStringField FieldName = ´LOGUSU´ Size = 12 end object cdsMASTERLOGDATA: TSQLTimeStampField FieldName = ´LOGDATA´ end object cdsMASTERLOGHORA: TSQLTimeStampField FieldName = ´LOGHORA´ end object cdsMASTERLOGOPER: TStringField FieldName = ´LOGOPER´ Size = 12 end object cdsMASTERVALOR_ANTIGO: TFloatField FieldName = ´VALOR_ANTIGO´ end object cdsMASTERPAGAMENTOS: TStringField FieldName = ´PAGAMENTOS´ Size = 80 end object cdsMASTERsdtDETLOCACAO: TDataSetField FieldName = ´sdtDETLOCACAO´ end end object sdtFILHO: TSQLDataSet SchemaName = ´sysdba´ CommandText = ´select * from DETLOCACAO where LOCACAO=:CODIGO´ DataSource = dsRELACIONA MaxBlobSize = -1 Params = < item DataType = ftInteger Name = ´CODIGO´ ParamType = ptInput end> SQLConnection = sConn Left = 256 Top = 98 end object dsRELACIONA: TDataSource DataSet = sdtMASTER Left = 184 Top = 160 end object cdsFILHO: TClientDataSet Aggregates = <> AggregatesActive = True DataSetField = cdsMASTERsdtDETLOCACAO Params = <> AfterInsert = cdsFILHOAfterInsert Left = 256 Top = 232 object cdsFILHOCODIGO: TIntegerField FieldName = ´CODIGO´ Required = True end object cdsFILHOLOCACAO: TIntegerField FieldName = ´LOCACAO´ end object cdsFILHOFILME: TIntegerField FieldName = ´FILME´ end object cdsFILHODIARIA: TIntegerField FieldName = ´DIARIA´ end object cdsFILHONOME_FILME: TStringField FieldName = ´NOME_FILME´ Size = 52 end object cdsFILHOCOD_FILME: TIntegerField FieldName = ´COD_FILME´ end object cdsFILHOVALOR_FILME: TFloatField FieldName = ´VALOR_FILME´ end object cdsFILHONOVO_VALOR: TFloatField FieldName = ´NOVO_VALOR´ end object cdsFILHOBONUS: TStringField FieldName = ´BONUS´ Size = 3 end object cdsFILHODEVOLVIDO: TStringField FieldName = ´DEVOLVIDO´ Size = 1 end object cdsFILHODIAS_ATRASO: TIntegerField FieldName = ´DIAS_ATRASO´ end object cdsFILHODATADEVOLVIDO: TSQLTimeStampField FieldName = ´DATADEVOLVIDO´ end object cdsFILHOUSERINCLUIU: TStringField FieldName = ´USERINCLUIU´ Size = 10 end object cdsFILHOUSERDATAINCLUIU: TSQLTimeStampField FieldName = ´USERDATAINCLUIU´ end object cdsFILHOUSERALTEROU: TStringField FieldName = ´USERALTEROU´ Size = 10 end object cdsFILHOUSERDATAALTEROU: TSQLTimeStampField FieldName = ´USERDATAALTEROU´ end object cdsFILHOmax_cod: TAggregateField FieldName = ´max_cod´ Active = True DisplayName = ´max_cod´ Expression = ´max(codigo)´ end end end