Re: [sqlwin] SalReportView ou SalReportPrint

[Anderson Martins]

Title: Página normal sem título

Bom dia,   Provavelmente o ponteiro para a childtable está sendo setado na primeira linha durante algum evento anterior ao SAM_ReportFetchNext, talvez o SAM_ReportStart. Ao entrar no SAM_ReportFetchNext, a linha setada já é a primeira, porém, o ponteiro está sendo movido para a próxima linha, isto é, 2.º linha e só no final deste evento, quando é executado o "Return TRUE", é que os dados das 'input variables' são atualizados no Report. Não sei como está sua lógica para o caminhamento dentro da ChildTable, mas vc pode usar este exemplo para evitar este problema:     !!CB!! 173 On SAM_ReportFetchNext  If SalTblFindNextRow(tblRecibo,nLinha,0,0)   Call SalTblSetContext(tblRecibo,nLinha)   Return TRUE  Else   Return FALSE é só setar a variável nLinha = TBL_MinRow antes do evento SAM_ReportFetchNext. Não é necessário mais nada além do SalReportView ou Print para que funcione.   Espero ter ajudado.     Anderson Martins Gomes da Silva 024-3344-3575 com. 024-9831-7924 cel. ----- Original Message ----- From: Ubirajara Mattos To: [EMAIL PROTECTED] Sent: Friday, November 16, 2001 8:56 PM Subject: [sqlwin] SalReportView ou SalReportPrint Galera, aonde está o erro da instrução abaixo? Call SalReportView( dlgHistManut2, hWndNULL, 'c:\\fefacel\\jm2002\\Hist002.qrp', 'dlgHistManut2.tblContas.colData, dlgHistManut2.tblContas.colDiscriminacao,  dlgHistManut2.tblContas.colValor', 'iiDtContVencto, iiStDiscrimina, iiNrValorConta', lNrErro ) Isto está no clique de um botão no meu dialog. Eu populo uma tabela dentro deste dialog e nela eu vejo todos os dados que desejo. Mas na hora de imprimir o primeiro registro não é impresso! Algume sabe como resolver isso? Por que ele pula um registro (sempre o primeiro)? SAM CREATE DA MINHA TABELA On SAM_Create  Set lNrContador = 1  Call SalTblPopulate( dlgHistManut2.tblContas, gshLeitura,  "    Select             cont_cd, cont_dt_vencto, cont_ch_descricao, cont_nr_valor, cont_cd_status     Into :colCont_cd, :colData, :colDiscriminacao, :colValor, :colStatus    From  ceucel.T_FIN_Conta    Where     cont_cd_status = 0    ORDER BY cont_dt_vencto  ASC",    TBL_FillAll )  Call SalWaitCursor( FALSE )  Set lNrContador = lNrContador + 1 Agradeço à todos! Bira