Producto: | TOTVS Backoffice |
|---|---|
Línea de producto: | Línea Protheus |
Segmento: | Backoffice |
Módulo: | TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN) |
Función: | FXIMPGR |
Nombre | Tipo | Descripción |
PARAMIXB | Array | Posición 1 = Alias de la tabla Posición 2 = Recno del título de impuesto |
Devolución | Valor |
Nil | Nulo |
El Punto de entrada FXIMPGR permite complementar datos de los títulos de impuestos generados, independientemente de la cartera (Cuentas por pagar o Cuentas por cobrar). La función procesa un array con los RECNO de los registros de impuestos generados por el motor de retenciones.
03. EJEMPLO DE UTILIZACIÓN
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} User Function FXIMPGR
(Punto de entrada permite grabar datos complementarios del
registro marcado en los recnos de los impuestos generados a partir del motor de retenciones
)
@type Function
@author Fábio Henrique Andrade
@since 17/09/2025
@version 12
@param aRecImpos, array con los recnos de los impuestos generados
@return Nil
@see https://tdn.totvs.com/display/PROT/Configurador+de+Tributos+-+Regras+Financeiras
/*/
User Function FXIMPGR()
Local cHist As Character
Local cCarteir As Character
Local nI As Numeric
Local nRecno As Numeric
Local aRecImpos As Array
aRecImpos := PARAMIXB //Array con los recnos de los impuestos generados
cHist := "Pasó en el Punto de entrada FXIMPPG"
cCarteir := ""
nI := 0
nRecno := 0
For nI := 1 to LEN( aRecImpos )
cCarteir := aRecImpos[nI,1]
nRecno := aRecImpos[nI,2]
If cCarteir == "SE1" // Cobrar
DbSelectArea("SE1")
SE1->(dbGoTo(nRecno) )
RecLock("SE1", .F.)
SE1->E1_HIST := cHist
MsUnlock()
ElseIf cCarteir == "SE2"
DbSelectArea("SE2")
SE2->(dbGoTo(nRecno) )
RecLock("SE2", .F.)
SE2->E2_HIST := cHist
MsUnlock()
EndIf
Next
Return NIL
|