Línea de |
producto: | Microsiga Protheus |
Segmento: |
Servicios | |
Módulo: | SIGACTB |
Rutina: |
|
|
|
|
|
|
|
|
|
|
|
|
|
Punto de |
entrada: | CTARQRAT |
Requisito (ISSUE): | PCREQ-4007 |
País(es): | Todos |
Base(s) de |
datos: |
Todas |
Tablas utilizadas: | CT9, CTQ, CTJ |
Sistema(s) |
operativo( |
s): | Todos |
Versiones/Release: | 12.1.7 |
Ponto Punto de entrada desenvolvido na função CTBArqRat com o objetivo de alterar o conteúdo do arquivo que está sendo importado, é chamado linha a linha na leitura do arquivo importado.
desarrollado en la función CTBArqRat con el objetivo de modificar el contenido del archivo que se está importando, se activa línea a línea en la lectura del archivo importado.
Descripción: | Punto de entrada para manejar los datos del archivo importado pasando línea a línea en la lectura del archivo |
Ubicación |
Descrição:
Ponto de entrada para manipular os dados do arquivo importado passando linha a linha na leitura do arquivo
: | CTBArqRat |
Eventos: |
Actualizaciones / |
Prorrateos / |
Prorrateo On-Line |
Actualizaciones / |
Prorrateos / |
Prorrateo externo |
Actualizaciones / |
Prorrateos / |
Prorrateo Off-Line |
Programa |
fuente: | CTBA100 |
Función: | CTBArqRat |
Devolución: | aRet - array |
con el contenido de la línea del archivo. |
ExemploEjemplo:
#Include 'Protheus.ch'
//Ponto Punto de entrada para manipular os dados do arquivo importado passando linha a linha na leitura do arquivomanejar los datos del archivo importado pasando línea a línea en la lectura del archivo
user function CTARQRAT()
Local cRotina := PARAMIXB[1] //Rotina Rutina que foi chamadafue activada
Local aHeader := PARAMIXB[2] //Cabeçalho do arquivoEncabezado del archivo
Local aCols := PARAMIXB[3] //Itens do arquivoÍtems del archivo
Local nPosFil := 0
/*
PARAMIXB[1] - Rotina Rutina que foi chamadafue activada
"CTBA100" - Rateio Prorrateo On Line
"CTBA120" - Rateio Prorrateo Externo
"CTBA270" - Rateio Prorrateo Off Line
PARAMIXB[2] - array contendo os con los campos de cabeçalho do arquivoencabezado del archivo
aHeader[1] - "CT9_FILIAL"
aHeader[2] - "CT9_SEQUEN"
aHeader[3] - "CT9_DESC"
aHeader[4] - "CT9_PERBAS"
PARAMIXB[3] - array com conteudo lido na linha do arquivocon contenido leído en la línea del archivo
aCols[1] - "01"
aCols[2] - "00001"
aCols[3] - "RATEIO PRORRATEO ON LINE"
aCols[4] - "100.00"
*/
//Altera o valor da FilialModifica el valor de la sucursal
If cRotina == "CTBA100" //Rateio Prorrateo On Line
nPosFil := ASCAN(aHeader, "CT9_FILIAL" ) //pega a posição da filial no cabeçalhotoma la posición de la sucursal en el encabezado
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CT9")
EndIf
ElseIf cRotina == "CTBA120" //Rateio Prorrateo Externo
nPosFil := ASCAN(aHeader, "CTJ_FILIAL" ) //pega a posição da filial no cabeçalhotoma la posición de la sucursal en el encabezado
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CTJ")
EndIf
Else //"CTBA270" Rateio Prorrateo Off Line
nPosFil := ASCAN(aHeader, "CTQ_FILIAL" ) //pega a posição da filial no cabeçalhotoma la posición de la sucursal en el encabezado
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CTQ")
EndIf
EndIF
Return aCols