Linha Microsiga Protheus - Inglês

Páginas filhas
  • TTXIYS DT CTSETFIL In the ADMGETFIL Function - Branch Selection

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

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

TTXIYS

_

DT

_CTSETFIL_Na_Função_ADMGETFIL_Seleção_Filiais

CTSETFIL In the ADMGETFIL Function - Branch Selection

Requirement Characteristics

Product Line

Características do Requisito

Linha de ProdutoMóduloFinanceiroCadastros IniciaisBanco(s) de DadosSistema(s) Operacional(is)

:

Microsiga Protheus

SegmentoSegment:

ServiçosServices

Module:

Financials

RotinaRoutine:

RotinaRoutine

Nome TécnicoTechnical Name

ADMGETFIL

ADMXFUN

Initial Registrations:

Cadastro de filiaisBranch Registration, SM0

Ponto de Entrada

Entry Point:

CTSETFIL

Chamados RelacionadosRelated ticket

TTXIYS

País(es)Countries:

Todos

All

Database:

TodosAll

Tabelas UtilizadasTables used:

SM0

Operating Systems:

TodosAll

VersõesVersion/Release:

11.80

Entry Point

Description

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

Location:

This entry point is used in several routines within the Controllership modules.

Events:

The AdmGetFil function is used by various controllership routines, displaying a window for branch selection

Source Program:

ADMXFUN

Function:

ADMGETFIL

Return:

Name

Type

Description

Required

Retorno:

Nome

Tipo

Descrição

Obrigatório

aSit

Array

Array containing company information

Yes contendo as informações das empresasSim

 

ExemploExample:

#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