Histórico da Página

F998NRG1

Punto de entrada disponible que permite realizar acciones antes de la contabilidad

La llamada desde este punto de entrada está fuera del control de la transacción.

1. Crear la función de usuario F998NRG1 por medio del cual realicen acciones antes de generar asientos contables al grabar un recibo de cobro.

2. Dentro del módulo Financiero, ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar | TOTVS Recibo).
3. Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo.
4. Llenar el encabezado del recibo.
5. Aplicar los filtros del encabezado.
6. Seleccionar un Título por Cobrar y agregar una Forma de Pago (opcional).
7. Dar clic en Confirmar para grabar el recibo.
8. Revisar que la ejecución del punto de entrada haya realizado las acciones esperadas.

#Include 'Protheus.ch'

User Function F998NRG1()      

MsgYesNo("ATENCIÓN" , "Se manda a llamar la funcion de usuario") 

Return

F998VALBX 

Se crea el punto de entrada F998VALBX en la rutina FINA998 - TOTVS Recibo, con el objetivo de habilitar el descuento por pronto pago al momento de editar el "Cobro del titulo" desde la opción de Nuevo Recibo.

1. Crear la funcion de usuario F998VALBX  definiendo las propiedades para la vista , calculos matematicos para los campos descuento, multa, interes y total así como la funcion a ejecutar para guardar los datos.
   1. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
   2. Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo, llenar los campos del encabezado para localizar un titulo.
   3. Editar el cobro de un titulo.

   4. Verificar si se visualiza el nuevo campo configurado en la función F998VALBX.

   5. Verificar si realizan los calculos para los campos descuento, multa e interes y total. Esto de acuerdo a la lógica determinada en la función de usuario.

   6. Verificar si se guarda correctamente el valor ingresado en el campo definido por el cliente.

      Parámetros recibidos:

      Nombre Tipo Descripción PARAMIXB[1] O Definición de la vista del campo "Descuento por pronto pago"" Descripción del objeto PARAMIXB[1] cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ]  este como falsa (.F.) Expandir title Objeto Titulo Nombre en Json Equivalencia Descripción ['recalculate´] N/A Si es True (.T.) realizará los calculos, si es False (.F.) realizara la vista titulos[nX]['branch'] E1_FILIAL Filial titulos[nX]['billnumber'] E1_NUMERO Numero de Título titulos[nX]['type'] E1_TIPO Tipo de Título titulos[nX]['actualduedt'] E1_VENCREA Vencimiento Real titulos[nX]['currency'] E1_MOEDA Moneda titulos[nX]['unit'] E1_LOJA Tienda titulos[nX]['installment'] E1_PARCELA Cuota titulos[nX]['billvalue'] E1_VALOR Valor titulos[nX]['customer'] E1_CLIENTE Cliente titulos[nX]['class'] E1_NATUREZ Modalidad titulos[nX]['custname'] A1_NOME Nombre del cliente titulos[nX]['balance'] E1_SALDO Saldo del Título titulos[nX]['prefix'] E1_PREFIXO Prefijo del Título titulos[nX]['issuedt'] E1_EMISSAO Fecha de emisión titulos[nX]['writeoffne'] E1_VALLIQ Valor neto de la baja     titulos[nX]['discount'] E1_DESCONT Descuento titulos[nX]['interest'] E1_JUROS Intereses titulos[nX]['fine'] E1_MULTA Multas titulos[nX]['series'] E1_SERIE Serie  titulos[nX]['origin'] E1_ORIGEM Ruta origen del Título titulos[nX]['recno'] R_E_C_N_O titulos[nX]['client'] E1_CLIENTE Cliente titulos[nX]['originbranch'] E1_FILORIG Filial Original titulos[nX]['paycondf2'] F2_COND Condicion SF2 titulos[nX]['paycondf1'] F1_COND Condición SF1 titulos[nX]['serie2f2'] F2_SERIE2 Serie SF2 titulos[nX]['serie2f1'] F1_SERIE2 Serie SF1 titulos[nX]['paymentcondition'] Condición de pago titulos[nX]['cobrar'] Monto a cobrar en Numeric titulos[nX]['billvalueString'] Toyal o saldo (Dependiendo la pantalla) titulos[nX]['balanceString'] Saldo en String titulos[nX]['cobrarString'] Monto a cobrar en String titulos[nX]['discountString'] Descuento del Título en String titulos[nX]['interestString'] Interes del titulo en String titulos[nX]['fineString'] Multa del titulo en String Definición de la lógica del campo "Descuento por pronto pago" Descripción del objeto PARAMIXB[1] cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como True (.T.) Expandir title Objeto Nombre en Json Descripción ['recalculate´] Si es True (.T.) realizará los calculos, si es False (.F.) realizara la vista bind['discountInput'] Descuento ingresado en el campo Descuento Pronto Pago bind['descuento'] Tipo de Titulo bind['multa'] Interes del titulo en String bind['interes'] Multa del titulo en String bind['saldo'] Saldo total (Ya tomando en cuenta, descuento, multa e interes) Definición de la grabación del campo "Descuento por pronto pago" Descripción de los objetos (PARAMIXB[1]) mandados en el Json cuando la bandera PARAMIXB[2] es Falsa (.F.)  Expandir title Objeto Encabezado Nombre en Json Equivalencia Descripción encabezado['serie'] FJT_SERIE Serie del recibo encabezado['recibo'] FJT_RECIBO Numero de recibo encabezado['emissa'] FJT_EMISSA Emisión encabezado['nature'] FJT_NATURE Cobrador encabezado['client'] FJT_CLIENT Cliente encabezado['loja'] FJT_LOJA Tienda encabezado['cobrad'] FJT_COBRAD Cobrador encabezado['recprov'] FJT_RECPRV Recibo Provisorio Expandir title Objeto Titulos Nombre en Json Equivalencia Descripción titulos[nX]['branch'] E1_FILIAL Filial titulos[nX]['billnumber'] E1_NUMERO Numero de Titulo titulos[nX]['type'] E1_TIPO Tipo de Titulo titulos[nX]['actualduedt'] E1_VENCREA Vencimiento Real titulos[nX]['currency'] E1_MOEDA Moneda titulos[nX]['unit'] E1_LOJA Tienda titulos[nX]['installment'] E1_PARCELA Cuota titulos[nX]['billvalue'] E1_VALOR Valor titulos[nX]['customer'] E1_CLIENTE Cliente titulos[nX]['class'] E1_NATUREZ Modalidad titulos[nX]['custname'] A1_NOME Nombre del cliente titulos[nX]['balance'] E1_SALDO Saldo del titulo titulos[nX]['prefix'] E1_PREFIXO Prefijo del titulo titulos[nX]['issuedt'] E1_EMISSAO Fecha de emisión titulos[nX]['writeoffne'] E1_VALLIQ Valor neto de la baja     titulos[nX]['discount'] E1_DESCONT Descuento titulos[nX]['interest'] E1_JUROS Intereses titulos[nX]['fine'] E1_MULTA Multas titulos[nX]['series'] E1_SERIE Serie  titulos[nX]['origin'] E1_ORIGEM Ruta origen del titulo titulos[nX]['recno'] R_E_C_N_O titulos[nX]['client'] E1_CLIENTE Cliente titulos[nX]['originbranch'] E1_FILORIG Filial Original titulos[nX]['paycondf2'] F2_COND Condicion SF2 titulos[nX]['paycondf1'] F1_COND Condición SF1 titulos[nX]['serie2f2'] F2_SERIE2 Serie SF2 titulos[nX]['serie2f1'] F1_SERIE2 Serie SF1 titulos[nX]['paymentcondition'] Condición de pago titulos[nX]['cobrar'] Monto a cobrar en Numeric titulos[nX]['billvalueString'] Toyal o saldo (Dependiendo la pantalla) titulos[nX]['balanceString'] Saldo en String titulos[nX]['cobrarString'] Monto a cobrar en String titulos[nX]['discountString'] Descuento del titulo en String titulos[nX]['interestString'] Interes del titulo en String titulos[nX]['fineString'] Multa del titulo en String titulos[nX]['quickSelected'] Titulo seleccionado en el GRID titulos[nX]['reasonBx'] Motivos de baja titulos[nX]['peso'] Total en moneda Expandir title Objeto monedas Nombre en Json Descripción monedas[nX]['coin'] Nombre Moneda monedas[nX]['tasa'] Tasa monedas[nX]['received'] Cantidad recibida en esta moenda monedas[nX]['balance'] Saldo en Numeric monedas[nX]['type'] Nombre de Moneda monedas[nX]['moneda'] Numero de Moneda monedas[nX]['stringTasa'] Tasa de moneda monedas[nX]['balanceString'] Saldo en String monedas[nX]['receivedString'] Cantidad recibida en esta moenda Expandir title Objeto formas de pago Nombre en Json Descripción formaspago[nX]['property'] Nombre de la propiedad (Trae el mismo nombre registrado en la SX3) formaspago[nX]['value'] Valor de la propiedad Expandir title Objeto parametros Nombre en Json Descripción params[nX]['mv_par01'] Valor del parametro 01 params[nX]['mv_par01'] . . . params[nX]['mv_parxx'] PARAMIXB[2] L True (.T.) si es momento del guardado y False (.F.) si es configuración de la vista

      Respuesta:

      Descripción del objeto de respuesta cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ]  este como falsa (.F.) Expandir title Objeto de respuesta Nombre Tipo Descripción Obligatorio oJson['label'] L Nombre del campo nuevo a mostrar. Si oJson['disabledDiscount'] L Deshabilitar o habilitar el campo de descuento. Si oJson['disabledInterest'] L Deshabilitar o habilitar el campo de Intereses. Si oJson['disabledFine'] L Deshabilitar o habilitar el campo de Multa. Si oJson['disabledInput'] L Deshabilitar o habilitar el input nuevo Si oJson['maxDiscount'] N Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100 Si oJson['warningMaxDiscount'] C  Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandará uno por default No Descripción del objeto de respuesta cuando en el Json la bandera PARAMIXB[2] es Verdadera (.T.) y la bandera ["recalculate" ] este como True (.T.) Expandir title Objeto de respuesta Nombre en Json Descripción oJson['descuento'] Valor que sera mostrado en el campo descuento oJson['residuo'] Valor que sera mostrado como total del titulo (Despues de descuentos, multa e intereses) oJson['multa'] Valor que sera mostrado como multa del titulo oJson['interes'] Valor que sera mostrado como interes del titulo Descripción de los objetos de respues en el Json cuando la bandera PARAMIXB[2] sea Falsa (.F.)  N/A

      Bloco de código
      language actionscript3 title Ejemplo de PE F998VALBX  y sus funciones de usuario linenumbers true collapse true
      #Include 'Protheus.ch' User Function F998VALBX() Local oResponse := JsonObject():New() as Object IF PARAMIXB[2] //Vista IF PARAMIXB[1]['recalculate'] oResponse:=setValues(PARAMIXB[1]) ELSE oResponse['label'] := "% Descuento por pronto pago" //Nombre del campo nuevo a mostrar. oResponse['readonlyDiscount'] := .T. //Deshabilitar o habilitar el campo de descuento. oResponse['readonlyInterest'] := .T. //Deshabilitar o habilitar el campo de Intereses. oResponse['readonlyFine'] := .T.

