FISR12AS Desactivar el uso de la Función RetNewSer no fisr012

Línea de Producto:

Protheus

Segmento:

Manufactura

Módulo:

SIGAFIS

Parámetro(s):

PARAMIXB -> Array 
[1] Serie del Documento
[2] Tipo de documento

Base(s) de Datos:

Todos

Sistema(s) Operacional(es):

Todos

Versiones/Release:

Todas

Descripción:

 

 

LOCALIZACIÓN: Function FImpLivFis y GerArq

 

 

 

DESCRIPCIÓN: Se utiliza para definir si se realizará o no el acceso a la función RetNewSer

Observación:

 

Ejemplos:

#Include 'Protheus.ch' 
User Function FISR12AS()
Local lRetnSer:= .T.
Local cSerie:= Paramixb[1] // Serie del Documento
Local cTipo:= Paramixb[2] // Tipo de Documento

// Ejemplo donde las series que inician con E, F o B no permiten acceso a la función RetNewSer. 

If Subs(cSerie,1,1) $ 'E|F|B'
 lRetnSer:= .F.
EndIf
  
Return(lRetnSer)
 
 
 

 

 

Programa Fuente:

FISR012.prw

Retorno:

lRetnSer(lógico) -> Accesa o no la función RetNewSer. Default .T.