Salida rara de GETNUMBER . . .

[gvaronas]

En el siguiente código, en la línea 1 se observa una salida rara del control GETNUMBER, en la lineal 2, he dibujado la salida como quiero que salga con HTML.
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]

[charly]

Hola,

Pues no se por que ocurre, parece el comportamiento natural de bootstrap. Solo se me ocurre o hacer el la columna un poco mas grande o el label reducirlo.

Por cierto, ahora q veo la pantalla en forma "dessign". Como ves esta manera de diseñar la pantalla ? Ayuda un poco mas a entender y crear la pantalla ?

C.

[gvaronas]

Hola Charly:
Al respecto, haciendo la columna mas ancha no soluciona el problema, ya que el icono del signo menos (-), sale completamente pegado a la izquierda, luego viene la etiqueta, luego el campo y finalmente el icono del signo mas (+), dando este aspecto:
<< - Etiqueta Campo + >>
El orden debería ser:
<< Etiqueta - Campo + >>
Estuve revisando el fuente twebgetnumber.prg, pero me perdí.

Por otro lado, decir que que la opción "design" efectivamente, es una gran ayuda al momento de diseñar las pantallas.

Por otro lado, veo que el control SELECT no tiene la clausula FONTLABEL, y claro, se puede agregar via HTML, pero sería bueno considerarlo en TWeb.

Salu2,
GVARONAS