FiveTech Software tech support forums

... Alcide Fuentes y Asociados' CLOCK DATE KEYBOARD Return Nil //**************************************************** Static Function Finaliza() If MsgNoYes(" Salir del Sistema ?","Modulo CXC") DBCOMMITALL() ; DBUNLOCKALL() ; DBCLOSEALL() SET RESOURCES TO Return .T. End Return .F. //***************************************** ...

... Alcide Fuentes y Asociados' CLOCK DATE KEYBOARD Return Nil //**************************************************** Static Function Finaliza() If MsgNoYes(" Salir del Sistema ?","Modulo CXC") DBCOMMITALL() ; DBUNLOCKALL() ; DBCLOSEALL() SET RESOURCES TO Return .T. End Return .F. //***************************************** ...

... ; NOINSET /* Se activa la ventana principal ---------------------------------*/ ACTIVATE WINDOW oMdi ; MAXIMIZED ; ON INIT ( .T. ) ; VALID ( MsgNoYes("Vol sortir del programa?", "Atenció!" ) ) oMdi:SetFocus() Return Nil // Fi de la funció d'arrancada. FUNCTION MdiChild( oMdi ) /* *** Def. ...

... cFilepath,; lContinue cFile:=cGetFile( "*.zip","Seleccione Archivo a Exportar" ) if len(alltrim(cFile))<>0 lContinue:=.t. if file(cfile) if !MsgNoYEs("Archivo Ya Existe, Desea Sobre-Escribir","Exportar") lContinue:=.f. endif endif if lContinue cursorwait() cFilePath := AllTrim( cOrig ) for ...

Fernando: Tienes estas alternativas MsgInfo() MsgNoYes() MsgYesNo() La primera solo es informativa y te muestra solo un boton (ACEPTAR) Las otras dos tienes dos botones SI o NO, la función MsgNoYes() aparece activo el boton NO mientras que MsgYesNo() ...

... oButCont:disable() ACTIVATE DIALOG oDlg CENTER; ON INIT IIF(lModif,oButModif:HIDE(),); VALID IIF(lModif .or. Eval(bContinuar),MSGNOYES("Desea Salir","Atencion..."),.T.) IF lOk IF lCrea IF VERIFRIFCLIENTE(oData:cRifLetra+'-'+oData:cRIF,oData:cCedLetra+'-'+oData:cCedula,oData:cRifNatLetra+'-'+oData:cRifNat) ...

... LOCAL mSioNo, Regre Do While .T. If ftipo = .t. Use (fBase) Exclusive Else Use (fbase) Shared Endif If !NetErr() Regre = .T. Exit Else mSioNo = MsgNoYes("La base de datos " + fbase +" esta siendo utilizada por otro usuario, Desea Volver a Intentar? " , "Error al abrir") If mSioNo loop Else Regre ...

... oGet, @lSalgo, @nValor ), ) ) } Activate Dialog oDlg Centered Valid lSalgo Return nValor Function BorraRubroDeCarga( oDlg, oGet, lSalgo ) If( !MsgNoYes( ' ¿ Desea cancelar la operación ? ', 'Atención' ) ) oGet : SetFocus() Return 0 End lSalgo := .t. oDlg : End() Return 0 Si ingreso un valor ...

... nSaldo2, nSaldo3 PRIVATE cDetalle, aDetalle, nLenDetalle, x PRIVATE nSaldoAnt, lInicio, dMes, dAno, dFinMes, nPagoAcu, dFecPag, dFecAnt IF !MsgNoYes( "Exportar reporte a excel?" ) RETURN ENDIF TRY oExcel := GetActiveObject( "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ...

... Recno()),modifica_definicion(olist)),obmp1:hide()) } oBmp3:blClicked := {|| MsgBeep(),(nRecno := definiciones->( Recno())),IIF(!BOF(),IIF(MsgNoYes('¿Desea borrar de las definiciones el registro marcado?','Atención'),(definiciones->(DBDelete()),olist:REFRESH(),contador:=contador-1),),obmp3:hide()) ...

... no tramès, s'ha produit un error. El Vol tornar a trametre?", "Atenció" ) CursorWait() oBlat:SendAgain( ) CursorArrow() End If !oBlat:lSendOk If MsgNoYes( "Error en la tramesa del mail, vols CONSERVAR el mail i reintentar manualment l'enviament?", ; "Atenció" ) MsgAlert( "Per l'enviament manual ...

Jeff

MsgNoYes()

Colin

... file|*.txt","Source file")) return nil ENDIF IF Empty(cDest:=cGetFile("ch file|*.ch","Destination file")) return nil ENDIF IF File(cDest) .and. !MsgNoYes("File "+cDest+" exists"+CRLF+"Overwrite it?") return nil ENDIF cText:=MemoRead(cSource) k:=At(cs00,cText); cText:=SubStr(cText,k+Len(cs00)) ...

... array vfields vChkSum := ChkSum(vFields) If Empty(_Field->codv) oModo := 1 EndIf If oModo == 0 If _Field->codv <> vChkSum If !lAll If MsgNoYes("Este Registro ha sido Alterado fuera de Sistema,,,","Corregir Balance?") If Rec_Lock(10) _Field->codv := vChkSum DbUnLock() EndIf EndIf ...

Rafael,

Prueba a usarlas, están ya definidas como MsgYesNo() y MsgNoYes().