Agradeceré su ayuda para determinar si es un mal uso del control GETNUMBER o es un problema en la librería.
Salu2,
GVARONAS
Código: Seleccionar todo
[font=monospace]// {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}
#include {% TWebInclude() %}
function main()
LOCAL o, oWeb, oBox
local c := ''
LOCAL aGra_DesD := { "Sin descuento a nivel del Documento",;
"Con descuento a nivel del Documento y es un porcentaje del Valor Compra" },;
aGra_DesK := { "1", "2" }
DEFINE WEB oWeb TITLE 'Box example III' CHARSET 'utf-8' INIT
DEFINE FORM o
o:lDessign := .T.
o:lFluid := .F.
o:cType := 'md' // xs,sm,md,lg
INIT FORM o
SEPARATOR o LABEL "Banderas de Operación del Documento"
// Linea 1
ROWGROUP o
SELECT ID "wGRA_DESD" LABEL "Graba Desc. x Doc" PROMPT aGra_DesD VALUES aGra_Desk GRID 8 OF o
GETNUMBER ID "wPOR_DESD" VALUE '' LABEL "% de Desc. x Doc" GRID 4 OF o
END o
SEPARATOR o LABEL "Banderas de Operación del Documento"
ROWGROUP o
SELECT ID "wGRA_DESD" LABEL "Graba Desc. x Doc" PROMPT aGra_DesD VALUES aGra_Desk GRID 8 OF o
HTML o
<div class="col-4" >
<label class="col-form-label " for="wPor_DesD">% de Desc. x Doc</label>
<div class="input-group">
<input type="number" class="form_control " id="wPor_DesD" name="wPor_DesD" min="0" max="100" step="5" value="0">
</div>
</div>
ENDTEXT
END o
END FORM o
retu nil
// -------------------------------------------------------------
//#include "TWebGetNumbex.prg"
[/font]