Árvore de páginas

TTXIYS_DT_CTSETFIL_Na_Função_ADMGETFIL_Seleção_Filiais

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

ADMGETFIL

ADMXFUN

Cadastros Iniciais:

Cadastro de filiais, SM0

Ponto de Entrada:

CTSETFIL

Chamados Relacionados

TTXIYS

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SM0

Sistema(s) Operacional(is):

Todos

Versões/Release:

11.80

Ponto de Entrada

Descrição:

 

  1. aSit - Array contendo as filiais já adicionadas
  2. nI - Contém a quantidade de registros de aSit

Localização:

Este ponto de entrada é utilizado em diversas rotinas dos módulos da Controladoria.

Eventos:

A função AdmGetFil é utilizada por diversas rotinas da controladoria, sendo exibida uma janela para seleção de filiais

Programa Fonte:

ADMXFUN

Função:

ADMGETFIL

Retorno:

Nome

Tipo

Descrição

Obrigatório

aSit

Array

Array contendo as informações das empresas

Sim

 

Exemplo:

#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