FAQs - Suporte técnico

Cadastro de Entradas a Inspecionar via ExecAuto

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

 

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

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _