Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Tempo aproximado para leitura: 3 minutos

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Servicios

Módulo:

TOTVS Backoffice (Línea Protheus) - Contabilidad de gestión (SIGACTB)

Función:

CTBA100

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46829

02. DESCRIPCIÓN

El punto de entrada CTARQRAT se utiliza en la función CTBArqRat con el propósito de permitir la personalización del contenido del archivo que se está importando. Este se activa en cada línea do archivo durante el proceso de lectura, ofreciendo la oportunidad de modificar o ajustar los datos antes que la línea sea efectivamente procesada por el sistema.

03. OTRAS INFORMACIONES


Manejo de PE en el sistema 
aColsAux := ExecBlock("CTARQRAT",.F.,.F.,{__cProcPrinc,aHeader,aColsAux})
Ejemplo de PE
#Include 'Protheus.ch'

//Punto de entrada para manejar los datos del archivo importado pasando línea a línea en la lectura del archivo User function CTARQRAT()

	Local cRotina := PARAMIXB[1] //Rutina que fue activada
	Local aHeader := PARAMIXB[2] //Encabezado del archivo
	Local aCols := PARAMIXB[3] //Ítems del archivo
	Local nPosFil := 0

	/*
	PARAMIXB[1] - Rutina que fue activada

	"CTBA100" - Prorrateo On Line
	"CTBA120" - Prorrateo Externo
	"CTBA270" - Prorrateo Off Line

	PARAMIXB[2] - array con los campos de encabezado del archivo

	aHeader[1] - "CT9_FILIAL"
	aHeader[2] - "CT9_SEQUEN"
	aHeader[3] - "CT9_DESC"
	aHeader[4] - "CT9_PERBAS"

	PARAMIXB[3] - array con contenido leído en la línea del archivo

	aCols[1] - "01"
	aCols[2] - "00001"
	aCols[3] - "PRORRATEO ON LINE"
	aCols[4] - "100.00"

	*/

	//Modifica el valor de la sucursal
	If cRotina == "CTBA100" //Prorrateo On Line

	nPosFil := ASCAN(aHeader, "CT9_FILIAL" ) //toma la posición de la sucursal en el encabezado

	If aCols[nPosFil] == "01"
	aCols[nPosFil] := FwxFilial("CT9")
	EndIf

	ElseIf cRotina == "CTBA120" //Prorrateo Externo

	nPosFil := ASCAN(aHeader, "CTJ_FILIAL" ) //toma la posición de la sucursal en el encabezado

	If aCols[nPosFil] == "01"
	aCols[nPosFil] := FwxFilial("CTJ")
	EndIf

	Else //"CTBA270" Prorrateo Off Line

	nPosFil := ASCAN(aHeader, "CTQ_FILIAL" ) //toma la posición de la sucursal en el encabezado

	If aCols[nPosFil] == "01"
	aCols[nPosFil] := FwxFilial("CTQ")
	EndIf

	EndIF

Return aCols

Importante

  • Se observa que la utilización del PE y sus impactos en el sistema son de responsabilidad del cliente.
  • Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto de entrada.

04. ASUNTOS RELACIONADOS

  • No se aplica.