PC Toledo

Código: Selecionar todos

  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(  ) }