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