FiveTech Support Forums

#INCLUDE "FIVEWIN.CH"
#INCLUDE "REPORT.CH"

STATIC oWnd



REQUEST HB_LANG_ESWIN
Request Hb_CodePage_ESWIN



FUNCTION Main()
public oBar, oBrush, oIcon,OCURDEDO ,conection, PRESCRIPTOR:="",USUARIO
PUBLIC USERAD,permiso,cusuario:="",supfont,ruta1,ruta2,rutadoc,perfil:="",persona:="",trata:=.f.,vertrata:=.f.
public agrad:= {{0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },{ 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }
public suptimer,hayconten:=.f.,paratimer:=.f.
HB_LANGSELECT('ESWIN')
HB_SetCodePage("ESWIN")

SET CENTURY ON
SET CONSOLE OFF
SET DATE ITALIAN
SET DECIMALS TO 0
set optimize on
SET DELETE ON
SET DELIMITERS OFF
SET EPOCH TO 1920
SET EXACT ON
SET EXCLUSIVE OFF
SET FIXED ON
SET PATH TO C:\LOTUS
SET DEFAULT TO
SET SOFTSEEK OFF
SET CURSOR OFF
SkinButtons()
SetDlgGradient( { { 1, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } } )
SetGetColorFocus(RGB(238,232,170))
      DEFINE BRUSH oBrush STYLE NULL
      DEFINE FONT supFont NAME "MS SANS SERIF" size 0, -10 //"ARIAL" SIZE 0,-12
      DEFINE WINDOW oWnd FROM 1, 5 TO 20, 65   ;
             BRUSH oBrush                      ;
             TITLE "Módulo gestión de unidades ver. 4.0"


       oWnd:ofont:=supfont
      ACTIVATE WINDOW oWnd MAXIMIZED ON INIT (imptratacom())
RETURN( NIL )

function imptratacom()
local yilin:=0,xilin:=0,yflin:=0,xflin:=0
local oprn, ofont1, ofont,OFONT2, open , ofont3 ,ofont4, ofont5,ofont6, ofont7,open1, open2
local vnumero:=0,lafecha:=ctod("")
PRINTER oPrn DOC "INFORME"  preview
    DEFINE FONT oFont3 NAME "Arial" SIZE 0,-14 BOLD OF oPrn
    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10 OF oPrn
    DEFINE FONT oFont2 NAME "Arial" SIZE 0,-8 bold OF oPrn
        define font ofont name "Arial" SIZE 0,-8 of oprn
    DEFINE FONT oFont4 NAME "ArialN" SIZE 0,-16 BOLD OF oPrn
    DEFINE FONT oFont5 NAME "ArialN" SIZE 0,-12 bold OF oPrn
    DEFINE FONT oFont6 NAME "ArialN" SIZE 0,-10 bold OF oPrn
        define font ofont7 name "Arial" SIZE 0,-10 bold of oprn
        DEFINE PEN oPen2 WIDTH 12 of oprn
        DEFINE PEN oPen1 WIDTH 6 of oprn

        DEFINE PEN oPen WIDTH 3 of oprn
              oprn:SetLandscape()
          PAGE
          yilin:=0.9
              xilin:=23
              oPrn:Cmtr2Pix(@yilin, @xilin)
              *oPrn:SAYBITMAP(yilin, xilin,"LOGOSES",495,385  )
          yilin:=0.9
              xilin:=26
              oPrn:Cmtr2Pix(@yilin, @xilin)
              *oPrn:SAYBITMAP(yilin, xilin,"SEPAD",480,288  )
              oprn:cmsay(1.5,0.9, "CENTRO SOCIO-SANITARIO DE PLASENCIA", OFONT5)
              oprn:cmsay(0.9,0.9, "HOJA DE TRATAMIENTO", OFONT4)
              yilin:=2
              xilin:=0.9
              yflin:=2
              xflin:=22.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=2.8
              xilin:=0.8
              yflin:=4.4
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen2  )
              oprn:cmsay(3,15.2, "Unidad",ofont6)
              oprn:cmsay(3,19 ,"Nº Historia",ofont6)
              oprn:cmsay(3,23, "N.A.S.S",ofont6)
              oprn:cmsay(3.4,1, "Fecha Nacimiento",ofont6)
              oprn:cmsay(3.4,6, "Tipo dieta",ofont6)
              oprn:cmsay(3.4,17.5, "Médico",ofont6)
              oprn:cmsay(3.9,1, "ALERGIAS/OTRAS",ofont6)
              oprn:cmsay(4.5,1, "PRINCIPIO ACTIVO",ofont6)
              oprn:cmsay(4.5,6, "ESPECIALIDAD",ofont6)
              oprn:cmsay(4.5,16, "L.",ofont6)
              oprn:cmsay(4.5,12.5, "PAUTA",ofont6)
              oprn:cmsay(4.5,16.6, "INICIO",ofont6)
              oprn:cmsay(4.5,18.1, "FIN",ofont6)
              oprn:cmsay(4.5,19.5, "OBSERVACIONES",ofont6)
              yilin:=5
              xilin:=0.9
              yflin:=5
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=17
              xilin:=0.9
              yflin:=17
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=17.2
              xilin:=5.2
              yflin:=19.9
              xflin:=17
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              yilin:=17.2
              xilin:=17.2
              yflin:=19.9
              xflin:=22.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              yilin:=17.2
              xilin:=22.7
              yflin:=19.9
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              oprn:cmsay(17.1,1, "Fecha de emisión",ofont6)
              oprn:cmsay(17.2,5.3 ,"Plan de cuidados",ofont6)
              oprn:cmsay(17.2,17.3, "El FACULTATIVO,",ofont5)
              oprn:cmsay(17.2,22.8, "EL ENFERMERO/A,",ofont5)
              oprn:cmsay(18.2,1, "Nº DE ORDEN",ofont6)
          oprn:cmsay(3.9,18.3, "Ingreso: ",ofont5)
              oprn:cmsay(17.5,2.1,dtoc(date()),ofont)
              oprn:cmsay(18.6,2.1,str(vnumero,12,0),ofont)
              oprn:cmsay(20,24,"Impreso el: "+DTOC(date()),ofont6)


          endpage
    ENDPRINT
    oFont:End()
    ofont1:end()
        open:end()
return nil