Como paso esta funcion a java Script
Publicado por paulina (1 intervención) el 05/01/2009 18:51:29
Como paso esta funcion a java Script
//Función que regresa el Nombre del Comprobante Generico
Public Function objfun2() As String
On Error GoTo errfunction
'2.1 Si la primera T = 3002 or 3004 or 4702 NO = DEPOSITO A SU CUENTA
'2.2 Si Si la primera T = 3101 NO = DEPOSITO CUENTA SBC
'2.3 ELSE NO = NO
Select Case CDbl(objTransac.gElemento(1).NumeroTrans)
Case 3002, 3004, 4702
objfun2 = "DEPOSITO A SU CUENTA"
Case 3101
objfun2 = "DEPOSITO A SU CUENTA SBC"
Case Else
objfun2 = objTransac.ElementoENC("NO").Valor
End Select
Exit Function
errfunction:
MsgBox "Error en funcion: objfun2" & Err.Description, vbExclamation, "TEOS"
blnErrorFuncion = True
End Function
//Función que regresa el Nombre del Comprobante Generico
Public Function objfun2() As String
On Error GoTo errfunction
'2.1 Si la primera T = 3002 or 3004 or 4702 NO = DEPOSITO A SU CUENTA
'2.2 Si Si la primera T = 3101 NO = DEPOSITO CUENTA SBC
'2.3 ELSE NO = NO
Select Case CDbl(objTransac.gElemento(1).NumeroTrans)
Case 3002, 3004, 4702
objfun2 = "DEPOSITO A SU CUENTA"
Case 3101
objfun2 = "DEPOSITO A SU CUENTA SBC"
Case Else
objfun2 = objTransac.ElementoENC("NO").Valor
End Select
Exit Function
errfunction:
MsgBox "Error en funcion: objfun2" & Err.Description, vbExclamation, "TEOS"
blnErrorFuncion = True
End Function
Valora esta pregunta


0