Versões comparadas

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

TTXIYS_DT_CTSETFIL_

Na

En_la_

Função

Función_ADMGETFIL_

Seleção

Selección_

Filiais

Sucursales

Características

do Requisito

del requisito

Linha

Línea de

Produto

producto:

Microsiga Protheus

Segmento:

Serviços

Servicios

Módulo:

Financeiro

Financiero

Rotina

Rutina:

Rotina

Rutina

Nome Técnico

Nombre técnico

ADMGETFIL

ADMXFUN

Cadastros Iniciais

Registros iniciales:

Cadastro

Registro de

filiais

sucursales, SM0

Ponto

Punto de

Entrada

entrada:

CTSETFIL

Chamados Relacionados

Llamados relacionados

TTXIYS

País(es):

Todos

Banco

Base(s) de

Dados

datos:

Todos

Todas

Tabelas Utilizadas

Tablas utilizadas:

SM0

Sistema(s)

Operacional

operativo(

is

s):

Todos

Versões

Versiones/Release:

11.80

Ponto

Punto de

Entrada

entrada

Descrição

Descripción:

 


  1. aSit - Array
contendo as filiais já adicionadas
  1. con las sucursales incluidas
  2. nI -
Contém a quantidade
  1. Contiene la cantidad de registros de aSit
Localização

Ubicación:

Este

ponto

punto de entrada

é utilizado em diversas rotinas dos módulos da Controladoria

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

Eventos:

A função

La función AdmGetFil

é

es utilizada por

diversas rotinas da controladoria, sendo exibida uma janela para seleção de filiais

diferentes rutinas de control de gestión, mostrándose una ventana para selección de sucursales

Programa fuente

Programa Fonte

:

ADMXFUN

Função

Función:

ADMGETFIL

Retorno

Devolución:

Nome

Nombre

Tipo

Descrição

Descripción

Obrigatório

Obligatorio

aSit

Array

Array

contendo as informações das

con las informaciones de las empresas

Sim

 

ExemploEjemplo:

#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