SELECT * FROM PensKind INTO CURSOR PensKind_q ORDER BY opis
thisform.refresh()

SELECT * FROM Invalid INTO CURSOR Invalid_q ORDER BY opis
SELECT * FROM GrInv INTO CURSOR GrInv_q ORDER BY opis
SELECT * FROM chaesmember;
INTO CURSOR chaesmember_q ORDER BY opis

SELECT * FROM fightmember INTO CURSOR fightmember_q ORDER BY opis
SELECT * FROM warmember INTO CURSOR warmember_q ORDER BY opis

SELECT * FROM statusa INTO CURSOR statusa_q ORDER BY opis
SELECT * FROM statusb INTO CURSOR statusb_q ORDER BY opis

SELECT * FROM addtopens INTO CURSOR addtopens_q ORDER BY opis





LOCAL cNXP1, cSURNAME1, cNAME1, cFATHERNAME1, ;
	cPHONE1, nSEX1, nZVANIE1, cPASSPORT1,;
	dDATAPAS1, cidnumber1, dBIRTHDATE1, cCITY1, cDEPARTMENT1, ;
	cSTREET1, cHOUSENO1, cFLAT1, ; && 2
	nkindofpension1, dstartpension1, cpenslist1, ;
	cpensdoc1, ddatavid1, caccount1, cposvveteran1, ddataposv1, ; && 3
	nINVALID1, nGROUPINVALID1, cPOSVINVALID1,;
	dDATAPOSVINV1, nCHAESMEMBER1, cposvchmember1, ddatapchm1, ; && 4
	nfightmember1, cposvfightmember1, ddatafm1, ; 
	nWarmember1, cposvwarmb1, ddatapwm1, ;  && 5
	nstatusa1, cposvsta1, datapsa1, nStatusb1, cposvstb1, datapsb1, ; && 6
	npensionsize1, naddtopens1, ddatapchm1, cfamilystate1, chealthstate1


With thisform.pgfr1.page1
	cNXP1 = ALLTRIM(.NXP1.value)
	cSURNAME1 = ALLTRIM(.SURNAME1.value)
	cNAME1 = ALLTRIM(.name1.value)
	cFATHERNAME1 = ALLTRIM(.FATHERNAME1.value)
	cPHONE1 = ALLTRIM(.PHONE1.value)
	nSEX1 = sex_q.sex
	nZVANIE1 = ZVANIA_q.zvanie_id
	cPASSPORT1 = ALLTRIM(.PASSPORT1.value)
	dDATAPAS1 = .DATAPAS1.value
	cidnumber1 = ALLTRIM(.idnumber1.value)
	dBIRTHDATE1 = .BIRTHDATE1.value
	cCITY1 = ALLTRIM(.CITY1.value)
	cDEPARTMENT1 = ALLTRIM(.DPARTMENT1.value)
	cSTREET1 = ALLTRIM(.STREET1.value)
	cHOUSENO1 = ALLTRIM(.HOUSENO1.value)
	cFLAT1 = ALLTRIM(.FLAT1.value)
ENDWITH

With thisform.pgfr1.page2
	nkindofpension1 = PensKind_q.kindofpension
	dstartpension1 = .startpension1.value
	cpenslist1 = ALLTRIM(.penslist1.value)
	cpensdoc1 = ALLTRIM(.pensdoc1.value)
	ddatavid1 = .datavid1.value
	caccount1 = ALLTRIM(.account1.value)
	cposvveteran1 = ALLTRIM(.posvveteran1.value)
	ddataposv1 = .dataposv1.value
ENDWITH

With thisform.pgfr1.page3
	nINVALID1 = Invalid_q.invalid
	nGROUPINVALID1 = GrInv_q.groupinvalid
	cPOSVINVALID1 = ALLTRIM(.POSVINVALID1.value)
	dDATAPOSVINV1 = .DATAPOSVINV1.value
	nCHAESMEMBER1 = chaesmember_q.chaesmember
	cposvchmember1 = ALLTRIM(.posvchmember1.value)
	ddatapchm1 = .datapchm1.value
ENDWITH

With thisform.pgfr1.page4
	nfightmember1 = fightmember_q.fightmember
	cposvfightmember1 = ALLTRIM(.posvfightmember1.value)
	ddatafm1 = .datafm1.value
	nWarmember1 = Warmember_q.warmember
	cposvwarmb1 = ALLTRIM(.posvwarmb1.value)
	ddatapwm1 = .datapwm1.value
ENDWITH

With thisform.pgfr1.page5
	nstatusa1 = statusa_q.statusa
	cposvsta1 = ALLTRIM(.posvsta1.value)
	datapsa1 = .datapsa1.value
	nStatusb1 = statusa_q.statusa
	cposvstb1 = ALLTRIM(.posvstb1.value)
	datapsb1 = .datapsb1.value
ENDWITH

With thisform.pgfr1.page6
	npensionsize1 = .pensionsize1.value
	naddtopens1 = addtopens_q.addtopens
	ddatapchm1 = .datapchm1.value
	cfamilystate1 = ALLTRIM(.familystate1.value)
	chealthstate1 = ALLTRIM(.healthstate1.value)
ENDWITH
