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 3

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

Gravado em

Chave

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

TTXIYS_DT_CTSETFIL_Na_Funcao_ADMGETFIL_Selecao_Filiais

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAFIN

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.

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

Localização:

Localizada em diversas rotinas dos módulos da controladoria

Eventos:

Informe o Título da rotina

Programa Fonte:

ADMXFUN

Função:

ADGETFIL

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

Return aCab

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