FiveTech Software tech support forums

... if(MYSQL_AFFECTED_ROWS(oserver:nSocket)>0,(obrow2:otreeitem:addchild(acid1),obrow2:refresh()),)) MENUITEM "删除本阶" ACTION (if(msgyesno("删除当前代码","请确认"),(obrow2:odbf:DELETE(),if(!oserver:lerror,(obrow2:otreeitem:DELETE(),obrow2:refresh()),msgstop("该科目在凭证中已经使用，需要先在凭证里修改或者删除","停止"))),)) ...

... OF oWnd ACTIVATE TIMER oTmr DEFINE MESSAGE OF oWnd PROMPT "" NOINSET CENTERED KEYBOARD DATE CLOCK ACTIVATE WINDOW oWnd VALID MsgYesNo( HB_OemtoAnsi("¨ Salir del Programa ?") ,HB_OemtoAnsi("Seleccione opci¢n")) Return nil ******Este programa llama a CheckSls ...

... cResp ) oGbmp:hbmp := GDIPLUSIMAGELOADPNGFROMSTR( cResp,len(cResp) ) oImage:hBitmap := oGBmp:GetGDIHbitmap() oImage:HasAlpha() oImage:Refresh() if msgYesNo( " ¨ quiere grabar el codigo QR a Disco ?") // oGBmp:save(".\qrcode.png" ) // FORMATO INVALIDO ? oImage:SaveImage( "qrcode.bmp", ...

... cResp ) oGbmp:hbmp := GDIPLUSIMAGELOADPNGFROMSTR( cResp,len(cResp) ) oImage:hBitmap := oGBmp:GetGDIHbitmap() oImage:HasAlpha() oImage:Refresh() if msgYesNo( " ¨ quiere grabar el codigo QR a Disco ?") oGBmp:save(".\qrcode.png" ) // FORMATO INVALIDO ? endif oGbmp:End() endif Return ...

... barcode2tp() local opr, xStep, yStep, oBr, oFont , N := 0 * public XCANCELA := "N" PUBLIC XCODIGOC := SPACE(13) public ocodigo if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras") printersetup() printer oprinter NAME "IMPRESION CODIGO ...

... DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\16x16\delete0.bmp" PROMPT "Delete" TOOLTIP "Delete Record" ; ACTION ( If( MsgYesNo( "Delete Record?" ), oBrw:Delete(), nil ), oBrw:SetFocus() ) DEFINE BUTTON OF oBar FILE "\fwh\bitmaps\16x16\excel.bmp" ...

... to break a combination of < DO WHILE > and < FOR NEXT > with < RETURN > I'm using IF LASTKEY() = 13 IF MsgYesNo("Exit from topic collect ?", "EXIT" ) nPage := nPages + 10 // < do while > break lBreak := .T. // < for next > ...

... _AddNewRow( oRsDetail,nRepairNumber,nAssignedTo,cLoc,oLbxB,"Y",oRsRepair,"" ) }  What I have tried to do is add a MsgYesNo() at the top of AddNewRow() to ask the user if they ( really ) want to add a new Row to stop a run-away multiple add new blank rows. //----------------Static ...

resolved with str(ctext)


How simulate msgyesNO function with toast ?

... ) not show anything only a notice at left with the text "New notice" any solution ? and how I can to simulate msgyesno function with toast ?

and

msgYesNo ?

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... Local s ,lResp:=.T. local cFecha := DtoC( Date() ) s:=if( cTpo='Z',"9" + SE + "Z","9" + SE + "X") If MsgYesno( '¿ Realizar Cierre '+cTpo+' ? ' + ChR(10)+ ; ' Fecha : ' + cFecha , " Mensaje de atención ") nError := CallDll32 ( "MandaPaqueteFiscal" ...

... backup file name. Method Restore() was returning NIL. Now modified to return .T. on success and .f. on failure. During development, we kept some msgyesno() for testing. We regret that we forgot to remove them. Now we removed these messages. Some more enhancements have been made after release ...

... Donde le puedo hechar una mirada, es para informar al usuario que no grabo las modificaciones hechas... ya sea con una alerta visual, mensajes, msgyesno(), aun no decido como, mi primer paso es averiguar que hay un control que cambio. Cualquier consejo sera bienvenido. Gracias de antemano. Desde ...