Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CBRASTRO - Cadastro do Lote ou Sub-lote


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).


Exemplos
#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