SIGACUSA.PRX Generica do estoque
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | SIGACUSA.PRX Generica do estoque |
| País: | Todos |
LOCALIZAÇÃO: Fonte Sigacusa função Rastro - verificação de utilização de rastro no produto.
EM QUE PONTO: O Ponto de entrada é executado durante a verificação se o produto utiliza o conceito de lote, executado em diversos pontos do sistema.
EXEMPLO DE UTILIZAÇÃO ADVPL
#INCLUDE 'PROTHEUS.CH'
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TestLot()
Local lRet:= .T.// Validações Específicas
If SB1->B1_RASTRO = 'L'
ALERT ('O produto '+SB1->B1_COD+' usa Lote')
lRet:= .T.
EndIF
If SB1->B1_RASTRO = 'S'
ALERT ('O produto '+SB1->B1_COD+' usa sublote')
lRet:= .T.
EndIF
If SB1->B1_RASTRO = 'N'
ALERT ('O produto '+SB1->B1_COD+' não usa lote/sublote')
lRet:= .F.
EndIF
Return lRet |