FAQs - Suporte técnico

MP - ADVPL - EICPO400 Pedido de Importação exemplo de rotina automática

Dúvida

Exemplo de ExecAuto na rotina Purchase Order - PO ExecAuto. Funcionalidade disponível a partir do Microsiga Protheus 11.

Ambiente
Protheus – SIGAEIC – A partir da versão 11.80

Solução

Exemplo de ExecAuto

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"


User Function EXECAUTOEICPO400X2()


//ExecAuto na rotina de Purchase Order
//*-------------------------*/
//User Function POExecAuto()
//*-------------------------*/

Local aCab := {}
Local aItem := {}
local cItem
Private lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" MODULO "EIC"

ConOut(Repl("-",80))
ConOut(" TESTE DA ROTINA AUTOMATICA EICPO400 - Pedido de Importacao P11")
ConOut(Repl("-",80))

ConOut(Repl("*",80))
ConOut("Inicio da Inclusao: "+Time())
ConOut(Repl("*",80))

SW2->(DbSelectArea("SW2"))//posicionamento da tabela
SW2->(DbSetOrder(1))//setando a ordem
SW2->(MsSeek(xFIlial("SW2")+"W2_PO_NUM",.T.))//posicionando onde ele vai iniciar
SW2->(DbSkip(-1))//pegando o ultimo item da tabela

cItem :=SW2->W2_PO_NUM

cItem :=soma1(cItem)

AADD(aCab,{"W2_PO_NUM" ,cItem ,NIL})
AADD(aCab,{"W2_PO_DT" ,dDatabase ,NIL})
AADD(aCab,{"W2_FORN" ,"0001 " ,NIL})
AADD(aCab,{"W2_FORLOJ" ,"01" ,NIL})
//AADD(aCab,{"W2_CLIENTE" ,"01 " ,NIL})
AADD(aCab,{"W2_COMPRA" ,"01 " ,NIL})
AADD(aCab,{"W2_IMPORT" ,"01" ,NIL})
AADD(aCab,{"W2_AGENTE" ,"001" ,NIL})
AADD(aCab,{"W2_TIPO_EM" ,"00" ,NIL})
AADD(aCab,{"W2_ORIGEM" ,"EX " ,NIL})
AADD(aCab,{"W2_DEST" ,"BLM" ,NIL})
AADD(aCab,{"W2_INCOTER" ,"FOB" ,NIL})
AADD(aCab,{"W2_FREPPCC" ,"PP" ,NIL})
AADD(aCab,{"W2_COND_PA" ,"001 " ,NIL})
AADD(aCab,{"W2_MOEDA" ,"US$" ,NIL})
AADD(aCab,{"W2_DT_PAR" ,dDatabase ,NIL})
AADD(aCab,{"W2_PARID_U" ,1,000000 ,NIL})
AADD(aCab,{"W2_E_LC" ,"2" ,NIL})


aAdd(aItem,{ {"W3_COD_I" , "001 ",NIL},;
{"W3_CC" , "001 " ,NIL},;
{"W3_REG" , 1 ,NIL},;
{"W3_PRECO" , 2.00000 ,NIL},;
{"W3_FABR" , "0001 " ,NIL},;
{"W3_FORN" , "0001 " ,NIL},;
{"W3_QTDE" , 100.000 ,NIL},;
{"W3_DT_EMB" , dDatabase ,NIL},;
{"W3_DT_ENTR" , dDatabase+2 ,NIL},;
{"W3_SALDO_Q" , 0.000 ,NIL} })


/* aAdd(aItem,{ {"W3_COD_I" , "PRODUTO 02 ",NIL},;
{"W3_CC" , "01 " ,NIL},;
{"W3_REG" , 1 ,NIL},;
{"W3_PRECO" , 2,00000 ,NIL},;
{"W3_FABR" , "01 " ,NIL},;
{"W3_FORN" , "01 " ,NIL},;
{"W3_QTDE" , 300,00000 ,NIL},;
{"W3_DT_EMB" , dDatabase ,NIL},;
{"W3_DT_ENTR" , dDatabase+2 ,NIL},;
{"W3_SALDO_Q" , 300,00000 ,NIL} })

*/ ConOut("Começo da execauto")
MSExecAuto({|a,b,c,d| EICPO400(a,b,c,d)},NIL,aCab,aItem,3)

If lMsErroAuto
Alert("Erro na inclusao ")
MOSTRAERRO()
Else
Alert(" Incluido com sucesso!")
Endif
RESET ENVIRONMENT

ConOut("Fim da execauto!: "+Time())

Return

Saiba Mais

EICPO400 - Rotina Automática do Purchase Order

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 _