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 ejecutado durante la grabación de los datos de la factura y antes de la contabilidad, que permite la inclusión de datos complementarios en la factura generada.

03. PARÁMETROS

No se aplica.

04. EJEMPLO


Ejemplo de ejecución 
#INCLUDE "Protheus.ch"

User Function FA290()

	Local nPosCodBar    := aScan(aHeader,{|x| Alltrim(x[2])  == 'E2_CODBAR'  })
	Local nI            := 0
	Local cHistFat  	:= "GRABACIÓN COMPLEMENTARIA PE FA290"

	For nI := 1 To Len(aCols)

		If RecLock("SE2",.F.)
            
            If !Empty(nPosCodBar)
			    SE2->E2_CODBAR  := aCols[nI, nPosCodBar]
            EndIf
            
            SE2->E2_DATALIB	:= Date()
			SE2->E2_HIST	:= cHistFat

			SE2->(MsUnlock())

		EndIf

	Next nI

Return