Se crea el punto de entrada F998VALBX en la rutina FINA998 - TOTVS Recibo, con el objetivo de habilitar el descuento por pronto pago al momento de editar el "Cobro del titulo" desde la opción de Nuevo Recibo.

1. Crear la funcion de usuario F998VALBX  definiendo las propiedades para la vista y la funcion a ejecutar para guardar los datos.
   1. Debe retornar un objeto Json en el cual se definen:
      1. Nombre del campo nuevo  a mostrar.
      2. Bandera para habilitar o deshabilitar el campo descuento, Interes y Multa.
      3. Condicion en el cual se define si se habilita o deshabilita el campo para el titulo.
      4. Limite permitido de descuento al titulo.
      5. Mensaje personalizado por si se excede el limite permitido.
   2. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
   3. Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo, llenar los campos del encabezado para localizar un titulo.
   4. Editar el cobro de un titulo.

   5. Verificar si se visualiza el nuevo campo configurado en la función F998VALBX.

      Parámetros recibidos:

      Nombre	Tipo	Descripción
      PARAMIXB[1]	C	Objeto Json con toda la información del recibo
      PARAMIXB[2]	L	True (.T.) si es momento del guardado y False (.F.) si es configuración de la vista

      Respuesta:

      Nombre	Tipo	Descripción	Obligatorio
      aRet[1]	O	Objeto Json en el cual se obtenen las configuraciones del campo a visualizar	Si

      Bloco de código
      language actionscript3 title Ejemplo de PE F998VALBX  y sus funciones de usuario linenumbers true collapse true
      #Include 'Protheus.ch' User Function F998VALBX() Local oResponse := JsonObject():New() as Object Local oJsonData := JsonObject():New() as JsonObject oJsonData:fromJson(PARAMIXB[1]) IF !PARAMIXB[2] //Vista oResponse['label'] := "% Descuento" //Deshabilitar o habilitar el campo //Nombre del campo nuevo a mostrar. de Multa. oResponse['readonlyDiscountdisabledInput'] := .T. F.//isDisable(PARAMIXB[1]) //Deshabilitar o habilitar el input nuevo oResponse['maxDiscount'] //Deshabilitar o habilitar el campo de descuento. oResponse['readonlyInterest'] := .T. := 50//GetLimite(PARAMIXB[1]) //Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100 oResponse['warningMaxDiscount'] //Deshabilitar o habilitar el campo de Intereses. oResponse['readonlyFine'] := .T. := "Descuento por Pronto Pago mayor al permitido. En esta condición el tope es:"+ALLTRIM(STR(oResponse['maxDiscount'])) //Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandara uno por default //Deshabilitar oENDIF habilitar el campo deELSE Multa. oResponse['disabledInput'] SaveData(PARAMIXB[1]) //Grabación := isDisable(oJsonData) //Deshabilitar o habilitar el input nuevo oResponse['maxDiscount'] := GetLimite(oJsonData) //Se informa el descuento permitido debe tener un rango mayor a 0 y menor a 100 oResponse['warningMaxDiscount'] := "Descuento por Pronto Pago mayor al permitido. En esta condición el tope es:"+ALLTRIM(STR(oResponse['maxDiscount'])) //Mensaje personalizado por si se excede el descuento permitido, si no se informa el front mandara uno por default ELSE SaveData(oJsonData) //Grabar datos ENDIF Return oResponseENDIF Return oResponse /*/{Protheus.doc} setValues Esta funcion determina los valores a mostrar en los campos de descuento, residuo,multa e interes @type function @version @author luis.aboytes @since 25/7/2024 @param oJson, object, param_description @return variant, return_description /*/ Static Function setValues(oJson) Local oRes := JsonObject():New() oRes['descuento'] := Round(PARAMIXB[1]['bind']['discountInput']/100*PARAMIXB[1]['bind']['saldo'],2) oRes['residuo'] := Round(PARAMIXB[1]['bind']['saldo']-oRes['descuento'],MsDecimais(SE1->E1_MOEDA)) oRes['multa'] := 0 oRes['interes'] := 0 Return oRes /*/{Protheus.doc} SaveData Guardamos el dato en un campo en especifico @type function @author luis.aboytes @since 18/7/2024 /*/ Static Function SaveData(oJsonData) Local nCont as Numeric For nCont := 1 to LEN(oJsonData['titulos']) SE1->(dbSetOrder(1)) SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['titulos'][nCont]['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['titulos'][nCont]['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['titulos'][nCont]['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO")))) RecLock("SE1",.F.) SE1->E1_XPERDES := oJsonData['titulos'][nCont]['percentDiscount'] MsUnLock() Next Return /*/{Protheus.doc} GetLimite Se retorna el limite de descuento @type function @author luis.aboytes @since 18/7/2024 /*/ Static Function GetLimite(oJsonData) Local nTope := 0 SE1->(dbSetOrder(1)) SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO")))) nTope:=IIF(VAZIO(Posicione("SE4", 1,xFilial("SE4")+SE1->E1_XCONDPP,"E4_XDESCON")),0,Posicione("SE4", 1,xFilial("SE4")+SE1->E1_XCONDPP,"E4_XDESCON")) Return nTope /*/{Protheus.doc} isDisable Funcion que retorna si es editable o no el valor del input @type function @author luis.aboytes @since 18/7/2024 /*/ Static Function isDisable(oJsonData) Local lRet := .t. SE1->(dbSetOrder(1)) SE1->(dbSeek(xFilial("SE1")+PADR(oJsonData['prefix'],GetSx3Cache("E1_PREFIXO","X3_TAMANHO"))+PADR(oJsonData['billnumber'],GetSx3Cache("E1_NUM","X3_TAMANHO"))+PADR(oJsonData['installment'],GetSx3Cache("E1_PARCELA","X3_TAMANHO")))) IF SE1->E1_XCONDPP == '999' lRet := .f. ENDIF Return lRet

      
      

      
      

