Source language: Translate to:

Agenda de citas diarias

Discusión sobre NeoBook en español

Moderators: Neosoft Support, beno

Agenda de citas diarias

Postby antuan » Mon Feb 13, 2017 12:51 pm

Tengo que hacer una agenda diaria de citas y me gustaría me informarais de como debo hacerla.
He pensado hacer una base de datos con los 365 días del año.
Alguna idea….?.
Muchas gracias.
antuan
 
Posts: 18
Joined: Wed Feb 22, 2012 10:35 pm

Re: Agenda de citas diarias

Postby virger » Tue Feb 14, 2017 8:02 pm

Bueno este fue uno de mis primeros, quiza te ayude.No es una VERDADERA BASE DE DATOS, pero ve quiza....
Si queres mas complejidad, especifca y con algun tiempito te ayudo.

Code: Select all
NBW Publication Source File
(C)2016 NeoSoft Corp.
Title=CITAS DIARIAS
Language=US
NeoBookVer=5,80
ScreenColors=16777216
ScreenWidth=530
ScreenHeight=230
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=31
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
SubroutineAction=:HayCitas¶math "[[self]]" "" "[Dy]"¶fileexists "Cita_[nMes]_[Dy].dat" "[sn]"¶if "[sn]" "=" "False"¶    setvar "[HayCitas]" "No Hay Citas"¶else¶    fileLen "Cita_[nMes]_[Dy].dat" "[Sz]"¶    setvar "[HayCitas]" "Hay [Sz] Citas"¶endif¶GetObjectInfo "[Self]" "FillColor" "[Kolor]"¶SetObjectFill "[Self]" "Aqua" "Solid" "False"¶GetObjectInfo "[Self]" "Left" "[PsX]"¶GetObjectInfo "[Self]" "Top"  "[PsY]"¶moveobject "InfMsg" "[PsX]" "[Psy]-15"¶Return¶¶¶:RetNormal¶SetObjectFill "[Self]" "[Kolor]" "Solid" "False"¶moveobject "InfMsg" "-100" "-100"¶Return¶¶¶:Dia¶substr "[Self]" "3" "2" "[fDy]"¶math "[[self]]" "" "[vDy]"¶math "[vDy]+2" "" "[PsFec]"¶fileexists "Cita_[nMes]_[vDy].dat" "[sn]"¶if "[sn]" "=" "False"¶    alertbox "ALERTA" "NO HAY CITAS EN ESTE DIA"¶    gotoline "NoExiste"¶endif¶¶strparse "[vDt[PsFec]]" "," "[Fec]" "[x]"¶setvar "[Fecha]" "[LosDias[Fec2]] [vDy] de [LosMeses[nMes]]"¶¶enableobject "BtSiguiente"¶¶filelen "Cita_[nMes]_[vDy].dat" "[Sz]"¶loop "1" "[Sz]" "[C]"¶    fileread "Cita_[nMes]_[vDy].dat" "[C]" "[DiaCita]"¶¶    strparse "[DiaCita]" "~" "[Datos]" "[x]"¶    setvar "[Nombre]"   "[Datos1]"¶    setvar "[Id]"       "[Datos2]"¶    setvar "[Procede]"  "[Datos3]"¶¶    setvar "[pare]" ""¶    while "[pare]" "=" ""¶    endwhile¶endloop¶disableobject "BtSiguiente"¶:NoExiste¶Return¶¶¶:DibujaMes¶fileread "Calenda[Year].dat" "[nMes]" "[TxMes]"¶strparse "[TxMes]" ";" "[vDt]" "[x]"¶setvar "[TotDias]" "[vDt1]"¶setvar "[DiaNum]"  "[vDt2]"¶¶.gosub "DibujaEsteMes"¶¶.#######¶.//setvar "[Ini]" "![nMes]/01/2017"¶.//Call "DiaNumDias" "[Ini]" "[DiaNum]" "[TotDias]" "[Dia]"¶.//math "[DiaNum]+1" "" "[DiaNum]"¶¶:DibujaEsteMes¶gosub "LimpiaCalendario"¶¶setvar "[tDiaNum]" "[DiaNum]"¶loop "1" "[DiaNum]" "[c]"¶    hideobject "Dy[c]" "" ""¶endloop¶¶setvar "[ElDia]" "1"¶loop "1" "[TotDias]" "[d]"¶    setvar "[vD]" "[D]"¶    if "[D]" "<" "10"¶        setvar "[vD]" "0[D]"¶    endif¶    fileexists "Cita_[nMes]_[D].dat" "[sn]"¶    if "[sn]" "=" "True"¶        SetObjectFill "Dy[DiaNum]" "248,176,24" "Solid" "False"¶    endif¶    showobject "Dy[DiaNum]" "" ""¶    setvar "[Dy[DiaNum]]" "[vD]"¶    math "[DiaNum]+1" "" "[DiaNum]"¶endloop¶¶loop "[DiaNum]" "42" "[c]"¶    hideobject "Dy[c]" "" ""¶endloop¶Return¶¶¶:LimpiaCalendario¶loop "1" "42" "[c]"¶    SetObjectFill "Dy[C]" "225,225,225" "Solid" "False"¶    setvar "[dy[c]]" ""¶endloop¶Return¶¶¶:CreaCalenda¶setvar "[Acc]" "All"¶loop "1" "12" "[nMes]"¶    setvar "[dia1]" "![nMes]/01/[Year]"¶    Call "DiaNumDias" "[Dia1]" "[DiaNum]" "[TotDias]" "[Dia]" ¶    math "[DiaNum]+1" "" "[TxMes]"¶    setvar "[TxMes]" "[TotDias];[TxMes];"¶    loop "1" "[TotDias]" "[d]"¶        setvar "[vD]" "[D]"¶        if "[D]" "<" "10"¶            setvar "[vD]" "0[D]"¶        endif¶¶        setvar "[TxMes]" "[TxMes][vd],[Dia],00;"¶        math "[Dia]+1" "" "[Dia]"¶        if "[Dia]" ">=" "8"¶            setvar "[Dia]" "1"¶        endif¶    endloop¶    filewrite "Calenda[year].dat" "[acc]" "[TxMes]"¶    setvar "[Acc]" "Append"¶endloop
ShapeTransColor=536870912
SplashProps=3
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=0
PgEnterAction=strparse "Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Setiembre,Octubre,Noviembre,Diciembre" "," "[LosMeses]" "[x]"¶strparse "Domingo,Lunes,Martes,Miercoles,Jueves,Viernes,Sabado" "," "[LosDias]" "[[x]"¶¶setvar "[nMes]" "1"¶gosub "DibujaMes"¶fileexists "Calenda[year].dat" "[sn]"¶if "[sn]" "=" "False"¶    gosub "CreaCalenda"¶endif
ObjectType=11
Name=CbMes
X=34
Y=194
W=95
H=26
Anchor=0
Text=Enero¶Febrero¶Marzo¶Abril¶Mayo¶Junio¶Julio¶Agosto¶Setiembre¶Octubre¶Noviembre¶Diciembre
VarName=[nMes]
VarType=1
XPTheme=Yes
ObjAction=fileread "Calenda[Year].dat" "[nMes]" "[TxMes]"¶strparse "[TxMes]" ";" "[Dt]" "[x]"¶setvar "[TotDias]" "[Dt1]"¶setvar "[DiaNum]"  "[Dt2]"¶¶gosub "DibujaEsteMes"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=3
ObjectType=8
Name=InCalendario
X=2
Y=31
W=165
H=18
Anchor=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b Do  Lu  Ma  Mi Ju  Vi   Sa}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=14739704
FillPattern=1
TabOrder=54
ObjectType=8
Name=InMes
X=39
Y=3
W=86
H=22
Anchor=0
Font=Arial
FontSize=12
FontStyle=1
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b [LosMeses[nMes]]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=55
ObjectType=3
Name=BtSigMes
X=137
Y=3
W=28
H=21
Anchor=0
Text=4
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=if "[nMes]" "<" "12"¶    math "[nMes]+1" "" "[nMes]"¶else¶    setvar "[nMes]" "1"¶endif¶gosub "DibujaMes"
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
FillMode=Yes
Font=Marlett
FontSize=12
FontStyle=1
FontCharset=2
TextColor=0
TabOrder=12
ObjectType=3
Name=BtPreMes
X=6
Y=5
W=28
H=21
Anchor=0
Text=3
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=if "[nMes]" ">" "1"¶    math "[nMes]-1" "" "[nMes]"¶else¶    setvar "[nMes]" "12"¶endif¶gosub "DibujaMes"
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
FillMode=Yes
Font=Marlett
FontSize=12
FontStyle=1
FontCharset=2
TextColor=0
TabOrder=11
ObjectType=8
Name=InfGrl
X=184
Y=31
W=338
H=166
Anchor=0
Font=Arial
FontSize=12
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b Nombre:\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\i  \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b Identificacion:\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\i  \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b Procedencia:\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b }}¶}
HMargin=10
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14743776
FillPattern=1
TabOrder=56
ObjectType=3
Name=BtSiguiente
X=185
Y=5
W=66
H=23
Anchor=0
Text=Siguiente
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=setvar "[pare]" "*"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12566463
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=34
ObjectType=3
Name=BtNuevaCita
X=441
Y=5
W=82
H=23
Anchor=0
Text=Nueva Cita
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=GetObjectInfo "Dy[fDy]" "FillColor" "[xKolor]"¶SetObjectFill "Dy[fDy]" "Fuchsia" "Solid" "False"¶¶clearvariables "[Nombre],[Id],[Procede]"¶setvar "[Pare]" ""¶disableobject "BtSiguiente"¶¶SetObjectFill "EnNombre" "248,200,192" "Solid" "False"¶SetObjectFill "EnId" "248,200,192" "Solid" "False"¶SetObjectFill "EnProcede" "248,200,192" "Solid" "False"¶¶enableobject "BtCancele"¶¶disableobject "[Self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12566463
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=39
ObjectType=9
Name=EnNombre
X=247
Y=53
W=271
H=26
Anchor=0
VarName=[Nombre]
Align=1
EditLen=0
ObjAction=if "[Nombre]" "<>" ""¶    enableobject "BtIncluir"¶else¶    disableobject "BtIncluir"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14743768
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=0
ObjectType=9
Name=EnId
X=247
Y=109
W=88
H=26
Anchor=0
VarName=[Id]
Align=1
EditNumber=Yes
EditLen=8
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14743768
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=9
Name=EnProcede
X=247
Y=165
W=271
H=26
Anchor=0
VarName=[Procede]
Align=1
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14743768
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=2
ObjectType=3
Name=BtIncluir
X=431
Y=201
W=91
H=23
Anchor=0
Text=Incluir
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=SetObjectFill "EnNombre" "216,248,224" "Solid" "False"¶SetObjectFill "EnId" "216,248,224" "Solid" "False"¶SetObjectFill "EnProcede" "216,248,224" "Solid" "False"¶¶filewrite "Cita_[nMes]_[vDy].dat" "Append" "[Nombre]~[Id]~[Procede]"¶¶SetObjectFill "Dy[fDy]" "248,176,24" "Solid" "False"¶¶disableobject "[Self]"¶disableobject "BtCancele"¶¶enableobject "BtNuevaCita"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12566463
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=38
ObjectType=3
Name=Dy1
X=1
Y=48
W=20
H=20
Anchor=0
Text=[dy1]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=10
ObjectType=3
Name=Dy7
X=145
Y=48
W=20
H=20
Anchor=0
Text=[dy7]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=26
ObjectType=3
Name=Dy14
X=145
Y=72
W=20
H=20
Anchor=0
Text=[dy14]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=40
ObjectType=3
Name=Dy8
X=1
Y=72
W=20
H=20
Anchor=0
Text=[dy8]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=22
ObjectType=3
Name=Dy15
X=1
Y=96
W=20
H=20
Anchor=0
Text=[dy15]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=29
ObjectType=3
Name=Dy35
X=145
Y=144
W=20
H=20
Anchor=0
Text=[dy35]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=20
ObjectType=3
Name=Dy21
X=145
Y=96
W=20
H=20
Anchor=0
Text=[dy21]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=28
ObjectType=3
Name=Dy28
X=145
Y=120
W=20
H=20
Anchor=0
Text=[dy28]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=24
ObjectType=3
Name=Dy22
X=1
Y=120
W=20
H=20
Anchor=0
Text=[dy22]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=35
ObjectType=3
Name=Dy29
X=1
Y=144
W=20
H=20
Anchor=0
Text=[dy29]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=5
ObjectType=3
Name=Dy42
X=145
Y=168
W=20
H=20
Anchor=0
Text=[dy42]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=16
ObjectType=3
Name=Dy36
X=1
Y=168
W=20
H=20
Anchor=0
Text=[dy36]
Align=2
ImageStyle=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=10025208
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=4
ObjectType=3
Name=Dy3
X=49
Y=48
W=20
H=20
Anchor=0
Text=[dy3]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=6
ObjectType=3
Name=Dy4
X=73
Y=48
W=20
H=20
Anchor=0
Text=[dy4]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=7
ObjectType=3
Name=Dy5
X=97
Y=48
W=20
H=20
Anchor=0
Text=[dy5]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=8
ObjectType=3
Name=Dy6
X=121
Y=48
W=20
H=20
Anchor=0
Text=[dy6]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=9
ObjectType=3
Name=Dy2
X=25
Y=48
W=20
H=20
Anchor=0
Text=[dy2]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=13
ObjectType=3
Name=Dy9
X=25
Y=72
W=20
H=20
Anchor=0
Text=[dy9]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=14
ObjectType=3
Name=Dy10
X=49
Y=72
W=20
H=20
Anchor=0
Text=[dy10]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=15
ObjectType=3
Name=Dy11
X=73
Y=72
W=20
H=20
Anchor=0
Text=[dy11]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=17
ObjectType=3
Name=Dy12
X=97
Y=72
W=20
H=20
Anchor=0
Text=[dy12]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=18
ObjectType=3
Name=Dy13
X=121
Y=72
W=20
H=20
Anchor=0
Text=[dy13]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=41
ObjectType=3
Name=Dy16
X=25
Y=96
W=20
H=20
Anchor=0
Text=[dy16]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=42
ObjectType=3
Name=Dy17
X=49
Y=96
W=20
H=20
Anchor=0
Text=[dy17]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=43
ObjectType=3
Name=Dy18
X=73
Y=96
W=20
H=20
Anchor=0
Text=[dy18]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=44
ObjectType=3
Name=Dy19
X=97
Y=96
W=20
H=20
Anchor=0
Text=[dy19]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=45
ObjectType=3
Name=Dy30
X=25
Y=144
W=20
H=20
Anchor=0
Text=[dy30]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=46
ObjectType=3
Name=Dy31
X=49
Y=144
W=20
H=20
Anchor=0
Text=[dy31]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=47
ObjectType=3
Name=Dy32
X=73
Y=144
W=20
H=20
Anchor=0
Text=[dy32]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=48
ObjectType=3
Name=Dy33
X=97
Y=144
W=20
H=20
Anchor=0
Text=[dy33]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=23
ObjectType=3
Name=Dy34
X=121
Y=144
W=20
H=20
Anchor=0
Text=[dy34]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=30
ObjectType=3
Name=Dy20
X=121
Y=96
W=20
H=20
Anchor=0
Text=[dy20]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=49
ObjectType=3
Name=Dy23
X=25
Y=120
W=20
H=20
Anchor=0
Text=[dy23]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=50
ObjectType=3
Name=Dy24
X=49
Y=120
W=20
H=20
Anchor=0
Text=[dy24]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=51
ObjectType=3
Name=Dy25
X=73
Y=120
W=20
H=20
Anchor=0
Text=[dy25]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=52
ObjectType=3
Name=Dy26
X=97
Y=120
W=20
H=20
Anchor=0
Text=[dy26]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=25
ObjectType=3
Name=Dy27
X=121
Y=120
W=20
H=20
Anchor=0
Text=[dy27]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=27
ObjectType=3
Name=Dy37
X=25
Y=168
W=20
H=20
Anchor=0
Text=[dy37]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=31
ObjectType=3
Name=Dy38
X=49
Y=168
W=20
H=20
Anchor=0
Text=[dy38]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=32
ObjectType=3
Name=Dy39
X=73
Y=168
W=20
H=20
Anchor=0
Text=[dy39]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=33
ObjectType=3
Name=Dy40
X=97
Y=168
W=20
H=20
Anchor=0
Text=[dy40]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=19
ObjectType=3
Name=Dy41
X=121
Y=168
W=20
H=20
Anchor=0
Text=[dy41]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=gosub "Dia"
ObjEnterAction=gosub "HayCitas"
ObjExitAction=GoSub "RetNormal"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14803425
FillPattern=0
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=21
ObjectType=3
Name=BtCancele
X=356
Y=201
W=71
H=23
Anchor=0
Text=Cancele
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=SetObjectFill "Dy[fDy]" "[xKolor]" "Solid" "False"¶disableobject "[Self]"¶enableobject "BtNuevaCita"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12566463
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Enabled=No
TabOrder=37
ObjectType=8
Name=InfFunction
X=547
Y=-74
W=301
H=387
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\ul\i Function "DiasNumDias"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \{NeoBook Function\}\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Version=5,80\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Language=JScript\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Param=[%dia]|Variable|Date\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Param=[%ret]|Variable|Return NumDay\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Param=[%ndi]|Variable|Dias Del Mes\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Param=[%dy]|Variable|Dia De Semana\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \{End\}\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 dia = nbGetVar("[%dia]");\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 ddd = new Date(dia);\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 var mm = ddd.getMonth();\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 var yy = ddd.getYear();\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 var dy = ddd.getDay();\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 dy++;\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 mm++;\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 var nd = new Date(yy, mm, 0).getDate();\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 nbSetVar( '[%ret]', ddd.getDay() )\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 nbSetVar( '[%ndi]',nd)\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 nbSetVar( '[%dy]',dy)\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 }}¶}
HMargin=10
VMargin=10
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=59
ObjectType=8
Name=InFecha
X=259
Y=5
W=175
H=23
Anchor=0
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i [Fecha]}}¶}
HMargin=0
VMargin=2
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16306408
FillPattern=0
TabOrder=60
ObjectType=3
Name=BtSalir
X=184
Y=201
W=71
H=23
Anchor=0
Text=Salir
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=exit "" ""
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12566463
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=36
ObjectType=8
Name=InfMsg
X=-6
Y=-59
W=89
H=19
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 [HayCitas]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12646592
FillPattern=0
TabOrder=58
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 509
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Agenda de citas diarias

Postby antuan » Wed Feb 15, 2017 1:31 am

Decirte virger que he encontrado un ejemplo en PHP que me puede servir.
Como tengo un localhost con Apache en mi ordenador.
Dudaba en hacerlo con Neo o con PHP.
Al encontrar un ejemplo con PHP pues ya lo voy a hacer en PHP en vez de Neo.
Muchas gracias por tu ofrecimiento y ayuda.
Un saludo.
antuan
 
Posts: 18
Joined: Wed Feb 22, 2012 10:35 pm


Return to NeoBook en Español

Who is online

Users browsing this forum: No registered users and 1 guest