PB9输液排队叫号

https://download.csdn.net/download/weixin_41317666/10740423

//==============================================================================
// 【排队叫号】
//==============================================================================
Long ll_cnt,ll_rdid,ll_dlid,ll_pdhm,i,ll_fwtid
string ls_ygdm,ls_ksdm

If dw_pdxx.RowCount() < 1 Then Return
For i = 1 To dw_pdxx.RowCount()
	If dw_pdxx.Object.pdzt[i] <> -2 Then //【正在就诊】
		If i <= dw_pdxx.RowCount() Then
			ll_rdid = dw_pdxx.Object.rdid[i]
			ll_dlid = dw_pdxx.Object.dlid[i]
			ll_pdhm = dw_pdxx.Object.pdhm[i]
			ls_ksdm = dw_pdxx.Object.ksdm[i]
			ls_ygdm = dw_ygdm.object.ygdm[1]
			ll_fwtid = dw_pdxx.object.fwtid[1]
			Select Count(*) Into :ll_cnt From pd_pdjh where rdid = :ll_rdid Using sqlca;
			
			//If ll_Cnt < 1 Then 
			Insert Into pd_pdjh (rdid,dlid,pdhm,ygdm,ksdm,fwtid) Values (:ll_rdid,:ll_dlid,:ll_pdhm,:ls_ygdm,:ls_ksdm,:ll_fwtid) Using sqlca;
			If sqlca.SQLCode = 0 Then
				Commit Using sqlca;
			Else
				Rollback Using sqlca;
			End If
			Exit
		End If
	End If
Next
//End If