Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

Financiero (SIGAFIN)

Función:

Facturas por pagar (FINA290)

País:

Brasil

02. VISIÓN GENERAL

Punto de entrada que permite incluir nuevos campos en el aHeader / aCols de la rutina de Facturas por pagar (FINA290).

03. PARÁMETROS

Situación

Tipo

Descripción

1

Vector

aHeader (Vector con el encabezado de los campos actuales de la rutina)

2

Vector

aCols (Vector con el contenido de los campos actuales de la rutina)


04. DEVOLUCIÓN

Tipo

Descripción

Vector

aHeader después del manejo.

05. EJEMPLO


Ejemplo de ejecución 
#include 'Protheus.ch'

User Function FI290COLS() // Indica el Array que se modificará: 1- aHeader; 2- aCols 
    Local nTipo := PARAMIXB[1] // Array 
    Local aRet := PARAMIXB[2] // Posición del Array 
    Local nI := PARAMIXB[3] // Posición del Array aHeader
    Local nCount // Array con los campos que se incluirán 
    Local aColPE := {"E2_CODBAR","E2_SALDO","E2_ORIGEM"} // Condición utilizada para devolver lo restante de aHeader 

	If nTipo == 1 
		dbSelectArea("SX3") 
		dbSetOrder(2) 
		For nCount := 1 to len(aColPE) 
			DbSeek(aColPE[nCount]) 
			AADD(aRet,{ X3TITULO(aColPE[nCount]), aColPE[nCount],;
            X3PICTURE(aColPE[nCount]),;
            TamSx3(aColPE[nCount])[1] ,0,"","û",;
            Marque("SX3",2,aColPE[nCount],'X3_TIPO'),"SE2" } ) // "Encabezado del campo incluido FI290Cols" 
        next 
    Else // Punto que incrementa los valores de las columnas
        aAdd(aRet[nI],SE2->E2_CODBAR) //Nuevo campo incluido
        aAdd(aRet[nI],SE2->E2_SALDO) //Nuevo campo incluido 
        aAdd(aRet[nI],SE2->E2_ORIGEM) //Nuevo campo incluido 
        //Identifica si el registro está borrado 
        //Esta posición debe incluirse cuando se cree el punto de entrada
        aAdd(aRet[nI],.F.) 
    EndIf
Return aRet