IF gnConnHandle <=  0 
	= Con2OraError()
ELSE

Recordid = THISFORM.nChosenPrimaryId  &&'51'
Sur = ALLTRIM(UPPER(Thisform.Surn1.Value))  &&'Êîçàê'
Nam = ALLTRIM(Thisform.cName1.Value)  &&'Âàäèì'
Fat = ALLTRIM(Thisform.cFname1.Value)  &&'Ìèõ'
Jobb = ALLTRIM(Thisform.cJob1.Value)  &&'ÔÑÑ'
Posit = ALLTRIM(Thisform.cPosada1.Value)  &&'Ïðîãðàììåð'
DPAId = ALLTRIM(Thisform.cDpa1.Value)  &&'1234567890'
Pass = ALLTRIM(Thisform.cPass1.Value)  &&'ÂÎ - 005533'
Adr = ALLTRIM(Thisform.cAdress1.Value)  &&'Óæãîðîä'
InDay = DTOC(Thisform.Datin1.Value)  &&'15/05/2005'
OutDay = DTOC(Thisform.DatOut1.Value)  &&'20/05/2005'
cWhoDidIt = TTOC(datetime()) + ' - ' + cWhoIsWorking

DO CASE
	CASE Thisform.WhatToDo =  1   && INSERTING

cSP = "{call fin.FM32YO_Update_Persons_IN_PUT2(1, '0', ?Recordid, ?Sur, ?Nam, ?Fat, ?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt)}"  

	CASE Thisform.WhatToDo =  2   && UPDATING
	
cSP = "{call fin.FM32YO_Update_Persons_IN_PUT2(2, ?Recordid, '', ?Sur, ?Nam, ?Fat, ?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt)}"  
	
ENDCASE	

k = SQLExec(gnConnHandle, cSP)

IF K <>  1 
AERROR(laError) 
	= MESSAGEBOX('Процедура ' + cSP + 'не выполнилась!!' + CHR( 13 ) + ;
	laError( 2 ),  48 , 'Ñîîáùåíèå îá îùèáêå ¹' + STR(laError( 1 )) )	
*	= SQLDISCONNECT(gnConnHandle)
ELSE
	
ENDIF