FiveTech Support Forums

oWTOT_HB:bLostFocus  := {|| Salta_Siguiente(oWTOT_HB,oWSAL_DB) }


FUNCTION Salta_Siguiente(oIni,oFin)
    oIni:oJump := oFin
    oFin:SetFocus()
RETURN .T.

 DEFINE DIALOG oDlg FROM 4, 4 TO 40, 60 TITLE "test"
   ....
   ..
  
   @ 1, 10 GET oNom_Clie VAR cNom_Clie PICTURE "@!" VALID !Empty(cNom_Clie) OF odlg SIZE 10, 10 FONT oFont
   @ 5, 10 GET oFan_Clie VAR cFan_Clie PICTURE "@!" VALID !Empty(cFan_Clie) OF odlg SIZE 10, 10 FONT oFont
  

  @ 10, 10 BUTTON "save" PIXEL OF oDlg SIZE 30, 10 ACTION (lSave := NotEmpty(oNom_Clie, oFan_Clie),  If(lSave, oDlg:End(), nil) )

Function NotEmpty(oNom_Clie, oFan_Clie)

 If Empty(cNom_Clie)
    MsgInfo("cNom_Clie empty")
    oNom_Clie:SetFocus()
    oNom_Clie:Refresh()
    Return .f.
 Endif

 If Empty(cFan_Clie)
    MsgInfo("cFan_Clie empty")
    oFan_Clie:SetFocus()
    oFan_Clie:Refresh()
    Return .f.
 Endif
Return .t.

//----------------------------//
Function CapturaDatos()
local oDlg, lOk := .F.

   DEFINE DIALOG oDlg RESOURCE "JKRGCM10_S2" TITLE "{ "+ PROCNAME()+" } "
   :
   REDEFINE BUTTON ID 10 MESSAGE "CANCEL"  ACTION (lOk:=.F.,oDlg:End())
   REDEFINE BUTTON ID 20 MESSAGE "OK"  ACTION (lOk:=.T.,oDlg:End())

   ACTIVATE DIALOG oDlg VALID (!lOk .Or. Validador(cGet1,cGet2,nGet3))

IF lOk
   //Procesar datos
endif

Return NIL

//----------------------------//
Function Validador(cGet1,cGet2,nGet3)
   If Emty(cGet1).OR.Emty(cGet2).OR.Emty(cGet3)
      MsgStop("Datos no validos")
      Return .F.
   endif
Rerturn .T.

// PRIMER GET
redefine GET aGet[1] VAR aVar[1] ID nId of oWd ;
VALID novacio()

// SIGUIENTES GETs
redefine GET aGet[2] VAR aVar[2] ID nId of oWd ;
VALID novacio() ;
WHEN !Empty( aVar[2] )

// y asi sucesivamente, asi obligas al usuario a llenar si porque si cada GET y en ORDEN si todos los campos son OBLIGATORIOS...aunque lo mejor es como dicen algunos colegas, hacer una sola VALIDACION cuando se vayan guardar datos...

//------------------------------------------------------------------------------
FUNCTION validador ( oDbf, aParam )
//  aParam { bloque de verificación, Campo de la tabla, mensaje }
//------------------------------------------------------------------------------
   LOCAL i

   FOR i := 1 TO LEN( aParam )
      IF VALTYPE( aParam[i,1] ) = "B"
         IF ! EVAL( aParam[i,1], oDbf )
            RETURN .F.
         ENDIF
      ELSE
        IF EVAL( aParam[i,2], oDbf:fieldGet( oDbf:FIELDPOS( aParam[i,1] ) ), oDbf:RECNO(), oDbf )
           MSGALERT( aParam[i,3] )
           RETURN .F.
        ENDIF
      ENDIF
   NEXT

   RETURN .T.

::aValids := {{ "almacen",     {|c| EMPTY(c) }, "Se debe definir un almacen"        },;
                 { "item",        {|c| EMPTY(c) }, "Se debe definir un código de item" },;
                 { IF( job $ "NEW,DUPLI", {| oDbf | valid_item( oDbf ) }, {|| .T. } )  },;
                 { "descripcion", {|c| EMPTY(c) }, "Se debe definir una descripción"   },;
                 { "aplicacion",  {|c| EMPTY(c) }, "Se debe definir la aplicación"     };
                 }

