Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

03. PARÂMETROS

Não possui.


04.
RETORNO

NomeTipoObrigatórioDefaultObservação
LRET
lRet
L
LógicoSim

.T. - continua impressão da etiqueta

.F. - não imprime a etiqueta

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleAI10OPIMP
linenumberstrue
/*/{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     := .tT.
    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)




Templatedocumentos