Esta rutina se ajustó para cumplir con la Ley general de protección de datos (Ley n° 13.70), teniendo en cuenta que algunos campos que presentan información considerada como datos sensibles y/o personales se ocultarán, y dejarán de ser legibles. |
Esta rutina permite ejecutar las compensaciones de todos los anticipos efectuados y registrados, realizados por los proveedores (títulos tipo PA), además de notas de crédito por descontar (títulos tipo NDP).
Los anticipos seleccionados e informados por el usuario se deducirán del valor total del título original.
Procedimiento efectuado de forma manual vía rutina Compensación cuentas por pagar (FINA340), con exhibición de las pantallas involucradas en el proceso y necesitando de acciones/comandos del usuario.
Procedimiento realizado de forma automática en la rutina de Compensación cuentas por pagar (FINA340), sin exhibición de pantallas o necesidad de interacción del usuario.
Se utiliza en personalizaciones donde el proceso no necesita de interacciones del usuario (MSEXECAUTO).
#INCLUDE "Protheus.ch"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
Static __COMPAUT := Nil
User Function CMPAUTOMA()
Local lRet := .F.
Local cQry := ""
Local aTipos := {"NF ", "PA ", "NDF"}
Local cTblTmp := ""
Local aNF := {}
Local aPA_NDF := {}
Local aContabil := {}
Local bBlock := Nil
Local aEstorno := {}
Local nSldComp := 0
Local nTaxaPA := 0
Local nTaxaNF := 0
Local nHdl := 0
Local nOperacao := 0
If __COMPAUT == Nil
cQry := "SELECT E2_TIPO TIPO, R_E_C_N_O_ R_E_C_N_O FROM " + RetSqlName("SE2") + " "
cQry += "WHERE E2_SALDO > 0 AND E2_TIPO IN (?) "
cQry += "ORDER BY E2_TIPO"
cQry := ChangeQuery(cQry)
__COMPAUT := FWPreparedStatement():New(cQry)
EndIf
__COMPAUT:SetIn(1, aTipos)
cQry := __COMPAUT:GetFixQuery()
cTblTmp := MpSysOpenQuery(cQry)
While (cTblTmp)->(!Eof())
If (cTblTmp)->TIPO $ MVPAGANT+"|"+MV_CPNEG
Aadd(aPA_NDF, (cTblTmp)->R_E_C_N_O)
Else
Aadd(aNF, (cTblTmp)->R_E_C_N_O)
EndIf
(cTblTmp)->(DbSkip())
lRet := .T.
EndDo
(cTblTmp)->(DbCloseArea())
cTblTmp := ""
If lRet
Pergunte("AFI340", .F.)
lContabiliza := MV_PAR11 == 1
lAglutina := MV_PAR08 == 1
lDigita := MV_PAR09 == 1
lRet := FinCmpAut(aNF, aPA_NDF, aContabil, bBlock, aEstorno, nSldComp, dDatabase, nTaxaPA ,nTaxaNF, nHdl, nOperacao)
If lRet
Alert("Compensación realizada con éxito")
Else
Alert("Ocurrió un error en el proceso de compensación")
EndIf
EndIf
Return
|
Parautilizar el proceso de Compensación automática cuentas por pagar es necesario activar la función: FinCmpAut. |
Por medio de esta operación es posible la compensación de títulos por pagar:
- Compensar títulos de un mismo proveedor/tienda con anticipos de este mismo proveedor/tienda.
- Compensar títulos de un determinado proveedor con anticipos de este mismo proveedor, sin importar cuál es la tienda del título por compensar.
- Compensar título de determinado proveedor con anticipos de diversos proveedores, pudiendo determinarse un rango de proveedores o todos. Con ello, el título puede compensarse con cualquier título de anticipo pendiente en el registro de títulos, sin importar cuál es el proveedor de este título.
La fecha de la compensación debe ser mayor que la fecha de emisión de los títulos involucrados, por ejemplo:
La compensación de estos títulos solamente podrá efectuarse después del día 02/04, teniendo en cuenta que el día 29/03 aún no existía la Fact, de esta manera, el concepto de bajas se aplicará correctamente en las operaciones de compensación. (E2_BAIXA mayor que E2_EMISSAO)
Para la compensación entre anticipos y títulos de diferentes sucursales, debe utilizarse la opción Sucursales para definir las sucursales que se considerarán para la selección de los títulos por compensar.
|
Operación que permite realizar el borrado del movimiento generado por la compensación
Operación que permite realizar la reversión del movimiento generado por la compensación, generando de esta manera su contrapartida.
Muestra el cuadro de leyendas y sus significados referidos de la situación del título por pagar.
Busca el título dentro del archivo Cuentas por pagar, teniendo como resultado el título marcado y resaltado en la browse.
Operación que permite visualizar el título marcado, pudiendo verificar su saldo y valor.
Lista de parámetros aplicados al FINA340 y su procesamiento
Opciones para configuración de los parámetros MV_PABRUTO, MV_BP10925, MV_PAPRIMESi el parámetro MV_PABRUTO, estuviera igual a 2 (Neto), al generar títulos del tipo PA (pago anticipado), se mantiene la generación con el valor neto, donde se descuentan los valores de impuestos que pueden retenerse en la inclusión. Al realizar la compensación de un título, por ejemplo, del tipo Fact con un PA, siendo que ambos retienen impuestos en la baja, es aconsejable que los siguientes parámetros se configuren de la siguiente manera, para que haya coherencia de valores:
Si el parámetro MV_PABRUTO estuviera igual a 1 (Bruto) al generar títulos del tipo PA, este se genera con el valor bruto, sin descontar los valores de impuestos que pueden retenerse en la inclusión. Entonces la compensación de una Fact con un PA debe ser por el valor bruto, configurando los parámetros de acuerdo con lo siguiente:
|
La contabilidad de los procesos aplicados a la compensación cuentas por pagar vía módulo Financiero se realiza por los asientos estándar siguientes:
LP | Hecho generador | ON | OFF (CTBAFIN) |
|---|---|---|---|
| 589 | Anulación de compensación de títulos cuentas por pagar | X | X |
| 597 | Compensación cuentas por pagar | X | X |
|
Contabilidad del tipo DIC La contabilidad del título del tipo DIC generado por la compensación, puede contabilizarse por el AE 510 - Inclusión de títulos por pagar, pues este se genera por medio de la rutina automática del FINA050 (Cuentas por pagar).
Contabilidad le los impuestos generados en la compensación. La contabilidad de los impuestos generados por la compensación, pueden contabilizarse por el propio AE 597 - Compensación por pagar, por medio de las variables: NPIS340, NCOF340, NCSL340, NIRF340 y NISS340. |
Punto de entrada | Observación |
|---|---|
F340BROW | El punto de entrada F340BROW se activará antes del browse y podrá utilizarse en el tratamiento de los datos mostrados en el browse. Documentación: http://tdn.totvs.com/x/56Jc |
F340LIBT | El punto de entrada indica si habrá la validación de liberación del título en el momento de la compensación. Documentación: http://tdn.totvs.com/x/_a2FDg |
F340DTFIN | El PE se activa en las validaciones del parámetro MV_DATAFIN existentes en la Compensación CP. Documentación: http://tdn.totvs.com/x/6qJc |
F340TAXA | En este punto de entrada es posible modificar las tasas de las monedas que se utilizarán en la compensación del cuentas por pagar. Documentación: http://tdn.totvs.com/x/aK_FDg |
F340ATLIS | Este Punto de entrada permite el manejo del Array aTitulos, para modificación del listBox de la pantalla de compensación. Documentación: http://tdn.totvs.com/x/gKRc |
F340TOTCP | Punto de entrada F340TOTCP() permite manejar los valores totales de los títulos que se compensarán. Documentación: http://tdn.totvs.com/x/nYIbCQ |
F340MKTIT | El punto de entrada F340MKTIT permite la personalización de los títulos seleccionados en la markbrowse. Permite el manejo del array que contiene los títulos, y con la 8ª ocurrencia de este, contiene un valor lógico que indica si el título está marcado o no. Documentación:http://tdn.totvs.com/x/L6Rc |
F340NAT | |
F340_PA | El punto de entrada F340_PA se ejecutará después de contabilizar cada título de compensación por pagar. Documentación: http://tdn.totvs.com/x/7aJc |
F340SE5 | El punto de entrada F340SE5 maneja Movimientos bancarios procesados teniendo como parámetro el Recno de los registros SE5 utilizados en la Compensación. Documentación: http://tdn.totvs.com/x/sAKqC |
F340GRV | El punto de entrada F340GRV valida la inclusión en la rutina de Compensación de cuentas por pagar (FINA340) Documentación: http://tdn.totvs.com/x/IgBzB |
F340ACAN | Este punto de entrada permite que se cree una regla para informar cuándo se Revertirá o no. Documentación: http://tdn.totvs.com/x/j7GFDg |
F340CAN | Punto de entrada que se activa al realizar la confirmación de la reversión de compensación. Documentación: http://tdn.totvs.com/x/zoFdAg |
F340GREST | Grabación de datos adicionales en la reversión de la compensación Documentación: http://tdn.totvs.com/x/iqVc |
F340FCAN | Puto de entrada que permite la grabación de información complementaria en el momento de la reversión de la compensación. Documentación: http://tdn.totvs.com/x/W7KFDg |
FA340QRY | Complemento de query para anulación de la compensación Documentación: http://tdn.totvs.com/x/lgwGD |
FA340FILT | El punto de entrada FA340FILT se ejecuta en el montaje de la tabla de títulos por compensar y se utilizará para seleccionar qué títulos se compensarán Documentación: http://tdn.totvs.com/x/rqNc |
F340CMP | Tiene como finalidad permitir al usuario calcular el título de NDP o PA y se activará en la función Fa340Tit() Documentación: http://tdn.totvs.com/x/6aJc |
FA340ORD | Punto de entrada que permite la modificación del índice, cambiando de esta manera el orden de los títulos mostrados en la markbrowse para la compensación por pagar Documentación: http://tdn.totvs.com/x/r6Nc |
F340ValOk | El punto de entrada F340ValOk, permite el control de los datos y de la confirmación de la pantalla de compensación de títulos por pagar Documentación: http://tdn.totvs.com/x/fKVc |
F340TOTCP | Permite manejar los valores totales de títulos que se compensarán. Documentación: http://tdn.totvs.com/x/nYIbCQ |
F340VLD | Punto de entrada que permite validar si un título se compensará o no. Documentación: http://tdn.totvs.com/x/J6Vc |
F340LEGE | |
SE5FI340 | Punto de entrada que permite realizar grabaciones complementarias en la tabla SE5, después de la grabación del movimiento bancario del título principal en la compensación por pagar automática Documentación: http://tdn.totvs.com/x/56Rc |
SE5FI341 | Punto de entrada que permite realizar grabaciones complementarias en la tabla SE5, después de la grabación del movimiento bancario del título de Anticipo en la compensación por pagar automática. Documentación: http://tdn.totvs.com/x/6KRc |
F340GERNDF | Posibilidad de grabar campos adicionales en la inclusión de la NDP generada por la compensación por pagar. Documentación: http://tdn.totvs.com/x/kvdbDQ |
FA340NDFGrv | |
F340FLCP | Permite implementar una expresión complementaria en el filtro de títulos. Documentación: http://tdn.totvs.com/x/66Jc |
F340FCPTOP | Este punto de entrada permite crear un nuevo filtro para la rutina de Compensación cuentas por pagar - FINA340. Documentación: http://tdn.totvs.com/x/r_xZE |
08. OTRAS REGLAS DE COMPENSACIÓN
|
|
Al presentar el asistente NOTITSEL en la reversión de compensación, valide el campo E5_FILORIG en los registros de la compensación, así como también verifique los campos de la clave (Prefijo+número+cuota+tipo+proveedor+tienda) de las tablas SE2 y SE5. Los campos deben tener tamaños correspondientes en las dos tablas. |
