FiveTech Software tech support forums

Gracias por su ayuda, detectado y resuelto. El detalle esta en: BITMAPS 'AA_ICO' que defino en MSGITEM : DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' Elimine BITMAPS de MSGITEM y lo cambie por: DEFINE ICON oIcon RESOURCE 'AA_ICO' ...

Después de un buen rato he encontrado el error, lo provoca esta línea: DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' // ESTA LINEA PROBOCA EL ERROR Esta en el fuente: TestError.prg, línea 145, si omito esta línea ...

... mueve el cuadro de diálogo para alinear su parte inferior con la parte superior del "msgitem". Uso: ACTIVATE DIALOG oDlg ON INIT (..... oMsgItem:Anchor( oDlg ) ) * XBROWSE - Mejora en el método oCol( u ) Hasta ahora, el parámetro puede ser (1) orden de creación, (2) cabecera o ( 3 ) ...

... used in ON INIT clause of a dialog, moves the dialog to align its bottom with the top of the msgitem. Usage: ACTIVATE DIALOG oDlg ON INIT (..... oMsgItem:Anchor( oDlg ) ) * XBROWSE - Method oCol( u ) enhanced. Till now, the parameter can be either (1) creation order, (2) header or ( 3 ) group ...

Hola Albeiro

prueba colocar una static en la funcion extaerreport..

Function ExtraerReporteZ( oMsgItem )
static lentre := .f.
Local oQry

if !lentre
lentre := .t.
bla
bla
lentre := .f.
endif
return..

... aItems, aFiles, .t., 1, nColor ),; oGet:SetFocus(), oGet:Refresh() } endif SET MESSAGE OF oWnd TO "" KEYBOARD NOINSET DEFINE MSGITEM oMsgItem PROMPT "" SIZE 120 OF oWnd:oMsgBar //205 300 @ iif( lCinta, 140, 29 ), iif( lHelp, 210, 50 ) FORMAT GET oGet VAR cText SIZE 300,200 ...

... "ribbon.ch" #include "xbrowse.ch" #define FW_NORMAL 400 #define FW_BOLD 700 //Static oWnd, oGet, oMenu, oFont, nItem, aFiles, oMsgItem, cFileDisc := "", lFile := .f., lHelp := .t. //Static cText, cFile, nVez, cTit, lIt, nX, lChange := .f., cTextFormat := "" ...

... == Asc( "A" ) .OR. nK == Asc( "a" ) ) .AND. GetKeyState( VK_CONTROL ), ; ( IF(lAuto[VAL(nCaja)],lAuto[VAL(nCaja)]:=.F.,lAuto[VAL(nCaja)]:=.T.),; oMsgItem[4]:SetText("Venta Aut.: "+IF(lAuto[VAL(nCaja)],"S","N")),; oMsgItem[4]:Refresh(), SndPlaySound("Click.Wav")), ), ; if( ( nK == Asc( "T" ) .OR. ...

Nop wrote:Enrico, thanks, in format use i use:

oFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( "Lin: " + Str( nRow, 4 ) + " " + "Col: " + Str( nCol, 4 ) ) }

this is can adapted to memo get? thanks

What is locate event?

EMG

Enrico, thanks, in format use i use:

oFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( "Lin: " + Str( nRow, 4 ) + " " + "Col: " + Str( nCol, 4 ) ) }

this is can adapted to memo get? thanks

... DEFINE DIALOG oDlg RESOURCE "PV2100" COLOR nRGB(0,64,128),nRGB(0,64,128) ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( Inicia(), Msg_Barra(oDlg,oMsg,oMsgItem,oFnt) ) ; VALID ( Checa(@oBTmp,@lSalir),IF(lSalir .OR. lCorteCaja,.T.,lSalir) ) la funcion Inicia()=inicializacion de variables y funciones ...

Forse è questo che ti serve:



DEFINE MSGITEM oMsgItem;
OF MainWnd:oMsgBar;
PROMPT "Prompt";
BITMAP "BITMAP";
TOOLTIP "Tooltip";
ACTION msginfo("Msg Item");
SIZE 24

Buon lavoro

DEFINE MSGITEM [ <oMsgItem> ] ; [ OF <oMsgBar> ] ; [ PROMPT <cMsg> ] ; [ SIZE <nSize> ] ; [ FONT <oFont> ] ; [ COLOR | COLORS <nClrFore>;[, <nClrBack>] ] ; [ ACTION <uAction> ]; [ BITMAP, ...