#Include "Protheus.ch"
#Include "TopConn.ch"

User Function MA900DEL ()

Local aArea		:= GetArea()
Local cTipMov	:= Iif (Left (SF3->F3_CFO, 1)>="5", "S", "E")

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Neste ponto é possível fazer qualquer tipo de verificação ou exclusão, ³
//³utilizando como base de pesquisa a Tabela SF3 - Livros Fiscais         ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

DbSelectArea ("SFT")

SFT->(DbSetOrder(3))

If (SFT->(DbSeek (xFilial ("SFT")+cTipMov+SF3->F3_CLIEFOR+SF3->F3_LOJA+SF3->F3_SERIE+SF3->F3_NFISCAL+SF3->F3_IDENTFT)))		

    While !SFT->(Eof ()) .And.;		
        xFilial ("SFT")+cTipMov+SF3->F3_CLIEFOR+SF3->F3_LOJA+SF3->F3_SERIE+SF3->F3_NFISCAL+SF3->F3_IDENTFT==;		
        xFilial ("SFT")+SFT->FT_TIPOMOV+SFT->FT_CLIEFOR+SFT->FT_LOJA+SFT->FT_SERIE+SFT->FT_NFISCAL+SFT->FT_IDENTF3		
        
        RecLock ("SFT", .F., .T.)		
        SFT->(DbDelete ())		
        MsUnlock ()				
        
        SFT->(DbSkip ())	
    EndDo	
EndIf

RestArea(aArea)
RecLock("SF3", .F., .T.)

SF3->( DbDelete () )

MsUnlock()

Return .T.

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>