Moderador: Moderadores
INIT DIALOG oDlg TITLE "01 - Dinheiro" ;
AT 508,86 SIZE 528,303 CLIPPER ;
STYLE WS_POPUP+WS_CAPTION+DS_CENTER+DS_ABSALIGN
FormDinheiro := oDlg
hwg_SetColorinFocus( oDlg,, 13172680 )
SET KEY 0,VK_ESCAPE TO {|| oDlg:Close() }
@ 215,23 SAY oSubTotal CAPTION TRANSFORM(nSubTotal,'@E 99,999,999,999.99') SIZE 305,42 ;
STYLE SS_RIGHT +WS_BORDER ;
COLOR 16711680 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 5,33 SAY oLabel1 CAPTION "Sub-Total:" SIZE 202,34 ;
STYLE SS_RIGHT ;
FONT HFont():Add( '',0,-27,400,,,)
@ 215,73 GET oDesconto VAR nDesconto SIZE 120,42 VALID {|| PGTO_DINHEIRO_DESCONTO( )};
STYLE ES_RIGHT +WS_BORDER PICTURE '@E 999.99' MAXLENGTH 6 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 5,83 SAY oLabel2 CAPTION "Desconto:" SIZE 202,34 ;
STYLE SS_RIGHT ;
FONT HFont():Add( '',0,-27,400,,,)
@ 344,77 SAY oLabel6 CAPTION "%" SIZE 41,34 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 215,123 SAY oTotal CAPTION TRANSFORM(nTotal,'@E 99,999,999,999.99') SIZE 305,42 ;
STYLE SS_RIGHT +WS_BORDER ;
COLOR 16711680 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 5,133 SAY oLabel3 CAPTION "Total:" SIZE 202,34 ;
STYLE SS_RIGHT ;
FONT HFont():Add( '',0,-27,400,,,)
@ 4,175 LINE oLine1 LENGTH 548
@ 215,183 GET oValorRecebido VAR nValorRecebido SIZE 305,42 VALID {|| PGTO_DINHEIRO_TROCO( ) };
STYLE ES_RIGHT +WS_BORDER PICTURE '@E 99,999,999,999.99' MAXLENGTH 14 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 4,193 SAY oLabel4 CAPTION "Valor Recebido:" SIZE 202,34 ;
STYLE SS_RIGHT ;
FONT HFont():Add( '',0,-27,400,,,)
@ 215,233 SAY oTroco CAPTION TRANSFORM(nTroco,'@E 99,999,999,999.99') SIZE 305,42 ;
STYLE SS_RIGHT +WS_BORDER ;
COLOR 255 ;
FONT HFont():Add( '',0,-35,400,,,)
@ 5,243 SAY oLabel5 CAPTION "Troco:" SIZE 202,34 ;
STYLE SS_RIGHT ;
FONT HFont():Add( '',0,-27,400,,,)
@ 434,285 GET oFimTela VAR cFimTela SIZE 0,0
ACTIVATE DIALOG oDlg ;
ON ACTIVATE {|| PGTO_DINHEIRO_onDlgInit( ) }
// TEXTBOX
#command @ <row>, <col> TEXTBOX <name> ;
[ID <nId>] ;
[ <dummy1: OF, PARENT, DIALOG> <parent> ] ;
[ HEIGHT <height> ] ;
[ WIDTH <width> ] ;
[ FIELD <field> ] ;
[ VALUE <value> ] ;
[ < readonly: READONLY > ] ;
[ FONT <fontname> ] ;
[ SIZE <fontsize> ] ;
[ <bold : BOLD> ] ;
[ <italic : ITALIC> ] ;
[ <underline : UNDERLINE> ] ;
[ <strikeout : STRIKEOUT> ] ;
[ TOOLTIP <tooltip> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONTCOLOR <fontcolor> ] ;
[ MAXLENGTH <maxlength> ] ;
[ <upper: UPPERCASE> ] ;
[ <lower: LOWERCASE> ] ;
[ <numeric: NUMERIC> ] ;
[ <password: PASSWORD> ] ;
[ ON CHANGE <change> ] ;
[ ON GOTFOCUS <gotfocus> ] ;
[ ON LOSTFOCUS <lostfocus> ] ;
[ ON ENTER <enter> ] ;
[ <RightAlign: RIGHTALIGN> ] ;
[ <invisible: INVISIBLE> ] ;
[ <notabstop: NOTABSTOP> ] ;
[ <noborder: NOBORDER> ] ;
[ HELPID <helpid> ] ;
[ <cuebanner : CUEBANNER, PLACEHOLDER> <CueText> ] ;
=>;
_DefineTextBox( <"name">, <"parent">, <col>, <row>, <width>, <height>, <value>, <fontname>, <fontsize>, <tooltip>, <maxlength>, ;
<.upper.>, <.lower.>, <.numeric.>, <.password.>, <{lostfocus}>, <{gotfocus}>, <{change}>, <{enter}>, ;
<.RightAlign.>, <helpid>, <.readonly.>, <.bold.>, <.italic.>, <.underline.>, <.strikeout.>, <"field">, ;
<backcolor> , <fontcolor> , <.invisible.> , <.notabstop.> , <.noborder.> , [<CueText>] , <nId> )
Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante