Linha Microsiga Protheus

Árvore de páginas

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAQIP - Controle de Inspeção de Processos

Parâmetro(s):

Nome

Tipo

Descrição

Obrigatório

Referência

aCabec

Array of Record

Array contendo os campos do cabeçalho referente a tabela (QP3)

X


aItens

Array of Record

Array de array contendo os campos dos itens referentes a tabela (QPA)

X


nOpc

Numérico

Opção escolhida: 3) Inclusão 4) Alteração 5) Exclusão

X


Descrição:

Esta rotina possibilita a inserção e manutenção do Grupo de Produtos do modulo Inspeção de Processos.

Abrangência:

Protheus *todas as versões

Sintaxe:

QIPA040 – Grupo de Produtos ( < aCabec>,< aItens>, < nOpc> ) --> Nil

Retorno:

NIL (Nulo)

Exemplo: 
//--------------------------- INCLUSÃO --------------------------------------------------------------------------------------------//

#INCLUDE "TOTVS.CH"

User Function RQIPA040I()

    Local aCabec    := {}
    Local aItens    := {}
    Local aItensQPA := {}
    Local nOpc      := 3

    Private lMsErroAuto := .F.
        
    aAdd(aCabec,{"QP3_GRUPO" ,"G001"  ,Nil})
    aAdd(aCabec,{"QP3_DESCRI","GRUPO1",Nil})
    
    aAdd(aItens,{"QPA_GRUPO" ,"G001" ,Nil})
    aAdd(aItens,{"QPA_PRODUT","1112A",Nil})

    aAdd(aItensQPA,aItens)

    MSExecAuto( { |x,y,z| QIPA040(x,y,z) } , aCabec , aItensQPA , nOpc) 
    If lMsErroAuto                       
        MostraErro()
    Else
        Alert("Registro Incluído")
    EndIf

Return

//----------------------------------- ALTERAÇÃO -----------------------------------------------------------------------------------//

#INCLUDE "TOTVS.CH"

User Function RQIPA040A()

    Local aCabec    := {}
    Local aItens    := {}
    Local aItensQPA := {}
    Local nOpc      := 4

    Private lMsErroAuto := .F.
        
    aAdd(aCabec,{"QP3_GRUPO" ,"G001"  ,Nil})
    aAdd(aCabec,{"QP3_DESCRI","GRUPO TESTE",Nil})
    
    aAdd(aItens,{"QPA_GRUPO" ,"G001" ,Nil})
    aAdd(aItens,{"QPA_PRODUT","1112A",Nil})

    aAdd(aItensQPA,aItens)

    MSExecAuto( { |x,y,z| QIPA040(x,y,z) } , aCabec , aItensQPA , nOpc) 
    If lMsErroAuto                       
        MostraErro()
    Else
        Alert("Registro Alterado")
    EndIf

Return

//------------------------------------------------------------- EXCLUSÃO ----------------------------------------------------------//

#INCLUDE "TOTVS.CH"

User Function RQIPA040E()

    Local aCabec    := {}
    Local aItens    := {}
    Local aItensQPA := {}
    Local nOpc      := 5

    Private lMsErroAuto := .F.
        
    aAdd(aCabec,{"QP3_GRUPO" ,"G001"  ,Nil})
    
    aAdd(aItens,{"QPA_GRUPO" ,"G001" ,Nil})

    aAdd(aItensQPA,aItens)

    MSExecAuto( { |x,y,z| QIPA040(x,y,z) } , aCabec , aItensQPA , nOpc) 
    If lMsErroAuto                       
        MostraErro()
    Else
        Alert("Registro Excluído")
    EndIf

Return
//---------------------------------------------------------------------------------------------------------------------------------//