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: |
| ||||
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: |
| ||||||||
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: |
|
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