Histórico da Página
Relación de los puntos de entrada y su equivalente.
...
Tiene el objetivo de que el usuario pueda indicar campos/columnas que se desean incluir en el GRID de visualización de los recibos desde la opción de "Buscar recibos".
...
A087NATVAZ
...
PE no permite la presentación de la pantalla de contabilidad.
...
Permite al usuario activar o no el campo "cobrador"
...
Filtra las cuentas por cobrar para la cancelación.
...
Punto de entrada antes de montar la pantalla baja, permite al analista establecer los valores.
...
Punto de entrada para realizar la validación en la pantalla Valores de baja de la rutina cobros diversos, que puede permitir o no marcar el título para baja, el Punto de Entrada se ejecutará incluso si no ha habido cambios en la pantalla Valores de cancelación.
...
Permite al usuario personalizar los títulos seleccionados para descargar en la rutina del programa cobros diversos
...
Este Punto de Entrada valida los datos de la rutina Recibos diversos y se activa luego de hacer clic en el botón Ok en la pantalla "Valores de Cancelación".
...
Punto de entrada para validar o modificar los datos al momento de retenciones en la rutina de cobros diversos.
...
Permite la generación de recibos sin código Nature.
...
Permite la inclusión de una nueva columna en la rutina Cancelar Recibos diversos.
...
Se ejecuta durante en el proceso de cancelación de recibos con cheque
...
Punto de Entrada que permite incluir nuevos botones en la rutina FINA088, que se activarán luego de informar los parámetros iniciales de la rutina.
...
Nuevos puntos de entrada
Punto de entrada | Funcionalidad | Documentación |
---|---|---|
F998MAIL | Actualizar el asunto y el cuerpo del Mail | https://tdn.totvs.com/x/Zq97Jw |
F998IMPREC | imprimir un recibo en formato PDF personalizado (El recibo en formato PDF debe quedar con el mismo nombre del archivo XML y en la misma ruta, en el caso de que sea enviado por email). | https://tdn.totvs.com/x/Zq97Jw |
F998BRLFLT | Tiene el objetivo de que el usuario pueda agregar más filtros a la consulta (Query) de selección de recibos al momento de dar clic en "Aplicar filtros" en el programa TOTVS Recibos. | https://tdn.totvs.com/x/Zq97Jw |
FINCMTC | Tiene el objetivo de dar tratamiento a la cadena ingresada en la lectora de cheques para indicar posición y longitud de los datos contenidos en la cadena, retorna un array con 6 valores | https://tdn.totvs.com/x/Zq97Jw |
FINLRCHQ | Tiene el objetivo de retornar una cadena de caracteres con el formato de un cheque y ser visualizado en la "Lectora De Cheque". | https://tdn.totvs.com/x/Zq97Jw |
F998VISFP | Tiene el objetivo de que el usuario pueda indicar columnas y valores que se desean incluir en el GRID de visualización de las formas de pago al momento de visualizar un recibo a detalle desde "Buscar recibos". | https://tdn.totvs.com/x/Zq97Jw |
Descripción de funcionalidad de cada punto de entrada
...
Tiene el objetivo de que el usuario pueda agregar más filtros a la consulta (Query) de selección de recibos al momento de dar clic en "Aplicar filtros" en el programa TOTVS Recibos.
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Expresión SQL estándar para la consulta (SELECT) que contará los registros a seleccionar. |
PARAMIXB[2] | C | Expresión SQL estándar con filtros por campo que se utilizada para filtrar (WHERE) los registros a seleccionar. |
PARAMIXB[3] | C | Este punto de entrada se ejecuta en dos partes, este parámetro indica el tipo de consulta (expresión SQL para el Query a la base de datos) que se debe retornar: "complete" - El punto de entrada debe retornar una expresión de consulta (Query) completa, la cual se utiliza para determinar el total de registros que se visualizaran. "where" - El punto de entrada solo complementa la expresión de condiciones (WHERE) para la selección de registros a visualizar. |
Retorno:
Nombre | Tipo | Descripción |
---|---|---|
queryNew | C | Retorna la expresión SQL de la consulta a realizar de acuerdo al tipo de Query; "complete" o "where". |
Este punto de entrada sustituye al "F088FLT" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998BRFLT Agregar más filtros al momento de buscar recibos TOTVS Recibo MEX
Ejemplo:
#Include 'Protheus.ch'
User Function F998BRFLT
Local querySelect := Paramixb[1]
Local queryWhere := Paramixb[2]
Local queryOption := Paramixb[3]
Local whereNew := " AND SEL.EL_RECIBO >= 0040"
Local queryNew := ""
...
Tiene el objetivo de que el usuario pueda indicar campos/columnas que se desean incluir en el GRID de visualización de los recibos desde la opción de "Buscar recibos".
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Serie del recibo |
PARAMIXB[2] | C | Número del recibo |
PARAMIXB[3] | C | Cliente |
Retorno: Arreglo de configuraciones para agregar a la lista de campos que se pueden visualizar en la lista de recibos.
Nombre | Tipo | Descripción |
---|---|---|
aRet[1] | C | Título de la columna que se desea agregar en la lista de recibos. |
aRet[2] | C | Valor del campo, de cualquier tabla en la DB vinculada a los recibos de cobro. |
aRet[3] | L | Mostrar marca de seleccionado en la lista de campos a visualizar: .T. = Sí, .F. = No. |
aRet[4] | C | Nombre para asignar al campo a visualizar, debe ser con estilo de escritura "camelCase". Comienza con minúscula, puede tener mayúsculas intermedias, no permite espacios ni signos especiales. |
Este punto de entrada sustituye al "F088NP2K" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998BRMCOL Incluir columnas a visualizar en el GRID de buscar recibos
Ejemplo:
#Include 'Protheus.ch'
...
//Se forman las condicionales de la consulta
cQueryWhere := " FJT_FILIAL = '"+xFilial("FJT")+"' AND FJT_SERIE = '"+cSerie+"' AND FJT_RECIBO = '"+cReceipt+"' AND FJT_CLIENT = '"+cClient+"' "
//Se estructura la parte de los campos a obtener
cQueryFields := " SELECT "
For nCont := 1 to LEN(aCampos)
cQueryFields += " "+aCampos[nCont][1]+" "
If nCont != LEN(aCampos)
cQueryFields += ","
EndIf
Next nCont
...
aAux := {}
//Se asignan los campos deseados al arreglo a retornar
WHILE (cAlias)->(!EOF())
AADD( aAux,{aCampos[1][2],(cAlias)->FJT_VERSAO,aCampos[1][3],aCampos[1][4]})
AADD( aAux,{aCampos[2][2],(cAlias)->FJT_DTDIGI,aCampos[2][3],aCampos[2][4]})
(cAlias)->(DbSkip())
END
Return aAux
...
Tiene el objetivo de llenar el campo del Cobrador cuando se seleccione el código del cliente.
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Cliente seleccionado. |
PARAMIXB[2] | C | Tienda del cliente seleccionado. |
Retorno:
Nombre | Tipo | Descripción |
---|---|---|
cCobrador | C | Retorna el Cobrador que será colocado en el box del cobrador. |
Este punto de entrada sustituye al "F087ACOB" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998NRDCOB Llenar el campo del Cobrador cuando seleccione el código del cliente en Nuevo Recibo
Ejemplo:
User Function F998NRDCOB()
Local cCobrador := ""
Local cClient := Paramixb[1]
Local cLoja := Paramixb[2]
dbselectarea("SAR")
("SAR")->(dbGoTop())
While ("SAR")->(!eof())
If xFilial("SAR")== SAR->AR_FILIAL .AND. cClient == SAR->AR_CODCLI .AND. cLoja == SAR->AR_LOJCLI
cCobrador :=AR_CODCOBR
EndIf
("SAR")->(dbskip())
EndDo
...
Tiene el objetivo de agregar más columnas a visualizar en los títulos financieros en la pantalla de Nuevo Recibo.
Parámetros recibidos:
- N/A
Retorno: Arreglo de configuraciones para agregar a la lista de campos que se pueden visualizar en la lista de títulos.
Nombre | Tipo | Descripción |
---|---|---|
aRet[1] | C | Campo a visualizar en la lista de títulos. |
aRet[2] | C | Título de la columna que se desea agregar en la lista de títulos. |
aRet[3] | L | Mostrar marca de seleccionado en la lista de campos a visualizar: .T. = Sí, .F. = No. |
Este punto de entrada sustituye al "F087COL" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998NRMCOL Agregar más columnas en la lista de títulos por cobrar TOTVS Recibo
Ejemplo:
User Function F998NRMCOL()
Local aCampos := {}
Aadd(aCampos, { "E1_DTACRED","Fecha cred",.T.})
Aadd(aCampos, { "E1_TXMOEDA","TX moneda",.T.}
...
Tiene el objetivo de agregar más filtros en la selección de registros (Query) que se usa en la pantalla de "Agregar otros títulos".
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Expresión SQL correspondiente al filtro estándar (Where) de selección (Query) de documentos. |
Retorno:
Nombre | Tipo | Descripción |
---|---|---|
cQuery | C | Expresión SQL del filtro de selección de documentos. Debe retornar la expresión recibida, complementada con los criterios específicos. |
Este punto de entrada sustituye al "F087AFCL" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998NRIOFLT Agregar más filtros en el query de Agregar otros títulos TOTVS Recibo
Ejemplo:
User Function F998NRIOFLT()
...
Tiene el objetivo de agregar nuevos tipos de títulos a los recibos generados desde la sección de "Nuevo Recibo"
Parámetros recibidos:
- N/A
Retorno:
Nombre | Tipo | Descripción |
---|---|---|
cTipos | C | Cadena que contiene los tipos de títulos adicionales, separados por diagonal ("/"). |
Este punto de entrada sustituye al "A087TIPTI" de la rutina Cobros Diversos (FINA087A).
Más información: DT PE F998FLOTIT Agregar otros tipos de títulos a los recibos de cobro en TOTVS recibo
Ejemplo:
#INCLUDE "Totvs.ch"
User Function F998FLOTIT()
Local cTipos := ""
cTipos += "/CC/CN"
Return cTipos
...
Tiene el objetivo de realizar acciones antes de la generación de Asientos Contables (CT2) y de grabar la tabla de Impuestos/Retenciones (SFE).
Parámetros recibidos:
- N/A
Retorno:
- N/A
Este punto de entrada sustituye al "FA087INC" de la rutina de Cobros Diversos (FINA087A).
Más información: DT PE F998NRG3 Agregar acciones antes de asientos contables y de grabar tabla de impuestos/retenciones
Ejemplo:
#Include 'Protheus.ch'
User Function F998NRG3()
If msgyesno("¿Desea ejecutar el punto de entrada F998NRG3? ", "Confirmar")
FINR300()
EndIf
Return
...
Tiene el objetivo de actualizar campos creados por el usuario en la tabla de Títulos por Cobrar (SE1), este proceso es realizado antes de finalizar las actualizaciones de la tabla de Títulos por Cobrar.
Parámetros recibidos:
- N/A
Retorno:
- N/A
Este punto de entrada sustituye al "F840SE1" de la rutina de Generación de recibos (FINA840).
Más información: DT PE F998GSE1 Permite grabar campos creados por el usuario en la tabla de títulos por cobrar
Ejemplo:
#Include 'Protheus.ch'
User Function F998GSE1()
SE1->E1_EJEMPLO := .T.
Return
...
Tiene el objetivo de actualizar el asunto y el cuerpo del Mail.
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Representa la Serie del Recibo |
PARAMIXB[2] | C | Representa el Número del Recibo |
Retorno:
Nombre | Tipo | Descripción | Obligatorio |
---|---|---|---|
aMail[1] | C | Representa el asunto del corrreo | Si |
aMail[2] | C | Representa el cuerpo del correo | Si |
Más información: DT PE F998MAIL Modificar el Asunto y Cuerpo al enviar el Recibo por Mail TOTVS Recibo
Ejemplo:
#Include 'Protheus.ch'
...
Local cserie := Paramixb[1]
Local cRecibo := Paramixb[2]
Local cAsunto := ""
Local cCuerpo := ""
Local aMail := {}
cAsunto := "XML y PDF"
cCuerpo += "Hola usuario"
cCuerpo += "<br><br>"
cCuerpo += "Anexo los archivos XML y PDF del recibo número "+ " <b>" + cserie + "-" + cRecibo+"</b>"
cCuerpo += "<br><br>"
cCuerpo += "Saludos"
cCuerpo += "<br><br>"
cCuerpo += "Empresa SA de CV"
AADD (aMail,cAsunto)
AADD (aMail,cCuerpo)
...
Tiene el objetivo de imprimir un recibo en formato PDF personalizado (El recibo en formato PDF debe quedar con el mismo nombre del archivo XML y en la misma ruta, en el caso de que sea enviado por email).
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1,1] | C | Nombre del archivo XML ya generado con extensión. |
PARAMIXB[1,2] | C | Vacío |
PARAMIXB[1,3] | C | Vacío |
PARAMIXB[1,4] | A | Array que contiene la información del recibo (Títulos a cobrar y/o compensar) [1] Serie título [2] Número de documento título [3] Fecha del recibo [4] Monto del pago [5] Monto compensación [6] Cliente [7] Tienda |
PARAMIXB[1,5] | C | Numero del recibo. |
PARAMIXB[1,6] | C | Serie del recibo. |
Más información: DT PE F998IMPREC Formato de impresión para los recibos TOTVS Recibo
Ejemplo:
#Include 'Protheus.ch'
User Function F998IMPREC()
Local aRecibos := PARAMIXB
Local cDir := &(SuperGetmv( "MV_CFDRECP" , .F. , "GetSrvProfString('startpath','')+'\cfd\recpagos\'" ))
Local cName := Replace(aRecibos[1][1], ".xml", ".pdf" )
Local cRuta := "C:\Ambientes\2210\ARG\protheus_data"+cDir
...
ShellExecute("Open", cName+".pdf"),"",cRuta,1) //Función para abrir archivo PDF — Esta función ocupa la ruta completa del archivo.
Return
IMPORTANTE
- El parámetro recibido PARAMIXB[1,1], contiene el nombre del archivo XML ya generado con extensión, este debe de ser usado para generar el nombre del recibo en formato PDF.
Considerar que ambos archivos XML y PDF deben ubicarse en la misma ruta y tener el mismo nombre. - La ruta para el guardado de los Recibos se configura para México en el parámetro MV_CFDRECP de lo contrario se debe de guardar en la ruta ""\system\cfd\recpagos\",
la cual debe ser referenciada de la siguiente forma: "GetSrvProfString('startpath','')+'\cfd\recpagos\'".
En esta ruta se validará la existencia del archivo, si el archivo no se encuentra en esta ruta el sistema alertará que no se encontro el archivo PDF. - El PE F998IMPREC debe de abrir el Archivo PDF creado previamente.
...
Tiene el objetivo de dar tratamiento a la cadena ingresada en la lectora de cheques para indicar posición y longitud de los datos contenidos en la cadena, retorna un array con 6 valores correspondiente a los campos:
- Banco (EF_BANCO).
- Agencia (EF_AGENCIA).
- Código Postal (EF_POSTAL).
- Cheque (EF_NUM) .
- Cuenta (EF_CONTA).
- DV Cuenta
Parámetros recibidos:
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1,1] | C | Contiene la cadena que se introduce en la ventana de la Lectora de Cheques |
Ejemplo := 0<B240002400240123456789ASDFGHJK
Informações | ||
---|---|---|
| ||
Cuando se usa una lectora de cheques se agrega un cero y un signo menor que (<) por lo que en caso de informar los valores manualmente, deberá asegurarse de que estos caracteres también sean indicados al inicio antes de la información del cheque. 0<B240002400240123456789ASDFGHJK |
Más información: DT PE FINCMTC Personalización de los datos ingresados en la lectora de cheques TOTVS Recibo
Ejemplo:
#Include 'Protheus.ch'
User Function FINCMTC()
Local cCmc7 := Paramixb[1]
Local nTamBco := 0 As Numeric
Local nTamAge := 0 As Numeric
Local nTamCta := 0 As Numeric
Local nTamChq := 0 As Numeric
Local nTamCPo := 0 As Numeric
Local aCmc7Tc := {} As Array
If nTamBco == 0
nTamBco := TamSX3("EF_BANCO")[1]
Endif
If nTamAge == 0
nTamAge := TamSX3("EF_AGENCIA")[1]
Endif
If nTamCta == 0
nTamCta := TamSX3("EF_CONTA")[1]
Endif
If nTamChq == 0
nTamChq := TamSX3("EF_NUM")[1]
Endif
If nTamCPo == 0
nTamCPo := TamSX3("EF_POSTAL")[1]
Endif
//Se agrega al arreglo a retornar una subcadena de la cadena original, configurando la posición inicial de cada campo y su longitud
//AADD(Array al que se le agregaran los valores, SUBSTR(cadena de la lectora de cheques, numero editable que indica donde empieza la cadena y por ultimo el tamaño del campo))
Aadd( aCmc7Tc, SubStr(cCmc7, 2, nTamBco)) //Banco
Aadd( aCmc7Tc, SubStr(cCmc7, 5, nTamAge)) //Agencia
Aadd( aCmc7Tc, SubStr(cCmc7, 10, nTamCPo)) //Codigo Postal
Aadd( aCmc7Tc, SubStr(cCmc7, 14, nTamChq)) //Cheque
Aadd( aCmc7Tc, SubStr(cCmc7, 20, nTamCta)) //Cuenta
Aadd( aCmc7Tc, SubStr(cCmc7, 30, 1) ) //DV Cuenta
Return aCmc7Tc
IMPORTANTE: Este punto de entrada es opcional de lo contrario la Lectora de cheques tomara las siguientes longitudes
Campo | Longitud |
---|---|
Banco | 3 |
Agencia | 3 |
Codigo Postal | 4 |
Cheque | 8 |
Cuenta | 10 |
DV Cuenta | 1 |
...
Tiene el objetivo de retornar una cadena de caracteres con el formato de un cheque y ser visualizado en la "Lectora De Cheque".
Parámetros recibidos:
...
A
...
Más información: 695246_MMI-5510_DT_Punto_de_Entrada_FINLRCHQ_ARG
Ejemplo:
#Include 'Protheus.ch'
...
Return cChq
...
Aviso | ||
---|---|---|
| ||
Este PE se encuentra deshabilitado, para personalizar la obligatoriedad del campo Modalidad en el encabezado del recibo deberá configurarla directamente en el campo FJT_NATURE a través del configurador en el habilitando el campo Obligat. Usuario. |
Tiene el objetivo de personalizar la obligatoriedad del campo Modalidad en el encabezado del recibo y esta supliendo al punto de entrada A087NATVAZ de la rutina FINA087A.
Parámetros recibos:
- N/A
Más información: DT PE F998NATVAZ Validación obligatoriedad de campo Modalidad Totvs Recibos PER
Ejemplo:
#INCLUDE "Totvs.ch"
User Function F998NATVAZ()
Local lRequired
lRequired := .F. // Retorna .T. si el campo Modalidad se requiere como obligatorio , retorna .F. si el campo Modalidad no es obligatorio.
Return lRequired
...
Tiene el objetivo de que el usuario pueda indicar columnas y valores que se desean incluir en el GRID de visualización de las formas de pago al momento de visualizar un recibo a detalle desde "Buscar recibos".
...
continuación
...
Parámetros recibidos: | No aplica | ||||||||||||||||||||
Respuesta: | Arreglo de configuraciones para agregar a la lista de campos que se pueden visualizar en la lista de recibos.
|
EJEMPLO:
#Include 'Protheus.ch'
User Function F998VISFP
Local aCampos := {}
...
Return aCampos
...
- Crear la función de usuario F998NROK para agregar validaciones y mensajes de confirmación o error.
- La rutina efectuará las validaciones correspondientes y debe retornar un arreglo con un valor booleano y un mensaje de confirmación o error. - Dentro del modulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
- En la sección Nuevo Recibo, llenar los campos necesarios para el encabezado del recibo.
- Seleccionar un titulo a cobrar o compensar.
- Agregar una forma de pago (Opcional).
- Al momento de dar clic en confirmar se ejecutará el punto de entrada F998NROK .
- Si las validaciones fueron las correctas procederá con el guardado del recibo, de lo contrario no permitirá el guardado y mandara un mensaje.
...
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | Json | Objeto Json que contiene la información de los métodos de pago que contiene el recibo a guardar. |
PARAMIXB[2] | Json | Objeto Json que contiene la información de los títulos que contiene el recibo a guardar. |
PARAMIXB[3] | Json | Objeto Json que contiene la información del encabezado del recibo a guardar. |
...
Nombre | Tipo | Descripción |
---|---|---|
aRet[1][1] | B | Si el valor obtenido en este campo es .T. se permitirá el guardado del recibo, de lo contrario no se permitirá el guardado del recibo. |
aRet[1][2] | C | Mensaje que se visualizara en el aplicativo en caso de que el campo aRet[1][1] sea Falso. |
Ejemplo:
#INCLUDE "Totvs.ch"
/*/{Protheus.doc} F998NROK
Punto de entrada que permite agregar validaciones al recibo antes del guardado
Si retorna un .T. procedera con el guardado del recibo
Si retorna un .F. no continuara con el guardado del recibo
/*/
USER FUNCTION F998NROK()
Local jFormasPago := Paramixb[1] //Json que contiene todas las formas de pago del recibo
Local jTitulos := Paramixb[2] //Json que contiene todos los titulos que contiene el recibo
Local jEncabezado := Paramixb[3] //Json que contiene los datos que conforman el encabezado del recibo
Local lRet := .T. As Logical
Local aRet := {} As Array
Local nCont As Numeric
Local cMensaje := "" As Character
Local nTipoDoc As Numeric
//Ejemplo de validaciones en las formas de pago que contiene el recibo
FOR nCont := 1 TO LEN(jFormasPago)
nTipoDoc := AScan(jFormasPago[nCont],{|x|x['property'] == "tipodoc"})
IF jFormasPago[nCont][nTipoDoc]['value'] == "EF"
lRet := .F.
cMensaje := "No se permite guardar recibos con forma de pago tipo EF-Efectivo"
AADD(aRet,{lRet,cMensaje})
ENDIF
NEXT
/*
//Ejemplo de validaciones en los titulos que contiene el recibo
FOR nCont := 1 TO LEN(jTitulos)
IF jTitulos[nCont]['series'] == "A"
lRet := .F.
cMensaje := "No se permite guardar un recibo con un titulo de serie A"
AADD(aRet,{lRet,cMensaje})
ENDIF
NEXT
*/
/*
//Ejemplo de validaciones sobre el encabezado del recibo
IF ALLTRIM(jEncabezado['modalidad']) == "COBRO"
lRet := .F.
cMensaje := "No se permite guardar un recibo con una modalidad dde tipo COBRO"
AADD(aRet,{lRet,cMensaje})
ENDIF
*/
RETURN aRet
...
Crear la función de usuario F998NRG2, en la cual se puedan ejecutar acciones posteriores a grabar el recibo de cobro.
...
Descripción
...
Actualizaciones
...
N/A
...
#Include 'Protheus.ch'
User Function F998NRG2()
If MsgYesNo("¿Desea ejecutar el punto de entrada F998NRG2? ", "Confirmar")
Finr087()
EndIf
...
Se crea el punto de entrada F998NRG1 en las rutinas correspondientes, con el objetivo de que se puedan realizar acciones antes generar asientos contables en TOTVS recibo.
Crear la función de usuario F998NRG1 por medio del cual realicen acciones antes de generar asientos contables al grabar un recibo de cobro.
- Dentro del módulo Financiero, ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar | TOTVS Recibo).
- Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo.
- Llenar el encabezado del recibo.
- Aplicar los filtros del encabezado.
- Seleccionar un Título por Cobrar y agregar una Forma de Pago (opcional).
- Dar clic en Confirmar para grabar el recibo.
- Revisar que la ejecución del punto de entrada haya realizado las acciones esperadas.
...
N/A
...
#Include 'Protheus.ch'
User Function F998NRG1()
If MsgYesNo("¿Desea ejecutar el punto de entrada F998NRG1? ", "Confirmar")
FINR270()
EndIf
Return
...
- Crear la función de usuario F998BRANU con las validaciones personalizadas tanto para aceptar así como para rechazar la anulación o borrado del recibo.
- Debe retornar un arreglo con dos parámetros, en donde el primero es un valor lógico, .T. (Verdadero) o .F. (Falso), de aceptación o rechazo, y el segundo es un mensaje personalizado según sea el caso. - Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
- Dentro del aplicativo de TOTVS Recibo, ir a Buscar recibo, llenar los campos de consulta de acuerdo a los recibos que se desea buscar y visualizar.
- Se mostrará la lista de los recibos.
- Seleccionar el recibo deseado y al dar clic en el botón de Anular/Borrar recibo se ejecutará el punto de entrada F998BRANU.
- La función de usuario efectúa las validaciones personalizadas y retorna una respuesta que indica si procede o no la anulación/borrado.
- Se mostrará una ventana con el mensaje correspondiente y en caso de que proceda, el sistema continuará con la anulación/borrado del recibo.
...
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | C | Serie del recibo |
PARAMIXB[2] | C | Número del recibo |
...
Nombre | Tipo | Descripción | Obligatorio |
---|---|---|---|
aRet[1] | L | Retorna .T. si procede el Anulado/Borrado o .F. si no se permite | Si |
aRet[2] | C | Mensaje de la causa de rechazo de anulación. | Si |
Ejemplo:
#Include 'Protheus.ch'
User Function F998BRANU
Local cSerie := Paramixb[1]
Local cRecibo := Paramixb[2]
Local cQueryWhere := ""
Local cQueryFields := ""
Local cAlias := GetNextAlias()
Local aRet := {.T.,""}
...
cQuery := ChangeQuery(cQuery)
MPSysOpenQuery(cQuery, cAlias)
WHILE (cAlias)->(!EOF())
IF (cAlias)->FJT_DTDIGI == DTOS(ddatabase)
aRet := {.F.,"No se puede eliminar un recibo que haya sido generado el dia de hoy"}
EndIf
(cAlias)->(DbSkip())
END
Return aRet
Puntos de entrada en MVC (Estándares)
...
ID DEL PUNTO DE ENTRADA
...
MOMENTO DE EJECUCIÓN DEL PUNTO DE ENTRADA
...
MODELPRE
...
Antes de la alteración de cualquier campo del modelo.
Parámetros recibidos:
1 O Objeto del formulario ó del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
Requiere un retorno lógico.
...
MODELPOS
...
En la validación total del modelo
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
Requiere un retorno lógico.
...
FORMPRE
...
Antes de la alteración de cualquier campo del formulario.
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
Requiere un retorno lógico.
...
FORMPOS
...
En la validación total del formulario.
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
Requiere un retorno lógico.
...
FORMLINEPRE
...
Antes de la alteración de la línea del formulario FWFORMGRID.
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme al caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
4 N Numero de linea del FWFORMGRID
5 C Acción del FWFORMGRID
6 C Id del campo
Retorno:
Requiere un retorno lógico.
...
FORMLINEPOS
...
En la validación total de la línea del formulario FWFORMGRID.
Parámetros recibidos:
1 O Objeto do formulário ou do modelo, conforme o caso
2 C ID do local de execução do ponto de entrada
3 C ID do formulário
4 N Número da Linha da FWFORMGRID
Retorno:
Requiere un retorno lógico.
...
MODELCOMMITTTS
...
Despúes de la grabación total del modelo y dentro de la transacción.
Parámetros Recibidos:
1 O Objeto del formulario del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
No espera retorno.
...
MODELCOMMITNTTS
...
Después de la grabación total del modelo y fuera de la transacción.
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
No espera retorno
...
FORMCOMMITTTSPRE
...
Antes da gravação da tabela do formulário.
Parâmetros Recebidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
4 L Si es .T. indica nuevo registro (inclusión) si es .F. registro ya existente (Alteración/ Exclusión)
Retorno:
No espera retorno.
...
FORMCOMMITTTSPOS
...
Después de la grabación de la tabla del formulario.
Parâmetros Recebidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
4 L Si es .T. indica nuevo registro (inclusión) si es .F. registro ya existente (Alteración/ Exclusión)
Retorno:
No espera retorno.
...
MODELCANCEL
...
El botón de cancelar.
Parámetros recibidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
No espera retorno.
...
BUTTONBAR
...
Incluir botones en el ControlBar.
Para crear los botones se debe retornar un array bidimensional con la siguiente estructura de cada ítem:
1 C Titulo para el botón.
2 C Nombre del Bitmap para mostrar.
3 B CodeBlock a ser ejecutado.
4 C ToolTip (Opcional)
Parâmetros Recebidos:
1 O Objeto del formulario o del modelo, conforme el caso.
2 C ID del local de ejecución del punto de entrada.
3 C ID del formulario.
Retorno:
Array con la estructura pre-definida.
Campos de validaciones para el punto de entrada
Generales:
- EL_LOJA = Tienda del cliente.
- EL_LOJORIG = Tienda original.
- EL_TIPO = Tipo de título.
- EL_BCOCHQ = Banco Cheque.
México:
- EL_CTABEN = Cuenta beneficiario.
- EL_CTAORD = Cuenta ord.
- EL_FORPGO = Forma de pago.
- EL_HRPAGO = Hora de pago.
Perú:
- EL_TIPODOC = Tipo de documento.
Sentencia When
General:
- EL_PREFIXO = Prefijo.
- EL_TPCRED = Tipo de crédito.
Argentina/Colombia
- EL_TPCRED = Tipo de crédito.
Chile/Perú
- EL_DIACTB = Cod. diario.
México
- EL_CEPCAD = Cadena CEP.
- EL_CEPCER = Certificado CEP.
- EL_CEPSEL = Sello CEP.
- EL_CEPTIP = Tipo CEP.
- EL_CTABEN = Cuenta beneficiario.
- EL_CTAORD = Cuenta ord.
- EL_RFCEMI = RFC Emisor.
- EL_TPCRED = Tipo de crédito.
Ejemplo de punto de entrada:
...
se presentan los puntos de entrada disponibles dentro de la rutina FINA998 así como los equivalentes que se desarrollaron para realizar procesos ya existentes en otras rutinas.