FiveTech Software tech support forums

Code: Select all

***************
STATIC FUNCTION CancAgenti( oRs, oBrw )
***************
LOCAL nId, nRecno, oErr 

    TRY

      IF msgNoYes("Cancella categoria?") // oRs:Fields( "cat_des" ):Value == nID .AND. 


        IF Cancellato( oRs, oRs:fields("id"):value, .T. )
          oBrw:refresh(.T.)
          BREAK
        ENDIF

        oRs:Delete() //  adAffectCurrent --> default
        oRs:Update()
        oRs:requery()
        oBrw:refresh()
      ENDIF
    CATCH oErr
      IF VALTYPE( oErr ) == "O"
        MsgStop( "Errore: "+oErr:operation+" - " + "Descrizione: "+oErr:Description )
      ENDIF
    END CATCH

RETURN NIL
*
** eof CancAgenti


********
FUNCTION Cancellato( oRs, id, lEcho )
********
LOCAL lCancellato := .F.
LOCAL nRecno

  DEFAULT lEcho := .F.

      nRecno := oRs:AbsolutePosition
      oRs:requery()
      oRs:move( nRecno-1 )
      IF oRs:AbsolutePosition != nRecno .OR. oRs:fields("id"):value != id
        IF lEcho
          msginfo("Record cancellato o non trovato in database" + CRLF + NTRIM( oRs:AbsolutePosition ) )
        ENDIF
        oRs:movefirst()
        lCancellato := .T.
      ENDIF

RETURN lCancellato
*
** eof Cancellato