Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Servicios

Módulo:

TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)

Función:

ATFA251

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46748

02. DESCRIPCIÓN

El punto de entrada AF251AHD permite la inclusión de campos de usuario en el aHeader de la rutina ATFA251 - Adquisición por transferencia.

03. OTRAS INFORMACIONES


Manejo de PE en el sistema 
aOldHead := aClone(aHeader)
aAF251AHD := ExecBlock('AF251AHD', .F., .F., aClone(aHeader) )
aHeader := aClone( aOldHead )
If ValType( aAF251AHD ) == 'A'
	For nX := 1 To Len( aAF251AHD )
		If Len( aAF251AHD[nX] ) == 9 .and.	ValType( aAF251AHD[nX][1] ) == 'C' .and. ValType( aAF251AHD[nX][2] ) == 'C' .and.;
			ValType( aAF251AHD[nX][3] ) == 'C' .and. ValType( aAF251AHD[nX][4] ) == 'N' .and. ValType( aAF251AHD[nX][5] ) == 'N' .and.;
			ValType( aAF251AHD[nX][6] ) == 'C' .and. ValType( aAF251AHD[nX][7] ) == 'C' .and. ValType( aAF251AHD[nX][8] ) == 'C' .and.;
			ValType( aAF251AHD[nX][9] ) == 'C' .and. aScan( aHeader, {|aHd| aHd[2] == aAF251AHD[nX][2]} ) == 0

			Aadd( aHeader, aClone(aAF251AHD[nX]) )
		EndIf
	Next nX
EndIf
Ejemplo de PE
#Include 'Protheus.ch'

User Function AF251AHD()

	local aHeaderPE := ParamIXB

	SX3->(DbSetOrder(2))
	If SX3->(dbSeek("N1_TSTMES"))
		AADD(aHeaderPE,{X3Titulo(),SX3->X3_CAMPO,AllTrim(SX3->X3_PICTURE),SX3->X3_TAMANHO,SX3->X3_DECIMAL,"","",SX3->X3_TIPO,SX3->X3_ARQUIVO } )
	EndIf

Return(aHeaderPE)

Importante

  • Se observa que la utilización del PE y los impactos de este 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.