|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
AND EM DBSEEK |
|
Versão: |
. |
|
Plataforma: |
. |
Complemento: |
|
|
DB: |
. |
Complemento: |
|
|
|
|
|
Mensagem do
GUSTAVOJ
em 05/02/2019, 17:23 h
Local: SP Registro: 22/01/2019 Postagens: 22 |
é possível eu especificar o tipo do produto que eu preciso validar
USER FUNCTION CF046FAT()
LOCAL lRet := .T.
LOCAL nResult := 1
LOCAL nQuant := M->C6_QTDVEN
dbSelectArea("SB1")
SB1->(dbSetOrder(1)) //código do produto
SB1->(dbSeek(xFilial("SB1")+M->C6_PRODUTO) .AND. ALLTRIM(SB1->B1_TIPO) $("MQ,FM"))
IF nQuant <> nResult //se quantidade diferente de 1
MSGALERT( "Para produtos do tipo MQ ou FM a quantidade deve ser igual a 1 para preenchimento do campo patrimônio!" )
lRet := .F.
ELSE
lRet := .T.
ENDIF
dbcloseArea("SB1")
RETURN lRet |
|
|
Mensagem do
KANAAMLRR
em 06/02/2019, 09:48 h
Local: SP Registro: 19/11/2010 Postagens: 160 |
Não é possível dentro do dbSeek, mas você pode fazer assim:
USER FUNCTION CF046FAT()
LOCAL lRet := .T.
LOCAL nResult := 1
LOCAL nQuant := M->C6_QTDVEN
dbSelectArea("SB1")
SB1->(dbSetOrder(1)) //código do produto
If SB1->(dbSeek(xFilial("SB1")+M->C6_PRODUTO)) .AND. ALLTRIM(SB1->B1_TIPO) $("MQ,FM")
IF nQuant <> nResult //se quantidade diferente de 1
MSGALERT( "Para produtos do tipo MQ ou FM a quantidade deve ser igual a 1 para preenchimento do campo patrimônio!" )
lRet := .F.
ELSE
lRet := .T.
ENDIF
EndIf
dbcloseArea("SB1")
RETURN lRet
At.,
Kanaãm L. R. Rodrigues |
|
|
Mensagem do
MARCELO999
em 06/02/2019, 13:29 h
Local: SP Registro: 11/01/2019 Postagens: 3 |
Boa tarde.
Só vai funcionar se você colocar um if e endif
LOCAL lRet := .T.
LOCAL nResult := 1
LOCAL nQuant := M->C6_QTDVEN
dbSelectArea("SB1")
SB1->(dbSetOrder(1)) //código do produto
IF SB1->(dbSeek(xFilial("SB1")+M->C6_PRODUTO) .AND. ALLTRIM(SB1->B1_TIPO) $("MQ,FM"))
IF nQuant <> nResult //se quantidade diferente de 1
MSGALERT( "Para produtos do tipo MQ ou FM a quantidade deve ser igual a 1 para preenchimento do campo patrimônio!" )
lRet := .F.
ELSE
lRet := .T.
ENDIF
ENDIF
dbcloseArea("SB1")
RETURN lRet |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|