DT PE F850NCRB - Punto de entrada para modificar certificado de retención de IIBB ARG

01. DATOS GENERALES

Producto	TOTVS Backoffice
Línea de producto:	Línea Protheus
Segmento:	Backoffice
Módulo:	SIGAFIN - Financiero
Función:	FINA850 - Orden de pago mod. II
País:	Argentina
Ticket:	16563384
Requisito/Story/Issue (informe el requisito vinculado):	DMICNS-16663

02. DESCRIPCIÓN

El punto de entrada F850NCRB permite modificar el número de certificado de retención de ingreso bruto, en órdenes de pago mod. II (FINA847). El punto de entrada es ejecutado en el grabado de la retención de ingresos brutos (función F850GravRet()).

El número de certificado de retención es grabado en el campo 'Certificado' (FE_NROCERT) de la tabla SFE - Retenciones de Impuestos.

03. PARÁMETROS

El punto de entrada recibe los siguientes parámetros:

Parámetro	Tipo	Descripción
cNroCert	Carácter	Número de certificado de retención de IIBB.
cFornece	Carácter	Código del proveedor.
cLoja	Carácter	Código de loja/tienda del proveedor.
cOrdPago	Carácter	Número de orden de pago.
aRets	Array	Array con la información de la retención de ingreso bruto.

04. DEVOLUCIÓN

El punto de entrada retorna o devuelve el siguiente parámetro:

Parámetro	Tipo	Descripción
cNewNoCert	Carácter	Número de certificado. Este valor reemplaza al número de certificado que recibe el punto de entrada.

05. EJEMPLO DE UTILIZACIÓN

#Include "PROTHEUS.CH"

User Function F850NCRB()
Local cNewNoCert := ""
Local cNroCert := ParamIXB[1]
Local cFornece := ParamIXB[2]
Local cLoja := ParamIXB[3]
Local cOrdPago := ParamIXB[4]
Local aRetIIBB := ParamIXB[5]
Local aNumCer := {}

cNewNoCert := cNroCert
If cNroCert <> "NORET"
If cFornece == "P16663"
aNumCer := FWGetSX5( "99", "RG4212")
If Len(aNumCer) > 0
cNewNoCert := Soma1(aNumCer[1][4])
FWPutSX5( , "99", "RG4212", cNewNoCert, cNewNoCert, cNewNoCert,)
EndIf
EndIf
EndIf

Aviso("Punto de Entrada", "F850NCRB",{"OK"})

Return cNewNoCert

Árvore de páginas