Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Punto de entrada: CT220SEL -
...
Envío de
...
contenido
...
Alcances: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
...
Versiones: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
...
Compatible países: | Todos |
Sistemas |
...
operativos: | Todos |
...
Compatible con las bases de datos: |
...
Todas |
...
Descripción:
O ponto de entrada CT220SEL permite enviar o conteúdo do (Array) contendo os dados de quais empresas e arquivos que se quer agrupar.
El punto de entrada CT220SEL permite enviar el contenido del (Array) con los datos de las empresas y archivos que se quieren agrupar.
Programa fuente
CTBA220
Sintaxis
CT220SEL - Envío de contenido
CTBA220
...
( [ aEmp ], [ aQuais ] ) --> .T. or .F.
...
Parámetros:
...
Nombre | Tipo |
...
Descripción |
...
Estándar |
...
Obligatorio |
...
Referencia | ||||
aEmp | Array of Record |
...
PUNTO DE ENTRADA, enviando |
...
el contenido del array aEmp | ||||||||||
aQuais | Array of Record |
...
PUNTO DE ENTRADA, enviando |
...
el contenido del array aQuais |
...
...
Devolución
.T. or .F.()
...
Devuelve un valor lógico para ejecutar o no el procesamiento.
Observaciones
Punto de activación:
En el momento de la preparación del entorno para el proceso de consolidación se cargan los datos de las empresas y archivos que se agruparán.
Devolución esperada:
Devolución lógica para validar las Empresas/Sucursales y archivos que se agruparán.
Ejemplos
...
Ponto de chamada:
No momento da preparação do ambiente para o processo de consolidação são carregados os dados das empresas e arquivos que serão agrupados.
...
Retorno lógico para validar quais Empresas/Filiais e arquivos serão agrupados.
...
User Function CT220Sel( aEmp ) Local cMVSchedu := Getnewpar( 'MV_XSCHEDU' , '' ) Local
...
axEmp2
...
:={}
...
Local
...
nJ := 0 Local
...
nI :=
...
0
...
Local
...
lRet
...
:= .T. If
...
lRet //
...
solamente
...
si
...
la
...
variable
...
no
...
estuviera
...
vacía
...
If ! Empty (cMVSchedu) .and. ( ValType( aEmp ) == 'A' .And. len( aEmp ) > 0 )
...
while ! Empty( cMVSchedu )
...
cResult := Substr( cMVSchedu , 1 , 4 )
...
...
aAdd(axEmp2 , cResult )
...
cMVSchedu := Substr( cResult , 2)
...
End //
...
cero
...
la array de
...
las empresas solamente para
...
informar
...
las
...
del
...
parámetro FOR nI = 1 to len(aEmp)
...
...
aEmp[nI][1] := .F. NEXT
...
//
...
marco como
...
verdadero
...
los
...
ítems
...
de
...
la empresa
...
FOR nI = 1 to len(axEmp2)
...
FOR nJ = 1 to len(aEmp)
...
If ( aEmp[nJ][1] == axEmp2[nI][1] )
...
aEmp[nJ][2] := .T. Endif Next
...
Next Endif Endif Return .T.
...
Variables
...
Nombre | Tipo |
...
Alcance |
...
Puede modificar |
...
Descripción | |||||||
Array of Record | Global |
...
No |