Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal


02. DESCRIÇÃO

Este ponto de entrada permite a criação de um critério ou uma verificação diferenciada, na exclusão de notas fiscais pela rotina de acertos fiscais.


03. Especificação

Parâmetros do ponto de entrada:

NomeTipoDescrição

Array of Record

Retorno:

NomeTipoDescrição

Array of Record


04. EXEMPLO DE UTILIZAÇÃO


MA900DEL
#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.



05. DEMAIS INFORMAÇÕES

Não há