Se alguem da lista puder me ajudar estou executando este comando abaixo e na tabela tbl Evento só mostra o resultado da ultima linha. O que posso estar fazendo errado???
Call Mensagem( TRUE ) > Set nRow1 = TBL_MinRow > Call SalTblPopulate( tblCalcCompPreco, hSql," > Select Pg.Parceiro, > Pg.Empresa_Bl, > Pg.Filial_Bl, > Pg.Parceiro_Bloco, > Pg.Sequencia > > From Pgto_Can2005 Pg, > Ent_Qz2005 Qz, > Fundoagr Fa, > Fornecedor Fo, > Evento Ev, > Pf_Parametro Pf, > Ec_Safra Pr > > Into :tblCalcCompPreco.colParceiro, > :tblCalcCompPreco.colEmpresa_Bl, > :tblCalcCompPreco.colFilial_Bl, > :tblCalcCompPreco.colBloco, > :tblCalcCompPreco.colSequencia > > Where Pg.Safra = :dfSafra > And > Pg.Empresa = substr( :cmbEmpresa, 1, 2 > ) And > Pg.Filial = substr( > :cmbFilial, 1, 2 ) And > Pg.Data_Ini = :dfData_Ini And > Pg.Data_Fim = :dfData_Fim And > Pg.Tipo_Nota = SubStr(:cmbTipoNota,1,1) > And > ( Pg.Flag_NCP = 'C' or Pg.Flag_NCP is null ) > And > " || sSituacao || " > Qz.Safra = Pg.Safra > And > Qz.Empresa = Pg.Empresa And > Qz.Filial = Pg.Filial > And > Qz.Parceiro = Pg.Parceiro And > Qz.Empresa_bl = Pg.Empresa_bl And > Qz.Filial_bl = Pg.Filial_bl And > Qz.Parceiro_Bloco = Pg.Parceiro_Bloco > And > Qz.Sequencia = Pg.Sequencia And > Fa.Empresa = Pg.Empresa_bl And > Fa.Filial = Pg.Filial_bl > And > Fa.Bloco = Pg.Parceiro_Bloco > And > Fo.Fornecedor = Decode(Pg.Tipo_Nota, 3, > Fa.Fornecedor, Pg.Parceiro) And > Nvl(Fo.Flag_Comp_Preco_Atr,'S') = 'S' > And > Ev.Evento = Pg.Evento And > Pf.Empresa = Qz.Empresa And > Pf.Filial = Qz.Filial > And > Pf.Inicio_Vigencia = Qz.Inicio_Vigencia > And > Pf.Estado = Qz.Estado And > Pf.Cod_Fiscal_Oper = Qz.Cod_Fiscal_Oper > > Order by Pg.Parceiro, Pg.Empresa_Bl, > Pg.Filial_Bl, Pg.Parceiro_Bloco, > Pg.Sequencia ", TBL_FillAll ) > Loop > If SalTblFindNextRow( tblCalcCompPreco, nRow1, 0, 0 ) > Call SalTblSetContext( tblCalcCompPreco, nRow1 ) > Call SalTblSetContext( tblEvento, nRow1 ) > Call SalTblPopulate( tblEvento, hSql, " Select distinct > pg.safra, > > pg.empresa, > > pg.filial, > > fa.proprietario, > > pg.empresa_bl, > > pg.filial_bl, > > pg.parceiro_bloco, > > null, > > pg.evento, > > pg.data_ini, > > pg.data_fim, > 1 , > > null, > > null, > > pg.data_lancamento, > '3' > From > Pgto_Can" || SalStrLeftX( dfSafra, 4 ) || " pg, > > fundoagr fa > Into > :tblEvento.colSafra, > > :tblEvento.colEmpresa, > > :tblEvento.colFilial, > > :tblEvento.colParceiro, > > :tblEvento.colEmpresa_Bl, > > :tblEvento.colFilial_Bl, > > :tblEvento.colBloco, > > :tblEvento.colSequencia, > > :tblEvento.colEvento, > > :tblEvento.colDataIni, > > :tblEvento.colDataFim, > > :tblEvento.colQuantidade, > > :tblEvento.colValor, > > :tblEvento.colValorUnit, > > :tblEvento.colDataLancamento, > > :tblEvento.colTipoNota > Where pg.Empresa = > Substr(:cmbEmpresa,1,2) and > > pg.Filial = SubStr(:cmbFilial,1,2) and > > pg.data_ini = :dfData_Ini and > > pg.data_fim = :dfData_Fim and > > pg.evento <> '001' and > > pg.valor > 0 and > > pg.tipo_nota = '2' and > > pg.empresa_bl = :tblCalcCompPreco.colEmpresa_Bl and > pg.Filial_bl > = :tblCalcCompPreco.colFilial_Bl and > > pg.parceiro_bloco = :tblCalcCompPreco.colBloco and > > pg.evento not in( Select pg.evento > > From pgto_can" || SalStrLeftX( dfSafra, 4 ) || " pg, > fundoagr fa > > Where pg.Empresa = Substr(:cmbEmpresa,1,2) and > > pg.Filial = SubStr(:cmbFilial,1,2) and > > pg.data_ini = :dfData_Ini and > > pg.data_fim = :dfData_Fim and > > pg.tipo_nota = '3' and > > " || sSituacao || " > > fa.empresa = pg.empresa_bl and > > fa.filial = pg.filial_bl and > > fa.bloco = pg.parceiro_bloco ) and > > " || > sSituacao || " > > fa.empresa = pg.empresa and > > fa.filial = pg.filial_bl and > > fa.bloco = pg.parceiro_bloco and > > fa.fornecedor = pg.parceiro ", TBL_FillAll ) > Else > Break > > > Juliana Bianchini Nogueira > Analista de Sistemas > Grupo Carlos Lyra > Tel. (034) 3319-6421 > > ============================================== Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) ==============================================
