Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que permite realizar comparativo de modificação de insumos.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

RotinaNome Técnico
MNTA490Liberação O.S.

Rotina Relacionadas:

RotinaNome Técnico
MNTA265Alteração de O.S.

Chamados Relacionados

MNG-3504                                                               

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Array

Descrição:

Ponto de entrada que permite realizar comparativo de modificação de insumos.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Liberação de O.S.

Eventos:

Liberação de O.S. (MNTA490)

Programa Fonte:

MNTA490.prx

Função:

MNTA490INS()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Array

Array contendo os insumos da O.S. após o processo de alteração.

ParamIXB[2]

Array

Array contendo os insumos antes o processo de alteração. 

Estrutura dos Arrays (
ParamIXB
[1] e ParamIXB[2])
PosiçãoTipoDescrição
Array[x][1]CarácterCódigo da Tarefa
[
x][2]CarácterTipo do InsumoArray[x][
3]Carácter
Código do InsumoArray[x][4]CarácterDescrição do InsumoArray[x][5]CarácterUtiliza Calendário? (S/N)Array[x][6]NuméricoQuantidade de RecursoArray[x][7]NuméricoQuantidade InsumoArray[x][8]CarácterUnidade de Medida do InsumoArray[x][9]CarácterDestino de AplicaçãoArray[x][10]DataData Inicio AplicaçãoArray[x][11]CarácterHora Inicio AplicaçãoArray[x][12]CarácterAlmoxarifadoArray[x][13]CarácterNúmero da Solicitação de CompraArray[x][14]CarácterItem da Solicitação de CompraArray[x][15]NuméricoPosição 1° ContadorArray[x][16]NuméricoPosição 2° ContadorArray[x][17]CarácterNota FiscalArray[x][18]CarácterSérie Nota FiscalArray[x][19]CarácterCódigo FornecedorArray[x][20]CarácterLoja FornecedorArray[x][21]CarácterNúmero da Solicitação de ArmazémArray[x][22]CarácterItem da Solicitação de ArmazémArray[x][23]CarácterSequência TarefaArray[x][24]NuméricoPercentual ExecutadoArray[x][25]CarácterCódigo AENArray[x][26]CarácterAlias de OrigemArray[x][27]NuméricoRecno do RegistroArray[x][28]LógicoDefine se o Registro está ou não deletado
Rotina que realizou a chamada do P.E. (MNTA265 e MNTA490).

ParamIXB[4]

Array

Array contendo os campos que serão apresentados nos Arrays ParamIXB[1] e ParamIXB[2]. 

 


Bloco de código
languagesql
titleExemplo: PE MNTA4903
linenumberstrue
#Include 'Protheus.ch'


User Function MNTA4903()
 
    Local aGetIns   := ParamIXB[1]
    Local aGetInSal := ParamIXB[2]
    Local cOrigem   := ParamIXB[3]
    Local aHead     := ParamIXB[4]
    Local nX        := 0 
    Local nInsAnt   := 0 
    Local nInsAtu   := 0
 
    
    //Conta quantos insumos tinha antesapós daa alteração
    For nX := 1 To Len( aGetInSalaGetIns )
         
        If !Empty( aGetIns[nx, 1] ) .And. !aGetIns[nx, Len( aGetIns[nX] )]
            nInsAntnInsAtu++
        EndIf
     
    Next nX
     
    //Conta quantos insumos tinha apósantes ada alteração
    For nX := 1 To Len( aGetInsaGetInSal )
     
        If !Empty( aGetInSal[nx, 1] )
            nInsAtunInsAnt++
        EndIf
     
    Next nX
 
    
    MsgInfo( 'Quantidade de insumos antes da alteração ' + cValtoChar( nInsAnt ) + CHR( 10 ) +;
             'Quantidade de insumos depois da alteração ' + cValtoChar( nInsAtu ) )
 
Return