Juliana, após o populate da tblCalcCompPreco vc precisa setar o contexto na primeira linha dela(Call SalTblSetContext( tblCalcCompPreco, 0 ) e só depois começar o looping.
Outra coisa, vc está usando SalTblPopulate para a tblEvento, isso quer dizer que ela só terá o resultado do último populate, no populate a tbl primeiro é limpa e depois carregada. Se vc quiser o resultado de cada query no looping sugiro que vc faça o controle manualmente, selecionando, incluindo a linha, setando o valor pra linha e assim por diante. Warlem -----Mensagem original----- De: Juliana Bianchini Nogueira [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 28 de julho de 2005 09:15 Para: sqlwin@virtualand.net Assunto: [sqlwin] ENC: Ajuda 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) ============================================== ============================================== 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) ==============================================
