Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Daniel Mendes De Melo Sousa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Viviane M Thomaz Mello Lavisio Flores

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

TTXIYS_DT_CTSETFIL_Na_

Funcao

Função_ADMGETFIL_

Selecao

Seleção_Filiais

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAFINFinanceiro

Rotina:

Rotina

Nome Técnico

ADMGETFIL

ADMXFUN

Cadastros Iniciais:

Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito.

Parâmetro(s):

Informe os parâmetros utilizados.

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:Ponto de entrada para a seleção de filiais

 

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

Localização:

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

Eventos:Informe o Título da rotina

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

Programa Fonte:

ADMXFUN

Função:

ADGETFILADMGETFIL

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aSit

 

 

 

 

 

 

 

 

 

 

 

 

Array

Array contendo as informações das empresas

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function

CN120ALT

CtSetFil()
Local

aCab

aArea :=

PARAMIXB[1]

SM0->( GetArea() )
Local

cTipo

aAuxArea :=

PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

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

Return aCab