/
*/

#include "sps.ch"
PRIV dele_atu, cur_atual, so_um_reg, sit_dbf
PARA lin_menu, col_menu, imp_reg
so_um_reg=(PCOUNT()>2)
IF so_um_reg
 sit_dbf=POINTER_DBF()
ENDI
nucop=1

#ifdef COM_REDE
 IF !USEARQ("NOVAGUIA",.f.,10,1)                   
  RETU                                             
 ENDI
#else
 USEARQ("NOVAGUIA")                                
#endi

PTAB(medico,"MEDICOS",1,.t.)
PTAB(localaten,"PRESTADO",1,.t.)
PTAB(paciente,"USUARIOS",1,.t.)
SET RELA TO medico INTO MEDICOS,;
         TO localaten INTO PRESTADO,;
         TO paciente INTO USUARIOS
titrel:=criterio := ""                             
cpord=""
chv_rela:=chv_1:=chv_2 := ""
tps:=op_x:=ccop := 1
arq_=drvporta                                      
IF !so_um_reg
 fil_ini=""
 IF !opcoes_rel(lin_menu,col_menu,47,11,fil_ini)   
  CLOS ALL                                         
  RETU                                             
 ENDI

#ifdef COM_REDE

 ELSE

  tps=lin_menu

#endi

ENDI
IF tps=2                                           
 arq_=ARQGER()                                     
 IF EMPTY(arq_)                                    
  RETU                                             
 ENDI
ELSE
 arq_=drvporta                                     
ENDI
SET PRINTER TO (arq_)                              
cur_atual=SETCURSOR(0)
IF !EMPTY(drvtapg)                                 
 op_=AT("NNN",drvtapg)                             
 IF op_=0                                          
  msg="Configura‡„o do tamanho da p gina!"         
  DBOX(msg,,,,,"ERRO!")                            
  CLOSE ALL                                        
  RETU                                             
 ENDI                                              
 lpp_040=LEFT(drvtapg,op_-1)+"040"+SUBS(drvtapg,op_+3)
 lpp_066=LEFT(drvtapg,op_-1)+"066"+SUBS(drvtapg,op_+3)
ELSE
 lpp_040:=lpp_066 :=""                             
ENDI
dele_atu:=SET(_SET_DELETED,.t.)                    
POE_GAUGE("[ESC] Interrompe","AGUARDE...","Emitidos:")
SET DEVI TO PRIN                                   
maxli=39                                           
IMPCTL(lpp_040)                                    // seta pagina com 40 linhas
IMPCTL(drvpc20)
IF tps=2
 IMPCTL("' '+CHR(8)")
