PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  Faturamento
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Erro no MSExecAuto MATA410
Versão:
12.1.27
Plataforma:
Linux
Complemento:
DB:
.
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RTHEODORO RTHEODORO em 13/07/2021, 16:29 h
Local: SP  Registro: 13/07/2021  Postagens: 3
Um dos meus scripts de automação de inserção de pedidos de venda começou a dar o seguinte erro:


===== ERRO =====

ERROR: invalid macro source (SSYacc0105e: Error token failed, no valid token):(M->          )
           ENCHAUTO - MSAUTOPR.PRW(308) - Params: CALIAS:SC5,@AFIELD:,UTUDOOK:{ || OBRIGATORIO(AGETS,ATELA)},NOPC:3,ACPOS: )
A410INCLUI - MATA410.PRX(1234) - Params: CALIAS:SC5,NREG:1,NOPC:3,LORCAMENTO:.F.,NSTACK:0,AREGSCK:,LCONTRAT:.F.,NTPCONTR:0,CCODCLI:,CLOJA:,CMEDPMS:NIL )
MBROWSEAUTO - MSAUTOPR.PRW(86) - Params: NOPCAUTO:3,@AAUTO:,CALIAS:SC5,LSEEK:.T.,LPOS:.F. )
MATA410 - MATA410.PRX(134) - Params: @XAUTOCAB:,@XAUTOITENS:,NOPCAUTO:3,LSIMULACAO:.F.,CROTINA:NIL,CCODCLI:NIL,CLOJA:NIL,XRATCTBPC:NIL,XADTPC:NIL,XPARAMAUTO:NIL,LSIGADPR:.F.,CFILDEF:,AADDFIL:,CVDEFAULT:,XAPOSESP:NIL )
{|X,Y,Z,A| MATA410(X,Y,Z,A)} - IMPORTAPEDIDOTXT.PRW(267) - Params: @X:,@Y:,Z:3,A:.F. )
MSEXECAUTO - MATXFUNB.PRX(3003) - Params: BROTINA:{|X,Y,Z,A| MATA410(X,Y,Z,A)},@UPAR1:,@UPAR2:,UPAR3:3,UPAR4:.F.,UPAR5:NIL,UPAR6:NIL,UPAR7:NIL,UPAR8:NIL,UPAR9:NIL,UPAR10:NIL,UPAR11:NIL,UPAR12:NIL,UPAR13:NIL,UPAR14:NIL,UPAR15:NIL )
_FGRAPED - IMPORTAPEDIDOTXT.PRW(267)
U_IMPPED - IMPORTAPEDIDOTXT.PRW(236)
SIGAIXB - APLIB190.PRW(231) - Params: CBLOCK:IMPPED )
__EXECUTE - APLIB090.PRW(654) - Params: CFUNCTION:IMPPED,CACCESS:xxxxxxxxxx,CDESCRI:Importar Pedido,CMODEXEC:06,CPAI:Importar Pedido,NTYPE:3,LONLOAD:.F.,NOLDMOD:NIL )
MDIEXECUTE - APLIB260.PRW(896) - Params: LEXECUTE:.T.,CMDIARQTAB: ....


====== SCRIPT TESTE ======

#INCLUDE "TOTVS.CH"
#INCLUDE "topconn.ch"
#include "protheus.ch"
#INCLUDE "rwmake.ch"
#include "apwebsrv.ch"
#include "apwebex.ch"
#include "ap5mail.ch"
#include "TbiConn.ch"
#include "TbiCode.ch"
#INCLUDE "XMLXFUN.CH"

/*/{Protheus.doc} TesteImpPedido
    (long_description)
    @type Function
    @author Ricardo Theodoro
    @since 12/07/2021
    @version 1.0
    @param param_name, param_type, param_descr
    @return return_var, return_type, return_description
    @example
    (examples)
    @see (links_or_references)
/*/
User Function TesteImpPedido()
                        
    //Cabeçalho
    _aPedido := {{"C5_FILIAL", ‘01‘, Nil},;
    {"C5_TIPO", "N", Nil},;
    {"C5_CLIENTE", "000966", Nil},;
    {"C5_LOJACLI", "01", Nil},;
    {"C5_CLIENT", "000966", Nil},;
    {"C5_LOJAENT", "01", Nil},;
    {"C5_TIPOCLI", "F", Nil},;
    {"C5_CONDPAG", "001", Nil},;
    {"C5_TRANSP", "000001", Nil},;
    {"C5_TPFRETE", "C", Nil},;
    {"C5_XIDPED", "1000123456", Nil},;
    {"C5_XIDTPPD", "1", Nil}}

    //Item
    _aItem := {{"C6_FILIAL", "01", Nil},;
    {"C6_ITEM", "01", Nil},;
    {"C6_PRODUTO", "1510", Nil},;
    {"C6_QTDVEN", 100.00, Nil},;
    {"C6_PRCVEN", 100.00, Nil},;
    {"C6_PRUNIT", 2, Nil},;
    {"C6_VALOR", 100.00, Nil},;
    {"C6_TES", "501", Nil}}

    MSExecAuto({|x,y,z| Mata410(x,y,z)}, _aPedido, _aItem, 3)

Return

Já tentei encontrar informações sobre esse erro mas me parece ser um erro bem genérico.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário EMERSON.EN EMERSON.EN em 14/07/2021, 14:48 h
Local: SP  Registro: 20/08/2010  Postagens: 604
o array de itens está errado.