validador( ::oDbf, ::aValids )

REDEFINE GET oG_IVA[03] VAR nIVA_1   ID 103 OF oDlgIVA PICT "99,999,999.99" VALID V_IVA(1)

//------------------------------------------------------------------------------
STATIC FUNCTION V_IVA(nOp)  // Function para validar el get
 //Esta parte de aqui te permite regresar al get anterior en caso que tecleaste mal el dato\\
 IF !GetKeyState( VK_RETURN ) .and. !GetKeyState( VK_DOWN ) .and. !GetKeyState( VK_TAB )
     RETURN( .T. )
 ENDIF

 DO CASE
    CASE noP = 1 .AND. nIVA_1 <> 0 .AND. !nImpBs1 <> 0 .AND. !nTasa1 <> 0
          MsgAlert('Error: No puede capturar importe IVA,si base y tasa IVA,se encuentra vacío',"Confirma")

          RETURN .F.
    CASE noP = 2 .AND. nIVA_2 <> 0 .AND. !nImpBs2 <> 0 .AND. !nTasa2 <> 0
          MsgAlert('Error: No puede capturar importe IVA,si base y tasa IVA,se encuentra vacío',"Confirma")

          RETURN .F.
 ENDCASE
RETURN (.T.)


//------------------------------------------------------------------------------
STATIC FUNCTION Reg_Cap()
 Local nNumMov,cCtaSN

 oG_D[06]:SetColor()
 oG_D[06]:Refresh()
 oG_D[07]:SetColor()
 oG_D[07]:Refresh()

 cCtaSN := SUBS(cCta,1,4) + SUBS(cCta,6,4) + SUBS(cCta,11,4) + SUBS(cCta,16,4)
 cCta2  := FORMATO1("cCta",cCta, .F.) // No Permite separar guiones


//Aqui antes de registrar el dato al dbf...te valida cada campo si esta vacio o no...\\
// Aqui te valida cada get despues del boton de agregar nuevo registro...yo creo que es lo mas fiable y seguro...
 DO CASE
    CASE !(S09)->( DbSeek(STR(nSegNg,4)) ) .AND. lAP_SN
           MsgInfo("Error: No existe Segmento de Negocio","Confirme")

           oG_D[02]:SetFocus()
           oG_D[02]:Refresh()

           RETURN.F.
    CASE EMPTY(cCta)
          MsgInfo("Error: Favor de teclear subcuenta")

          oG_D[01]:SetFocus()
          oG_D[01]:Refresh()

          RETURN .F.
    CASE (S08)->( DbSeek(cCta2) )
          IF (S08)->TIPONAT = "A"
              MsgInfo("Error: La cuenta debe ser de detalle!","Confirme")

              cCta := SPACE(19)

              oG_D[01]:SetFocus()
              oG_D[01]:Refresh()

              RETURN .F.
          ENDIF
    CASE !(S08)->( DbSeek(cCta2) )
           MsgInfo("Error: La cuenta no existe!","Confirme")

           cCta := SPACE(19)

           oG_D[01]:SetFocus()
           oG_D[01]:Refresh()

           RETURN .F.
 ENDCASE

 // Aqui se añade nuevo registro en caso que todos los gets hayan cumplido la validacion ...\\

 //* Paso 1 ----- Agrega datos a S12:= Abre_Dbf(12,12) // Abre: POLZxMxA.DBF -----*\\
 IF lAdd // Agrega nuevo registro
     (S12)->( DbSeek(cID_AMMov+cTipo+STR(nNumPol,5)) )

     IF (S12)->(!FOUND())  // Si agrega nuevo resistro en la base de datos
         (S12)->(DbAppend())

         (S12)->FECALTA := DATE()
         (S12)->REGHORA := AMPM(TIME())
         (S12)->NICKUSUA:= cNombUsua
         (S12)->NOMBUSUA:= cNombre
     ENDIF

     *?"Regisro nuevo dado de alta"
     IF nCarg <> 0
         aSum[1, 2] += nCarg
         aSum[1, 3] += nAbon
         aSum[1, 4] += nImpBs1
     ENDIF

     ...Mas intrucciones
Return nil..