F998BRANU

Se crea el punto de entrada F998BRANU en la rutina FINA998- TOTVS Recibo, con el objetivo de que el usuario pueda incluir validaciones para la opción de "Anular" en la rutina.

1. Crear la función de usuario F998BRANU con las validaciones personalizadas tanto para aceptar así como para rechazar la anulación 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.
2. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
3. 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.
4. Se mostrará la lista de los recibos.
5. Seleccionar el recibo deseado y al dar clic en el botón de Anular recibo se ejecutará el punto de entrada F998BRANU.
6. La función de usuario efectúa las validaciones personalizadas y retorna una respuesta que indica si procede o no la anulación.
7. Se mostrará una ventana con el mensaje correspondiente y en caso de que proceda, el sistema continuará con la anulacióndel recibo.

#Include 'Protheus.ch'

User Function F998BRANU
     Local cSerie := Paramixb[1]
     Local cRecibo := Paramixb[2]
     Local cQueryWhere := ""
     Local cQueryFields := ""
     Local cAlias := GetNextAlias()
     Local aRet := {.T.,""}

     cQueryWhere := " FJT_FILIAL = '"+xFilial("FJT")+"' AND FJT_SERIE = '"+cSerie+"' AND FJT_RECIBO = '"+cRecibo+"' "

     cQueryFields := " FJT_SERIE,FJT_RECIBO,FJT_CLIENT,FJT_DTDIGI "

     cQuery := " SELECT "+cQueryFields+" FROM "+ RetSqlName("FJT") + " WHERE "+cQueryWhere

     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

