SldBlqSB2 – Blog Advpl

SldBlqSB2

Equipe Blog Advpl 19 de novembro de 2016 0

Verifica o status do saldo do armazém

Sintaxe:

lStatus:= SldBlqSB2(ExpC1,ExpC2,ExpC3,ExpL1)

Exemplo:

//
//Verifico se o produto está Disponível ou Indisponível no Estoque
If SldBlqSB2(cTmpProd,cLocal)
	If ( SuperGetMv("MV_ESTNEG") == "N" ) 
		DbSelectArea("SB2")
		If (Eof() .OR. SB2->B2_QATU > nTQuant)
			MsgInfo( AllTrim(cTmpProd) + " - " + AllTrim(cDescrProd ),"Aviso")
			lRet := .F.
		EndIf
	EndIf
Else     
	lRet := .F.	
EndIf

Relacionado