====== SCRIPT TESTE ======

#INCLUDE "TOTVS.CH"
#INCLUDE "topconn.ch"
#include "protheus.ch"
#INCLUDE "rwmake.ch"
#include "apwebsrv.ch"
#include "apwebex.ch"
#include "ap5mail.ch"
#include "TbiConn.ch"
#include "TbiCode.ch"
#INCLUDE "XMLXFUN.CH"

/*/{Protheus.doc} TesteImpPedido
    (long_description)
    @type Function
    @author Ricardo Theodoro
    @since 12/07/2021
    @version 1.0
    @param param_name, param_type, param_descr
    @return return_var, return_type, return_description
    @example
    (examples)
    @see (links_or_references)
/*/
User Function TesteImpPedido()
Local _aItens := {} // relação de itens
                        
    //Cabeçalho
    _aPedido := {;
        {"C5_TIPO", "N", Nil},;
        {"C5_CLIENTE", "000966", Nil},;
        {"C5_LOJACLI", "01", Nil},;
        {"C5_CLIENT", "000966", Nil},;
        {"C5_LOJAENT", "01", Nil},;
        {"C5_TIPOCLI", "F", Nil},;
        {"C5_CONDPAG", "001", Nil},;
        {"C5_TRANSP", "000001", Nil},;
        {"C5_TPFRETE", "C", Nil},;
        {"C5_XIDPED", "1000123456", Nil},;
        {"C5_XIDTPPD", "1", Nil}}

    //Item
    _aItem := {;
        {"C6_ITEM", "01", Nil},;
        {"C6_PRODUTO", "1510", Nil},;
        {"C6_QTDVEN", 100.00, Nil},;
        {"C6_PRCVEN", 100.00, Nil},;
        {"C6_PRUNIT", 2, Nil},;
        {"C6_VALOR", 100.00, Nil},;
        {"C6_TES", "501", Nil}} // um único item

    aAdd(_aItens, _aItem) // relação de itens

    MSExecAuto({|x,y,z| Mata410(x,y,z)}, _aPedido, _aItens, 3)

Return

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RTHEODORO RTHEODORO em 14/07/2021, 16:10 h
Local: SP  Registro: 13/07/2021  Postagens: 3
Tentei executar dessa forma que você mandou e o erro continua.

=======

ERROR: invalid macro source (SSYacc0105e: Error token failed, no valid token):(M->          )
           ENCHAUTO - MSAUTOPR.PRW(308) - Params: CALIAS:SC5,@AFIELD:,UTUDOOK:{ || OBRIGATORIO(AGETS,ATELA)},NOPC:3,ACPOS: )
A410INCLUI - MATA410.PRX(1234) - Params: CALIAS:SC5,NREG:1,NOPC:3,LORCAMENTO:.F.,NSTACK:0,AREGSCK:,LCONTRAT:.F.,NTPCONTR:0,CCODCLI:,CLOJA:,CMEDPMS:NIL )
MBROWSEAUTO - MSAUTOPR.PRW(86) - Params: NOPCAUTO:3,@AAUTO:,CALIAS:SC5,LSEEK:.T.,LPOS:.F. )
MATA410 - MATA410.PRX(134) - Params: @XAUTOCAB:,@XAUTOITENS:,NOPCAUTO:3,LSIMULACAO:.F.,CROTINA:NIL,CCODCLI:NIL,CLOJA:NIL,XRATCTBPC:NIL,XADTPC:NIL,XPARAMAUTO:NIL,LSIGADPR:.F.,CFILDEF:,AADDFIL:,CVDEFAULT:,XAPOSESP:NIL )
{|X,Y,Z| MATA410(X,Y,Z)} - TESTEIMPPEDIDO.PRW(53) - Params: @X:,@Y:,Z:3 )
MSEXECAUTO - MATXFUNB.PRX(3003) - Params: BROTINA:{|X,Y,Z| MATA410(X,Y,Z)},@UPAR1:,@UPAR2:,UPAR3:3,UPAR4:NIL,UPAR5:NIL,UPAR6:NIL,UPAR7:NIL,UPAR8:NIL,UPAR9:NIL,UPAR10:NIL,UPAR11:NIL,UPAR12:NIL,UPAR13:NIL,UPAR14:NIL,UPAR15:NIL )
U_TESTEIMPPEDIDO - TESTEIMPPEDIDO.PRW(53)
SIGAIXB - APLIB190.PRW(231) - Params: CBLOCK:TESTEIMPPEDIDO )
__EXECUTE - APLIB090.PRW(654) - Params: CFUNCTION:TESTEIMPPEDIDO,CACCESS:xxxxxxxxxx,CDESCRI:Imp Pedido Teste,CMODEXEC:06,CPAI:Imp Pedido Teste,NTYPE:3,LONLOAD:.F.,NOLDMOD:NIL )
MDIEXECUTE - APLIB260.PRW(896) - Params: LEXECUTE:.T.,CMDIARQTAB

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ELTON020 ELTON020 em 15/07/2021, 09:12 h
Local: SP  Registro: 31/03/2020  Postagens: 26
Vai no configurador e veja se em algum desses campos, tem alguma configuração de variável de memória.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RTHEODORO RTHEODORO em 16/07/2021, 14:17 h
Local: SP  Registro: 13/07/2021  Postagens: 3
Conferi todos os campos e as configurações de variável de memória estão todas corretas.

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal