Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:ACD - Automação Coleta de Dados
Função:

ACDI010 - Impressão de Etiquetas de produtos

02. DESCRIÇÃO

Este ponto de entrada é chamado no início da rotina de impressão de etiquetas de produtos por ordem de produção, para validar se permite ou não a impressão da etiqueta.


Tabelas Posicionadas:

SD3 - Movimentação interna

03. PARÂMETROS

Não possui.


04. RETORNO

NomeTipoObrigatórioDefaultObservação
lRetLógicoSim

.T. - continua impressão da etiqueta

.F. - não imprime a etiqueta

05. EXEMPLO DE UTILIZAÇÃO

AI10OPIMP
/*/{Protheus.doc} User Function AI10OPIMP
    Valida se efetua a impressão da etiqueta
    @type  Function
    @author TOTVS
    /*/
User Function  AI10OPIMP()     
    Local aArea    := GetArea()
    Local aAreaSB1 := SB1->( GetArea() )
    Local lRet     := .T.
    Local cGrupo   := ""
 
    // validação do cliente
    cGrupo := POSICIONE( "SB1", 1, xFilial( "SB1" ) + SD3->D3_COD, "B1_GRUPO" )
    If cGrupo $ GetNewPar( "MV_XGRPPIM", "8888" )
       lRet := .F.
    Endif   
 
    RestArea( aAreaSB1 )
    RestArea( aArea ) 
Return lRet