Set uma variável strin com o select e depois coloque o comando abaixo Call SalTblPopulate( tblItens, hSql , Variavel string, TBL_FillAll )
----- Original Message ----- From: "Juliana Bianchini Nogueira" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, July 28, 2005 10:14 AM Subject: [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) ==============================================
