Histórico da Página

...

Descripción

Actualizaciones

Nombre del programa fuente:

FINANCIAL-TITLES.SERVICE.TLPP

Parámetros recibidos

Nombre

Tipo

Descripción

PARAMIXB[1]

O

Si el parámetro PARAMIXB[2] == .T. trae un objeto json con la información del título seleccionado.
Si el parámetro PARAMIXB[2] == .F. trae un objeto json con toda la información del recibo.

Descripción del objeto 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
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

Descripción del objeto 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)

Descripción de los objetos 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

Punto de entrada:

F998VALBX

Respuesta:

Objeto

json con las siguientes opciones:

cuando en el Json la bandera PARAMIXB[2]) es Verdadera (.T.) y la bandera ["recalculate" ] este como falsa (.F.)

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 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
['descuento']	Valor que sera mostrado en el campo descuento
['residuo']	Valor que sera mostrado como total del titulo (Despues de descuentos, multa e intereses)
['multa']	Valor que sera mostrado como multa del titulo
['interes']	Valor que sera mostrado como interes del titulo

Descripción de los objetos mandados en el Json cuando la bandera (PARAMIXB[2]) es Falsa (.F.)

N/A

Bloco de código

language	actionscript3
title	Ejemplo de PE F998VALBX
linenumbers	true
collapse	true

#Include 'Protheus.ch'

User Function F998VALBX()

    Local oResponse := JsonObject():New() as Object
    
    IF PARAMIXB[2]  //Vista 
        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.                  //Deshabilitar o habilitar el campo de Multa.
        oResponse['disabledInput']      := .T.//Deshabilitar o habilitar el input nuevo
        oResponse['maxDiscount']        := 50 //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(PARAMIXB[1]) //Grabación
    ENDIF

Return oResponse

/*/{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

...

Árvore de páginas

Versões comparadas

Versão antiga 43

Nova versão 44

Chave