Ainda me acostumando depois criar rotinas pra facilitar
Código: Selecionar todos
oCrt := CrtModal( 6, 14, 14, 44, "VALORES A RATEAR PELOS PRODUTOS" )
oGroup1 := wvgTstGroupbox():New()
oGroup1:cText := "Acréscimo na nota/produtos"
oGroup1:Create( oCrt,, { -1, -1 }, { -7.5, -40 } )
//ze_WOpen( 0, 0, MaxRow()-1, MaxCol()+1, "Valores a ratear pelos produtos" )
//@ 1, 2 SAY "Acréscimo na nota/produtos"
@ Row() + 2, 3 SAY "Valor de Frete.........:" GET mpdValFre PICTURE "@E 999999.99" VALID mpdValFre >= 0
@ Row() + 1, 3 SAY "Valor de Seguro........:" GET mpdValSeg PICTURE "@E 999999.99" VALID mpdValSeg >= 0
@ Row() + 1, 3 SAY "Outras Despesas........:" GET mpdValOut PICTURE "@E 999999.99" VALID mpdValOut >= 0
@ Row() + 1, 3 SAY "Acréscimo em valor.....:" GET mpdValAdi PICTURE "@E 999999.99" VALID mpdValAdi >= 0
@ Row() + 1, 3 SAY "Acréscimo percentual..%:" GET mpdPerAdi PICTURE "@E 999.99" VALID mpdPerAdi >= 0
@ Row() + 1, 3 SAY "Acréscimo(s/imposto)...:" GET mpdValExt PICTURE "@E 999999.99" VALID mpdValExt >= 0
//@ Row() + 2, 2 SAY "Tira do valor da nota"
oGroup2 := wvgTstGroupbox():New()
oGroup2:cText := "Tira do valor da nota"
oGroup2:Create( oCrt,, { -9, -1 }, { -3.5, -40 } )
@ Row() + 3, 3 SAY "Desconto em valor nota.:" GET mpdValDes PICTURE "@E 999999.99" VALID mpdValDes >= 0
@ Row() + 1, 3 SAY "Redução Percentual....%:" GET mpdPerDes PICTURE "@E 999.99" VALID mpdPerDes >= 0
//Mensagem( "ESC Sai" )
READ
//Mensagem()
IF LastKey() != K_ESC
WITH OBJECT cnSQL
:QueryCreate()
:QueryAdd( "PDVALFRE", mpdValFre )
:QueryAdd( "PDVALSEG", mpdValSeg )
:QueryAdd( "PDVALOUT", mpdValOut )
:QueryAdd( "PDVALEXT", mpdValExt )
:QueryAdd( "PDVALDES", mpdValDes )
:QueryAdd( "PDVALADI", mpdValAdi )
:QueryAdd( "PDPERDES", mpdPerDes )
:QueryAdd( "PDPERADI", mpdPerAdi )
:QUeryAdd( "PDINFALT", LogInfo() )
:QueryExecuteUpdate( "JPPEDIDO", "IDPEDIDO = " + NumberSQL( nIdPedido ) )
:ExecuteProcedureNoReturn( "ze_PedidoCalculo", nIdPedido )
ENDWITH
ENDIF
//ze_WClose()
oCrt:Destroy()
RETURN Nil
Então.....
Ambiente GUI:
Cria a dialog (CRT), cria os controles windows, fechou a dialog, a dialog destrói tudo.
Nenhuma complicação dos exemplos GTWVG, e controles windows.
A propósito, posso usar LABEL, e textos de qualquer tamanho e cor.
A limitação é apenas manter os GETs, porque EDIT mais atrapalha do que ajuda.
Mas vale a pena trocar SAY por LABEL ? sei lá.... deixar pra pensar depois...