ENDI
BEGIN SEQUENCE
 DO WHIL ccop<=nucop                               
  pg_=1; cl=PROW()-1
  IF so_um_reg
   GO imp_reg
  ELSE
   INI_ARQ()                                       
  ENDI
  IF EOF()
   EXIT
  ENDI
  ccop++                                           
  DO WHIL !EOF().AND.(!so_um_reg.OR.imp_reg=RECN()).AND.POE_GAUGE()
   IF IN_KEY()=K_ESC
    IF canc()                                      
     BREAK                                         
    ENDI
   ENDI
   REL_CAB(2)
   @ cl,055 SAY TRAN(nguia,"999999999")
   REL_CAB(2)
   @ cl,023 SAY TRAN(SUBSTR(DTOC(GDATA),1,1),"9")
   @ cl,026 SAY TRAN(SUBSTR(DTOC(GDATA),2,1),"9")
   @ cl,029 SAY TRAN(SUBSTR(DTOC(GDATA),4,1),"9")
   @ cl,032 SAY TRAN(SUBSTR(DTOC(GDATA),5,1),"9")
   @ cl,035 SAY TRAN(SUBSTR(DTOC(GDATA),9,1),"9")
   @ cl,038 SAY TRAN(SUBSTR(DTOC(GDATA),10,1),"9")
   @ cl,049 SAY TRAN(USUARIOS->codcli,"############")
   @ cl,061 SAY "-"
   @ cl,062 SAY TRAN(USUARIOS->dig,"@!")
   @ cl,065 SAY TRAN(USUARIOS->dtnasc,"@D")
   REL_CAB(3)
   @ cl,003 SAY TRAN(SUBSTR(UNIMED,1,1),"9")
   @ cl,006 SAY TRAN(SUBSTR(UNIMED,2,1),"9")
   @ cl,009 SAY TRAN(SUBSTR(UNIMED,3,1),"9")
   @ cl,012 SAY TRAN(SUBSTR(UNIMED,5,1),"9")
   @ cl,015 SAY TRAN(SUBSTR(UNIMED,6,1),"9")
   @ cl,018 SAY TRAN(SUBSTR(UNIMED,7,1),"9")
   @ cl,021 SAY TRAN(SUBSTR(UNIMED,8,1),"9")
   @ cl,024 SAY TRAN(SUBSTR(UNIMED,10,1),"9")
   @ cl,027 SAY TRAN(SUBSTR(UNIMED,11,1),"9")
   @ cl,030 SAY TRAN(SUBSTR(UNIMED,12,1),"9")
   @ cl,033 SAY TRAN(SUBSTR(UNIMED,13,1),"9")
   @ cl,036 SAY TRAN(SUBSTR(UNIMED,14,1),"9")
   @ cl,039 SAY TRAN(SUBSTR(UNIMED,15,1),"9")
   @ cl,042 SAY TRAN(SUBSTR(UNIMED,17,1),"9")
   @ cl,045 SAY TRAN(SUBSTR(UNIMED,18,1),"9")
   @ cl,048 SAY TRAN(SUBSTR(UNIMED,20,1),"9")
   REL_CAB(2)
   @ cl,003 SAY TRAN(paciente,"@!")
   REL_CAB(3)
   @ cl,002 SAY TRAN(SUBSTR(CODIGOMEDI,1,1),"9")
   @ cl,005 SAY TRAN(SUBSTR(CODIGOMEDI,2,1),"9")
   @ cl,007 SAY TRAN(SUBSTR(CODIGOMEDI,3,1),"9")
   @ cl,010 SAY TRAN(SUBSTR(CODIGOMEDI,4,1),"9")
   @ cl,012 SAY TRAN(SUBSTR(CODIGOMEDI,5,1),"9")
   @ cl,015 SAY TRAN(SUBSTR(CODIGOMEDI,6,1),"9")
   @ cl,017 SAY TRAN(SUBSTR(CODIGOMEDI,7,1),"9")
   @ cl,019 SAY TRAN(SUBSTR(CODIGOMEDI,8,1),"9")
   @ cl,039 SAY TRAN(medico,"@!")
   REL_CAB(2)
   @ cl,007 SAY TRAN(ALLTRIM(MEDICOS->ENDERE)+' N. '+ALLTRIM(MEDICOS->NUM),"@!")
   @ cl,048 SAY TRAN(ALLTRIM(MEDICOS->cida),"@!")
   REL_CAB(2)
   @ cl,003 SAY TRAN(localaten,"@!")
   SKIP
   cl=PROW()-1
  ENDD
 ENDD ccop
 EJEC                                              
END SEQUENCE
SETCURSOR(cur_atual)
IMPCTL(drvtc20)
IMPCTL(lpp_066)                                    // seta pagina com 66 linhas
SET PRINTER TO (drvporta)                          
SET DEVI TO SCRE                                   
IF tps=2                                           
 BROWSE_REL(arq_,2,3,MAXROW()-2,78)
ENDI          
GRELA(47)                                          
SELE NOVAGUIA
SET RELA TO                                        
SET(_SET_DELETED,dele_atu)                         
IF so_um_reg
 POINTER_DBF(sit_dbf)
ENDI
RETU

STATIC PROC REL_CAB(qt)                            
IF qt>0                                            
 cl=cl+qt                                          
ENDI
IF cl>maxli .OR. qt=0                              
 cl=qt-1 ; pg_++
ENDI
RETU

* \\ Final de SPS_R033.PRG