gabo wrote:espero que ahora si funcione
Saludos
jllinas wrote:Esta muy bien....
Una sola pregunta: ¿Que tiene "traspaso" como propósito? ¿Que hace esta opcion/botón?
DEFINE DIALOG oDlgMesas RESOURCE "DLG_PRODUCTOSCOMANDERO" OF oApp:oWndMain;
TITLE "MESA: " + aDatosMesa[1] + " " + aDatosMesa[3]
REDEFINE BUTTONBMP aBtnsConsu[1] ID 600 OF oDlgMesas BITMAP "BMP_NUEVACOMANDA";
PROMPT "&Agregar" TEXTBOTTOM
REDEFINE BUTTONBMP aBtnsConsu[2] ID 605 OF oDlgMesas BITMAP "BMP_MASUNO";
ACTION OnActionMasUno(oBrwConsu, oSaysGet) ;
PROMPT "(+) Uno"+CRLF+" " TEXTBOTTOM
.
.
.
// Botones de lineas ----------------------------
REDEFINE SBUTTON aBtnsLines[ 1] ID 900 OF oDlgMesas
.
.
// Botones de productos por lineas ----------------------------
REDEFINE SBUTTON aBtnsProdu[ 1] ID 914 OF oDlgMesas
REDEFINE SBUTTON aBtnsProdu[ 2] ID 915 OF oDlgMesas
REDEFINE SBUTTON aBtnsProdu[ 3] ID 916 OF oDlgMesas
.
.
.
// carga los botones de las lineas
FOR EACH oBtn IN aBtnsLines
IF hb_EnumIndex() <= Len( aLineas )
oBtn:cCaption:= Str2Lines( AllTrim( aLineas[ hb_EnumIndex(), 1 ] ), " " )
//Str2Lines( AllTrim(produc->DESC1), " " )
oBtn:nClrText:= { |oB| If( oB:lMouseOver, CLR_WHITE, CLR_RED ) }
oBtn:nClrBack:= { |oB| If( oB:lMouseOver, { nRgb(0,119,176), nRgb(255,255,255), 1 }, ;
{ nRgb(128,128,255), nRgb(255,255,255), 1 } ) }
oBtn:cargo := { .F., aLineas[hb_EnumIndex(), 3] }
oBtn:bAction := { || AEVAL( aBtnsLines, ;
{ |oB| IF( oB:lEverPress, (oB:lEverPress:= .F., oB:cargo[1]:= .F.,;
oB:nClrBack:= { nRgb(128,128,255), nRgb(255,255,255), 1 },oB:refresh() ), .F. ) } ), ;
oBtn:cargo[1]:= !oBtn:cargo[1], ;
If( oBtn:cargo[1], ;
( oBtn:lEverPress := .T., ;
oBtn:nClrBack:= { nRgb(0,119,176 ), nRgb(255,255,255), 5 }, ;
GetProductoPorLinea( oBtn:cargo[2], aBtnsProdu, oBrwConsu, aBtnScroll, ;
oSaysGet, oFntBrow ) ) , ;
( oBtn:lEverPress := .F., oBtn:cargo[2]:= " ",;
oBtn:nClrBack:= { nRgb(128,128,255), nRgb(255,255,255), 1 } ) ), ;
oBtn:refresh() }
oBtn:oFont:= oFntSays
oBtn:Refresh()
ELSE
oBtn:disable()
ENDIF
NEXT
// Botones de scroll de lineas y productos por lineas
REDEFINE BUTTONBMP aBtnScroll[1] ID 912 OF oDlgMesas BITMAP "BMP_UP_BTN";
ACTION OnActionUpLines( @aBtnsLines, aLineas, aCargos, aBtnScroll, oBrwConsu, aBtnsProdu )
REDEFINE BUTTONBMP aBtnScroll[2] ID 913 OF oDlgMesas BITMAP "BMP_DOWN_BTN";
ACTION OnActionDownLines( @aBtnsLines, aLineas, aCargos, aBtnScroll, oBrwConsu, aBtnsProdu )
REDEFINE BUTTONBMP aBtnScroll[3] ID 938 OF oDlgMesas BITMAP "BMP_UP_BTN";
ACTION OnActionUpProducto( aBtnsProdu, aBtnScroll )
REDEFINE BUTTONBMP aBtnScroll[4] ID 939 OF oDlgMesas BITMAP "BMP_DOWN_BTN";
ACTION OnActionDownProducto( aBtnsProdu, aBtnScroll )
REDEFINE BUTTONBMP oBtnExit ID 549 OF oDlgMesas BITMAP "BMP_SALIRTPV" ;
PROMPT "S" + CRLF + "a" + CRLF + "l" + CRLF + "i" + CRLF + "r"+CRLF + " ";
ACTION ( lSalida:= TRUE, oDlgMesas:End() );
TEXTBOTTOM
WITH OBJECT oBrwConsu:= TXBrowse():New( oDlgMesas )
:nHeaderHeight := 25
:nRowHeight := 35
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:lColDividerComplete := .T.
:lHScroll := .T.
:lVScroll := .T.
// :oFont := oFntBrow
:bChange:= {|| oSaysGet[6]:SetText( RTRIM( consum->NOTA1 ) + " " + RTRIM(consum->NOTA2) ), ;
oSaysGet[6]:refresh() }
END
WITH OBJECT oCol := oBrwConsu:AddCol()
:bStrData := { || TRANSFORM( consum->CANTIDAD, "999,999" ) }
:cHeader := "Cantidad"
:nDataStrAlign:= AL_RIGHT
:nWidth := 40
:cHeader := "Canti"
:oHeaderFont:= oFntHead
:oDataFont := oFntBrow
END
WITH OBJECT oCol := oBrwConsu:AddCol()
:bStrData := { || HB_OemToAnsi(consum->NOMB_PROD) }
:nWidth := 200
:cHeader := "Nombre del producto"
:oHeaderFont:= oFntHead
:oDataFont := oFntBrow
END
.
.
.
oBrwConsu:SetRDD()
oBrwConsu:CreateFromResource(550)
REDEFINE GSAY oSaysGet[1] VAR aVars[1] ID 750 OF oDlgMesas PICTURE '99,999,999' ;
.
.
.
ACTIVATE DIALOG oDlgMesas ;
ON INIT ( OnInitProductos( @aVars, @aConsumo ), oBrwConsu:SetFocus() ) ;
ON PAINT DrawBitmap( oDlgMesas:hDC, oBmpFondo:hBitmap, 0, 0, oBmpFondo:nWidth(), ;
oBmpFondo:nHeight(), aBtnsConsu[1]:disable(), aBtnsConsu[1]:hide(), ;
aBtnsConsu[1]:refresh(), aBtnsConsu[8]:disable(), aBtnsConsu[8]:hide(), aBtnsConsu[8]:refresh());
CENTERED VALID ( oFntSays:End(), oFntGets:End(), oFntBrow:End(), ;
oFntTota:End(), DestroyBtns( aBtnsLines ), ;
DestroyBtns( aBtnScroll ), DestroyBtns( aBtnsProdu ), nPageLines:= 0, ;
nElemenLines:= 12, consum->( ORDSCOPE( 0, NIL ) ), ;
consum->( ORDSCOPE( 1, NIL ) ), lSalida )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 49 guests