Linha Microsiga Protheus

Árvore de páginas

Cadastro de Entradas a Inspecionar via ExecAuto 

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAQIE - Inspeção de Entradas

Rotina:

Rotina

Nome Técnico

QIEA200

Cadastro de Entradas a Inspecionar

Cadastros Iniciais:

Cadastrar produto X fornecedor pela Inspeção de Entradas.

Cadastrar uma especificação de produto.

Chamados Relacionados

TUCUD6

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

QEK

Sistema(s) Operacional(is):

Todos Homologados pela TOTVS

Descrição

A rotina Cadastro de Entradas a Inspecionar (QIEA200) permite o cadastramento via ExecAuto.

Retorno:

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB1

 Vetor

 Array contendo os dados da entrada

 X

 PARAMIXB2

 Numérico

 Opção desejada: 3-Inclusão; 4-Alteração ; 5-Exclusão

X 

 

Exemplo:

#Include "Protheus.ch"
#Include "ApWizard.ch"
#include "TopConn.ch"
#include "RwMake.ch"
#include "TbIconn.ch"

User Function EXECAUTQEK()

Local aCab := {}
Local nOpc := 3

Private lMsErroAuto := .F.


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Abertura do ambiente
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC(OemToAnsi("Teste de Inclusao QIEA200"),80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " USER 'Administrador' PASSWORD '' MODULO "QIE" TABLES "QEK"

aCab := {;
{'QEK_FILIAL', xFilial("QEK"),Nil},;
{'QEK_TIPONF',"N",Nil},;
{'QEK_FORNEC',PADR("000001",tamsx3("QEK_FORNEC")[1]),Nil},;
{'QEK_LOJFOR',PADR("00",tamsx3("QEK_LOJFOR")[1]),Nil},;
{'QEK_PRODUT',PADR("PRODQUAQIE ",tamsx3("QEK_PRODUT")[1]),Nil},;
{'QEK_DTENTR',Date(),Nil},;
{'QEK_LOTE',PADR("LT01",tamsx3("QEK_LOTE")[1]),Nil},;
{'QEK_HRENTR',"14:37",Nil},;
{'QEK_TAMLOT',"15",Nil},;
{'QEK_TAMAMO',"15",Nil},;
{'QEK_TIPDOC',"NF",Nil},;
{'QEK_TAMAMO',"15",Nil},;
{'QEK_DTNFIS',Date(),Nil},;
{'QEK_VERIFI',1,Nil}}


MSExecAuto({|x,y| QIEA200(x,y)},aCab,nOpc)

If !lMsErroAuto
Conout('Inserido/Alterado/Excluido com sucesso')
Else
Conout('Erro na Inclusão/Alteração/Exclusão')
MostraErro()
Endif

RESET ENVIRONMENT

Return