Modificación del Contenido Importado

Características

del requisito

Descripción

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.

Punto de entrada

Ponto de Entrada

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