Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

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


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Abastecimento em Lote (MNTA656) utilizado para realizar validações ao confirmar o registro

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Manual

MNTA656.prx

Função:

MNTA6565

Parâmetros:

NomeTipoDescrição
ParamIXB[1]Numérico

Tipo de validação:

1 - Linha;

2 - Todo o Follow-Up (aCols).

ParamIXB[2]CaracterPosto
ParamIXB[3]CaracterLoja
ParamIXB[4]CaracterTanque
ParamIXB[5]CaracterCombustível
ParamIXB[6]ArrayaCols
ParamIXB[7]NuméricoLinha atual

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoConfirma o abastecimento caso verdadeiro (.T.), caso contrário a operação é interrompidaX

03. DEMAIS INFORMAÇÕES

Exemplo MNTA6565()
#Include 'Protheus.ch'
 
User Function MNTA6565()
 
    Local lRet := .T.
 
    /* ParamIXB [1] - Tipo de Validacao: 1 -> Linha; 2 -> Todo o Follow-Up (aCols)   
                [2] - Posto
                [3] - Loja 
                [4] - Tanque   
                [5] - Combustivel  
                [6] - aCols
                [7] - Linha atual */
                 
    If ParamIXB[1] == 1
        If !MsgYesNo("Confirmar este abastecimento ?","P.E. MNTA6565")     
            lRet := .F.
        EndIf
    Else   
        If !MsgYesNo("Confirmar o abastecimento do Follow-Up "+cValToChar(ParamIXB[7])+" ?","P.E. MNTA6565")       
            lRet := .F.
        EndIf
    EndIf
     
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.