PC Toledo

Enviado: **18 Jun 2005 00:55**

Sou novato em Clipper e estou com pequeno problema, eu preciso escolher duas ou mais opções na hora de gerar o relatório, por exemplo: data inicial e data final, cliente inicial e cliente final, só estou conseguindo gerar com uma das opções.
Se alguém puder me ajudar, agradeço desde já.
:-O

Enviado: **20 Jun 2005 11:23**

Caro colega,
envia oum pedaço do seu relatório para que eu possa te mostrar onde vc deve fazer a mudança.

[]´s
Wagner
wcardoso@oi.com.br

Enviado: **20 Jun 2005 12:21**

Colega, estou postando o código que usei pra gerar o relatório, qquer dúvida entre em contato
ncampos28@msn.com

Código: Selecionar todos

Static Contador:= 0
ATIVA    := CHR(15)
DESATIVA := CHR(18)

#include "INKEY.CH"

vTELA5:= SAVESCREEN(00,00,24,79)
@00,00 SAY "REC082"
 cNRNOTA := cNRNOTA1 := SPACE(3)
 @15,03 CLEAR TO 21,51
 @15,03 TO 21,51 DOUBLE
 @ 16,07 say "** SELECIONE OS CODIGOS A SEREM IMPRESSOS **"
 @ 19,05 SAY "Nota Inicial .....:" GET cNRNOTA   PICT "@KR 999"
 @ 20,05 SAY "Nota Final .......:" GET cNRNOTA1  PICT "@KR 999"
 READ

 RESTSCREEN(00,00,24,79,vTELA5)

IF ( nResp := ALERT( "Confirma a Impressão ?", { "Sim", "Não" } ) ) == 2
   RETURN
ENDIF

     //DEFINE AS VARIAVEIS
     // ABRE O ARQUIVO DE INSTRUMENTOS
     //PROCEDURE IMPRESSAO
     @ 23,00 SAY PADC("Imprimindo Resmo de Notas ......",80) COLOR "W+/R+*"

 SET PRINT ON
 SET DEVICE TO PRINT
 SET CONSOLE OFF
**** SET PRINT TO PRINT1.SPL

 ?? CHR(18)

 lExit := .F.
 SELE RECSER
 INDEX ON NRNOTA   TO REC021.NTX

 SET SOFTSEEK ON
 PAG=0

 SEEK cNRNOTA
 
 SET SOFTSEEK OFF
 DO WHILE NRNOTA <= cNRNOTA1 .AND. !EOF() .AND. !lExit
    PAG=PAG+1
    @PROW()+01, 03 SAY "___________________________________________________________________"+RECEMP->RAZAO1+"__"
    @PROW()+01, 03 SAY ""+RECEMP->RAZAO+"                      Pagina...: "+STR(PAG,3)+""
    @PROW()+01, 03 SAY ""+RECEMP->SISTEMA+""
    @PROW()+01, 03 SAY "Relatorio de Notas Fiscais ns. '"+cNRNOTA+"' e '"+cNRNOTA1+"'"
    @PROW()+00, 03 SAY "_____________________________________________________________________________"
    @PROW()+02, 03 SAY "_____________________________________________________________________________"
    @PROW()+01, 03 SAY "  Emissao      Vcto   N.F. LCTO CodigoCliente                          Valor "
    @PROW()+00, 03 SAY "_____________________________________________________________________________"

    DO WHILE !EOF() .AND. PROW() <= 60 .AND. NRNOTA <= cNRNOTA1

       if INKEY() == K_ESC
          lExit := .T.
          exit
       ENDIF

       @ PROW()+01, 03  SAY   " "+DTOC(EMISSAO)+" "+DTOC(VCTO)+" "+NRNOTA+" "+LCTO+" "+ATIVA+""+CODIGO+" "+NOME+""+DESATIVA+""
       @ PROW()+00, 70 SAY VLTOT PICT "@ZE 99,999.99"
       SKIP
    ENDDO
    @PROW()+01, 03 SAY "-----------------------------------------------------------------------------"
    EJECT
 ENDDO
 SET PRINT OFF
**** !\FOX\UTIL\MOSTRA PRINT1.SPL
 SET DEVICE TO SCREEN
 SET CONSOLE ON
 SET PRINTER TO
 RESTSCREEN(00,00,24,79,vTELA5)
 RETURN

PC Toledo

Impressão com + de 1 opção

Impressão com + de 1 opção

+ de 1 opção