Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 13

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

TTXOQM_DT_CTSETFIL_En_la_Función_ADMGETFIL_Selección_Sucursales

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

TTXOQM

País(es):

Todos

Base(s) de datos:

Todas

Tablas utilizadas:

SM0

Sistema(s) operativo(s):

Todos

Punto de entrada

Descripción:

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

Ubicación:

El Punto de entrada CtSetFil 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