Esta rutina se ajustó para cumplir con la Ley general de protección de datos (Ley n° 13.70), siendo que algunos campos que presentan información considerada como datos sensibles y/o personales se ocultarán, dejando 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 NDF).
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
|
Para utilizar 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 NF, de esta manera, el concepto de bajas se aplicará correctamente en las operaciones de compensación. (E2_BAIXA maior que E2_EMISSAO) |
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
|
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. En los otros casos, la contabilidad permanece la misma, de acuerdo con la siguiente documentación: |
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 NDF 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 NDF 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 |
|
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|