Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Serviços

Módulo:

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

Función:

ATFA060 - Transferencias / PE - ATF060GRV

País:Brasil
Ticket:Interno
Requisito/Story/Issue :DSERCTR1-42088

02. SITUACIÓN/REQUISITO

Este documento tiene por objetivo explicar sobre el punto de entrada ATF060GRV.


03. SOLUCIÓN

El punto de entrada ATF060GRV tiene como objetivo realizar grabaciones adicionales después de las grabaciones comunes de la rutina de transferencia, haciendo posible realizar grabaciones adicionales en las tablas seleccionadas SN3 y SN4, así como también, tomando como parámetro de referencia el modelo de datos de la rutina para verificaciones y posibles puntos de criterio con base en el bien seleccionado del movimiento.


Importante

Las modificaciones realizadas en el punto de entrada son de total responsabilidad del cliente que las implementa.

Código y ejemplos

Ejemplo del punto de entrada 
#include 'totvs.ch'
#include "rwmake.ch"     

User Function ATF060GRV()

    Local Modelo060  := PARAMIXB[1] 
    Local aArea 	 := GetArea()
    Local cBase      := Modelo060:GetValue("GridFNR",'FNR_CBAORI')
    Local cItem      := Modelo060:GetValue("GridFNR",'FNR_ITEORI')
    Local cFilMovi   := Modelo060:GetValue("FieldFN9",'FN9_FILIAL')
    Local cChave     := cFilMovi + cBase + cItem

    dbSelectArea("SN4")
    dbSetOrder(1)

    If dbSeek(cChave)
        While SN4->(!EOF()) .And. cChave==SN4->(N4_FILIAL+N4_CBASE+N4_ITEM)

       		If rtrim(SN4->N4_CONTA) == '1110205' //CUENTA EN EL ORIGEN
            	Reclock("SN4", .F.)
                	N4_CONTA := 'TX003' // CUENTA EN EL DESTINO
            	MsUnlock()
        	Endif

        SN4->(dbSkip())
        EndDo
    Endif

    RestArea(aArea)

Return
Llamada del PE en el Sistema 
If lCont .And. ExistBlock ("ATF060GRV")
	ExecBlock("ATF060GRV",.F.,.F.,{oModel})
EndIf

Es importante resaltar que el punto de entrada solamente se activa si todas las validaciones estándar de la rutina están correctas.



¡Importante!

Los ejemplos utilizados en este documento son meramente ilustrativos.

04. OTRAS INFORMACIONES


Parámetros

Parámetros

Tipo

Descripción

PARAIXB[1]

Object

Modelo de datos de la rutina de transferencia.


Devolución

Nombre

Tipo

Descripción

No se aplica

No se aplica

No se aplica


05. ASUNTOS RELACIONADOS

  • No se aplica.