Campo de contacto: como validar?

[marco_ramirez]

Estimados todos

Deseo validar que cada IC tenga al menos una persona de contacto por lo que hice el código que abajo dejo, sin embargo, me doy cuenta que el campo T0.Name en el formulario tiene el valor 'Define de nuevo' y solo al entrar en el y cambiarlo se activan los campos de contacto.

Siendo así qué me sugieren que pueda hacer?

Saludos

/***Campo de contacto***/

          IF Exists(Select T0.Name

                                                            from OCPR T0 INNER JOIN OCRD T1 ON T0.CardCode = T1.CardCode  

                                                                           where T1.CardCode = @list_of_cols_val_tab_del and T1.CardType In ('C','L') and (/*T0.Name is null OR*/ T0.Name ='') )

                              Set @error = 212

  Set @error_message = 'No hay una persona de contacto'

[felipe_loyolarodriguez · Accepted solution]

Con esto lo puedes hacer:

IF NOT EXISTS(SELECT TOP 1 T0.* FROM OCPR T0 WHERE T0.CardCode=@list_of_cols_val_tab_del)

SET @error=106

Saludos

Felipe

[marco_ramirez · Accepted solution]

le agregue unas líneas más para excluir al proveedor, sin embargo, no hace la distinción, estaré errado en algo?

IF NOT EXISTS(SELECT TOP 1 T0.*

                                                  FROM OCPR T0 Inner Join OCRD T1 on T0.CardCode = T1.CardCode

                                                            WHERE T1.CardCode = @list_of_cols_val_tab_del and T1.CardType In ('C','L'))

                              Set @error = 212

[felipe_loyolarodriguez · Accepted solution]

Prueba esto:

IF (SELECT T0.CardType FROM OCRD T0 WHERE T0.CardCode=@list_of_cols_val_tab_del) IN ('C','L')

BEGIN


IF (SELECT TOP 1 T0.CntctCode FROM OCPR T0 INNER JOIN OCRD T1 ON T1.CardCode=T0.CardCode WHERE T1.CardCode=@list_of_cols_val_tab_del AND T1.CardType<>'S') IS NULL


SET @error=106

END

Saludos

[marco_ramirez · Accepted solution]

Genial