Abrangências: | A partir TOTVS Application Server 10 |
Versões: | A partir Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todas TotvsDbAccess |
Idiomas: | Espanhol , Inglês |
Descrição:
Rotina genérica do ACD usado nas rotinas do ACD / VT100 com rastreabilidade.
Localizado na digitação ou leitura do lote, sub-lote e data de validade do lote, permitido informar os campos lote, sub-lote e data de validade do lote.
Programa Fonte
ACDXFUN.PRW
Sintaxe
CBRASTRO - Cadastro do Lote ou Sub-lote ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ] ) --> aRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB[1] | Caracter | Código do produto. | |||||||||||||||
PARAMIXB[2] | Caracter | Número do lote. | |||||||||||||||
PARAMIXB[3] | Caracter | Número do sub-lote. | |||||||||||||||
PARAMIXB[4] | Data | Data de validade. |
Retorno
aRet- (vetor)
- Onde item 1, número do lote; item 2, número do sub-lote; item 3, data de validade do lote e opcional item 4, logico Altera lote = .T., não altera = .F., Abre a opção de alteração de lote.
{lote,sub-lote,data-de-validade,.f.}
Observações
Retornar conteúdo somente para os campos os quais não deverão ser solicitados ao operador (Coletor Radio Frequência).
#INCLUDE "PROTHEUS.CH"
User Function CBRASTRO
Local cPAR1 := PARAMIXB[1]
Local cPAR2 := PARAMIXB[2]
Local cPAR3 := PARAMIXB[3]
Local dPAR4 := PARAMIXB[4]
local aRet := {}
Conout ('Produto :'+cPAR1+' Lote : '+cPAR2+' Sublote :'+if(Empty(cPAR3),' ',cPAR3)+' DATA VALIDADE : '+dtoc(dPAR4))
aRet:= {cPAR2,cPAR3,dPAR4,.T.}
Return aRet