01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA7651()
País:Brasil


02. DESCRIÇÃO

Descrição:

Realizado conversão das rotina MNTA765 - Multas para o modelo padrão de desenvolvimento MVC, por este motivo a chamada e utilização do ponto de entrada MNTA7651 deve ser alterada para o novo modelo. 

Localização:

SIGAMNT: Em Atualizações > Controle de Riscos > Multas > Multas
Programa Fonte:MNTA765.prx

Função:

MNTA7651

Retorno:

NomeTipoDescriçãoObrigatório

 xRet

Indefinido

Determina o retorno o parâmetro

Sim. 

03. DEMAIS INFORMAÇÕES

#Include 'Protheus.ch'
  
User Function MNTA7651()
  
    Local xRet := .T.
    Local oModel765
  
    If Type("PARAMIXB") == "A" 
  
        oModel765 := PARAMIXB[1] // Busca o modelo de dados, que conterá os dados do arquivo em tela.
 
        dbSelectArea("TSO")
        dbSetOrder(1)
        If dbSeek(xFilial("TRX")+oModel765:GetValue('MULTAS','TRX_MULTA')) // Posiciona na multa.
            RecLock("TSO",.f.)
            dbDelete() // Faz a exclusão do arquivo.
            TSO->(MsUnLock())
        EndIf
 
    EndIf
  
  
Return xRet


04. ASSUNTOS RELACIONADOS