script
Local _pom
sele zpuda
*if zpuda.pl01id='KARTA '
*	if MESSAGEBOX('Proběhla platba kartou v pořádku?',36,'Platba')<>6
*		return .f.
*	endif
*endif
_pom=CreateObject('BM_CODE_EET')
if !_pom.EET_Go(zpuda.sp33cisdr,zpuda.sp33cisdpm,zpuda.sp33cisd,zpuda.sp33porad,zpuda.sp07idtyp,zpuda.sp06idsubs)
	return .f.
endif

#INCLUDE SYSEET
endscript