buenas noches tengo otra consulta
quiero validar un correo que no meta mas de un @ o mas de un . punto
esta viendo esta validacion me funciona pero solo valida qeu coloque el @ y el punto
long ll_pos, ll_pos2
ll_pos = 0
ll_pos2 = 0
ll_pos = POS(dw_datos_proveedores.object.e_mail[1], "@")
ll_pos2 = POS(dw_datos_proveedores.object.e_mail[1], ".",ll_pos)
IF (ll_pos < 2 OR ll_pos2 < 1) OR (ll_pos2 < ll_pos) THEN
messagebox("error", "error")
RETURN
END IF
tambien tenia otra duda en esta linea
ll_pos2 = POS(dw_datos_proveedores.object.e_mail[1], ".",ll_pos)
hay dicen que si no encuentra el . entonces empiza en la posicion que de vuelve el ll_pos entonces retornara 0
verdad?
