Prof. Tito N. Arias Córdova
e-mail:
[email protected]
Nota: Los parámetros del comando Select se deben escribir
en una sola línea. Visual Fox nos permite escribir en varia
línea sólo para finalizar un línea para iniciar otro se debe
colocar punto y coma (;)
Botón Cerrar de la Pagina1 (copiar para los 2 restantes)
THISFORM.RELEASE
Botón Abrir Acta de la Pagina2.
select matrimonio
x=val(thisform.pag1.p2.text1.value)
select
l.codigom,l.hregistro,l.nomc1,l.ape1c1,l.ape2c1,l.ecc1,l.cp
obc1,l.nomc2,l.ape1c2,l.ape2c2,l.ecc2,l.cpobc2,l.nomt1,l.a
pe1t1,l.ape2t1,l.nomt2,l.ape1t2,l.ape2t2,l.nomceleb,;
l.apenomr from matrimonio l WHERE l.codigom=x into
cursor x1
if thisform.pag1.p2.optiongroup1.option1.value=1 then
report form c:\Systema\informes\matrimonio preview
else
report form c:\Systema\informes\matrimonio to print
endif
Botón Abrir Acta de la Página3.
select defuncion
x=val(thisform.pag1.p3.text1.value)
select
l.codigod,l.nomd,l.ape1d,l.ape2d,l.sexod,l.edadd,l.docd,l.lo
cpd,l.lodistd,l.loprovd,l.lodptod,;
l.centpob
,l.estcd,l.apenomcd,l.nomp,l.ape1p,l.ape2p,l.nomm,l.ape1
m,l.ape2m,l.nomde,l.ape1de,l.ape2de,;
l.docde,l.edadde,l.apenomr from defuncion l WHERE
l.codigod=x into cursor x1
if thisform.pag1.p3.optiongroup1.option1.value=1 then
report form c:\Systema\informes\defuncion preview
else