...
Rutina: | LOCXPDV |
Descripción: | Punto de entrada para informar el código del punto de venta configurado de manera fija, este recibe un arreglo que contiene el nombre de la rutina que esta en ejecución y el dígito del tipo de documento. |
Parámetros: | ParamIXB[1]//Rutina que se encuentra en uso. ParamIXB[2]//Tipo de documento. |
Ejemplo: | #INCLUDE "Protheus.ch" User Function LOCXPDV() If cRutina == 'MATA465N' .AND. nEspecie == 4 .AND. Type("lFiscal")#"U" Return cParam |
Retorno: | cParam // Punto de venta fijo |
...
User Function LOCXPDV()
Local cRutina := ParamIXB[1]//Parametro que informa la rutina que esta en uso.
Local nEspecie := ParamIXB[2]//Informa el tipo de documento
Local cParam := ''
If cRutina == 'MATA465N' .AND. nEspecie == 4 .AND. Type("lFiscal")#"U"
If lFiscal
cParam := '0001'//Punto de venta fijo
Alert("Su punto de venta es el "+cParam+".")
EndIf
Else
cParam := ''//Parametro que siempre debe de ir vacio vacío en caso de que no se cumpla la condición
EndIf
...
...