Ponto de entrada não grava a segunda parte do código

Bom dia!

O seguinte código a parte da tabela SZL e a parte referente a SA1, ele preenche o conteúdo dos campos, mas não grava na tabela alguém saberia me informar o detalhe do por que isso estar ocorrendo.

    If uLret .and. Altera

        If (M->A1_ULIMCRE = 'M') .and. ;
        ( (M->A1_LC <> SA1->A1_LC) .or. (M->A1_RISCO <> SA1->A1_RISCO) )

            // Tela de informações.
            While lContinua        
                _cSolic := Tela_Info()
                IF !Empty(AllTrim(_cSolic))
                    lContinua := .F.
                Endif
            Enddo     

            dbSelectArea("SZL")
            Reclock("SZL",.T.)              
            SZL->ZL_FILIAL  := xFilial("SZL")
            SZL->ZL_CLIENTE := SA1->A1_COD
            SZL->ZL_LOJA    := SA1->A1_LOJA
            SZL->ZL_NOME    := SA1->A1_NOME
            SZL->ZL_DATA    := dDataBase
            SZL->ZL_HORA    := Time()
            SZL->ZL_CDSOLIC := _cSolic
            SZL->ZL_NMSOLIC := _cNome
            SZL->ZL_CREDSOL := _nCrdSolic
            SZL->ZL_CREDANT := SA1->A1_LC
            SZL->ZL_CREDATU := M->A1_LC
            SZL->ZL_RISCANT := SA1->A1_RISCO
            SZL->ZL_RISCATU := M->A1_RISCO
            SZL->ZL_HISTOR  := _cHist
            SZL->ZL_USURESP := cUserName            
            Msunlock()

            dbSelectArea("SA1")
            Reclock("SA1",.F.)                 
            SA1->A1_XSOLCRD := ""
            SA1->A1_XNOMSOL := ""
            SA1->A1_XVALSOL := 0
            SA1->A1_XHISSOL := "TESTEEEEE"
            SA1->A1_XNMREMP := _cSolic    
            Msunlock()

        Endif

    Endif

Return uLret