F998BRBOR

Se crea el punto de entrada F998BRBOR en la rutina FINA998- TOTVS Recibo, con el objetivo de que el usuario pueda incluir validaciones para la opción de "Borrar" en la rutina.

1. Crear la función de usuario "F998BRBOR" con las validaciones personalizadas tanto para aceptar, así como para rechazar el 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.
2. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
3. 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.
4. Se mostrará la lista de los recibos.
5. Seleccionar el recibo deseado y al dar clic en el botón de Borrar (El recibo tiene que estar previamente anulado) recibo se ejecutará el punto de entrada "F998BRBOR".
6. La función de usuario efectúa las validaciones personalizadas y retorna una respuesta que indica si procede o no el borrado.
7. Se mostrará una ventana con el mensaje correspondiente y en caso de que proceda, el sistema continuará con el borrado del recibo. 

#Include 'Protheus.ch'

User Function F998BRBOR
     Local cSerie := Paramixb[1]
     Local cRecibo := Paramixb[2]
     Local cQueryWhere := ""
     Local cQueryFields := ""
     Local cAlias := GetNextAlias()
     Local aRet := {.T.,""}

     cQueryWhere := " FJT_FILIAL = '"+xFilial("FJT")+"' AND FJT_SERIE = '"+cSerie+"' AND FJT_RECIBO = '"+cRecibo+"' "

     cQueryFields := " FJT_SERIE,FJT_RECIBO,FJT_CLIENT,FJT_DTDIGI "

     cQuery := " SELECT "+cQueryFields+" FROM "+ RetSqlName("FJT") + " WHERE "+cQueryWhere

     cQuery := ChangeQuery(cQuery)
     MPSysOpenQuery(cQuery, cAlias)

     WHILE (cAlias)->(!EOF())
          IF (cAlias)->FJT_DTDIGI == DTOS(ddatabase)
               aRet := {.F.,"No se puede BORRAR un recibo que haya sido generado el dia de hoy"}
          EndIf
          (cAlias)->(DbSkip())
     END
Return aRet