#Include "protheus.ch"
#Include "parmtype.ch"

User Function ITEM()
    Local aParam       := PARAMIXB
    Local xRet         := .T.
    Local cIdPonto     := ""
    Local oModel
    Local oObj         := Nil
    Local cCustomAntigo
    Local nQtdVld      := 1
    oModel             := FWModelActive()


        If aParam <> NIL .and. ALTERA
            oObj     := aParam[1]
            cIdPonto := aParam[2]
            cCustomAntigo:= M-> B1_CUSTOM       //talvez seja depois do formpos  
            If cIdPonto == "FORMPOS"

//---------------------------------------------------------------------                     
//                if Empty(M->B1_MEMOCUS) .OR. (M->B1_MEMOCUS = NIL)---
//                xRet := .F.                                        --
//            endif                                                  --
//---------------------------------------------------------------------
           
                IF M->B1_VALID = 1
                    CONOUT(M->B1_VALID)
                    //ALERT("VALID NÃO SOFREU ALTERAÇÕES") 
                    Help( ,, 'HELP',, 'VALID NÃO SOFREU ALTERAÇÕES', 1, 0,,,,,,{"contador ruim"})
                    IF Empty(M->B1_MEMOCUS) .OR.  (M->B1_MEMOCUS = NIL)
				        //ALERT("MEMO AINDA ESTA NULO")
                        Help( ,, 'HELP',, 'MEMO AINDA ESTA NULO', 1, 0,,,,,,{"atualize o camo"})
                        xRet := .F.
				    ELSE
                        IF M->B1_MEMOCUS == cCustomAntigo
				            //ALERT("NÃO FOI COMPLETADO O CAMPO 1")
                            Help( ,, 'HELP',, 'NÃO FOI COMPLETADO O CAMPO 1', 1, 0,,,,,,{"campo ta igual 1 "})
                            xRet := .F.
					    ELSE
                            CONOUT(M->B1_MEMOCUS)
                            CONOUT(nQtdVld)
                            //ALERT("ALTEROU O CAMPO, VOU SALVAR 1")
                            Help( ,, 'HELP',, 'alterou o campo vou salvar 1 ', 1, 0,,,,,,{"salvou 1 "})
                            nQtdVld := oObj:GetValue('B1_VALID')
                            nQtdVld++
                            oObj:FwFldGet('B1_VALID', nQtdVld)             
                            CONOUT(M->B1_VALID)
					        xRet := .T.
                        ENDIF
                    ENDIF
                ELSE
                    IF M->B1_MEMOCUS == cCustomAntigo
				        //ALERT("NÃO FOI COMPLETADO O CAMPO 2")
                        Help( ,, 'HELP',, 'NÃO FOI COMPLETADO O CAMPO 2', 1, 0,,,,,,{"campo ta igual 2 "})  
                        xRet := .F.
                    ELSE
                        //ALERT("ALTEROU O CAMPO, VOU SALVAR 2")
                        Help( ,, 'HELP',, 'alterou o campo vou salvar 2 ', 1, 0,,,,,,{"salvou 2 "})
                        nQtdVld := oObj:GetValue('B1_VALID')
                        nQtdVld++
                        oObj:FwFldPut('B1_VALID', nQtdVld)
                        //oObj:FwFldGet("B1_VALID")
                        CONOUT(M->B1_VALID)
                        xRet := .T.
                    ENDIF
                ENDIF       
            ENDIF
        ENDIF
    Return xRet
//----------------------------------------------------------------------------------------