Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

TTXOQB_DT_CTSETFIL_En_la_Función_ADMGETFIL_Selección_Sucursales

Características del requisito

Línea de producto:

Microsiga Protheus

Segmento:

Servicios

Módulo:

Financiero

Rutina:

Rutina

Nombre técnico

ADMGETFIL

ADMXFUN

Registros iniciales:

Registro de sucursales, SM0

Punto de entrada:

CTSETFIL

Llamados relacionados

TTXOQB

País(es):

Todos

Base(s) de datos:

Todas

Tablas utilizadas:

SM0

Sistema(s) operativo(s):

Todos

Versiones/Release:

12.1.7

Punto de entrada

Descripción:


  1. aSit - Array con las sucursales incluidas
  2. nI - Contiene la cantidad de registros de aSit

Ubicación:

Este punto de entrada se utiliza en diferentes rutinas de los módulos de Control de gestión.

Eventos:

La función AdmGetFil es utilizada por diferentes rutinas de control de gestión, mostrándose una ventana para selección de sucursales

Programa fuente:

ADMXFUN

Función:

ADMGETFIL

Devolución:

Nombre

Tipo

Descripción

Obligatorio

aSit

Array

Array con las informaciones de las empresas

Sí

 

Ejemplo:

#Include 'Protheus.ch'

User Function CtSetFil()
Local aArea := SM0->( GetArea() )
Local aAuxArea := GetArea()
Local aRetSM0 := {}

DbSelectArea( "SM0" )
SM0->( DbGoTop() )
DbSeek(cEmpAnt)


While SM0->( !Eof() ) .AND. SM0->M0_CODIGO = cEmpAnt
      aAdd( aRetSM0, {SM0->M0_CODFIL,SM0->M0_FILIAL,LEFT(SM0->M0_CGC,2)+"."+SUBSTR(SM0->M0_CGC,3,3)+"."+SUBSTR(SM0->M0_CGC,6,3)+"/"+SUBSTR(SM0->M0_CGC,9,4)+"-"+SUBSTR(SM0->M0_CGC,13,2)} )
      SM0->(DbSkip()) 
EndDo

RestArea( aArea )
RestArea( aAuxArea )

Return aRetSM0