Perguntas MSExecAuto MATA120

Pessoal, bom dia!

Alguém tem o MSExecAuto Mata120 funcionando ai? Ele gera pedido de compra.

O que tem como exemplo no TDN não funciona....

Help...


Atenciosamente,
Henry

Alguém?

Luiz, bom dia!

Obrigado pela ajuda! Me de uma diga, sempre acontece erro no C7_PRODUTO, pequei o código pelo POSICIONE e também coloquei o código na mau, mas mesmo assim acontece.

Meu produto não está bloqueado. Não sei mais o que olhar.


Atenciosamente,
Henry

O Erro é esse!

HELP: A125CONTR
Código do produto inválido.
Tecla <F3> disponível.
Tabela SC7 28/04/15 09:53:10
Numero PC - C7_NUM := 031185
DT Emissao - C7_EMISSAO := 28/04/15
Fornecedor - C7_FORNECE := F03274
Loja - C7_LOJA := 01
Contato - C7_CONTATO := HENRY
Cond. Pagto - C7_COND := 007
Filial Entr. - C7_FILENT := 01
Moeda - C7_MOEDA := 1
Taxa Moeda - C7_TXMOEDA := 1
Vlr.Frete - C7_FRETE := F
Vlr.Despesas - C7_DESPESA := 0
Vlr.Seguro - C7_SEGURO := 0
Desconto 1 - C7_DESC1 := 0
Desconto 2 - C7_DESC2 := 0
Desconto 3 - C7_DESC3 := 0
Mensagem - C7_MSG :=
Reajuste - C7_REAJUST :=

---

Tabela SC7 28/04/15 09:53:10
Erro no Item 1

---

Item - C7_ITEM := 0001
Quantidade - C7_QUANT := 1
Qtde da SC - C7_QTDSOL := 1
Produto - C7_PRODUTO := 0726 < -- Invalido
Unidade - C7_UM := UN
Qtd. 2a UM - C7_QTSEGUM := 1
Prc Unitario - C7_PRECO := 1
Vlr.Total - C7_TOTAL := 1
Numero da SC - C7_NUMSC :=
Item da SC - C7_ITEMSC :=
Aliq. IPI - C7_IPI := 0
Reajuste - C7_REAJUST := 0
Vlr.Frete - C7_FRETE := 0
Dt. Entrega - C7_DATPRF := 28/04/15
Armazem - C7_LOCAL := 000
Mensagem - C7_MSG :=
Tipo Frete - C7_TPFRETE := F
Observacoes - C7_OBS := TESTE
Cta Contabil - C7_CONTA := 5010107022
C Custo - C7_CC := 430
Descricao - C7_DESCRI := SERVICOS
Grupo Aprov. - C7_APROV := 000032
Tipo Despesa - C7_ZTIPDEP := 013
Seq MRP - C7_SEQMRP :=

---

Minha função é essa;

#Include 'Protheus.ch'

User Function CriaPedido()

local aCab :={}
local aItem :={}
local aItPC :={}

Private lMsErroAuto := .F.

Begin Transaction
cNumPc :=GetSXENum("SC7","C7_NUM")

aCab:={{"C7_NUM",cNumPc,NIL},; // Numero do Pedido
{"C7_EMISSAO",dDataBase,NIL},; // Data de Emissao
{"C7_FORNECE","F03274",NIL},; // Fornecedor
{"C7_LOJA","01",NIL},; // Loja do Fornecedor
{"C7_CONTATO","HENRY"},; // Contato
{"C7_COND","007",NIL},; // Condicao de Pagamento
{"C7_FILENT","01",NIL},; // Filial de Entrega
{"C7_MOEDA",1,NIL},; // Moeda do sistema - Acrescentado Tatiane Marques
{"C7_TXMOEDA",1,NIL},; // Taxa da moeda - Acrescentado Tatiane Marques
{"C7_FRETE","F",NIL},;
{"C7_DESPESA",CriaVar("C7_DESPESA",.F.),NIL},;
{"C7_SEGURO",CriaVar("C7_SEGURO",.F.),NIL},;
{"C7_DESC1",CriaVar("C7_DESC1",.F.),NIL},;
{"C7_DESC2",CriaVar("C7_DESC2",.F.),NIL},;
{"C7_DESC3",CriaVar("C7_DESC3",.F.),NIL},;
{"C7_MSG",CriaVar("C7_MSG",.F.),NIL},;
{"C7_REAJUST",CriaVar("C7_REAJUST",.F.),NIL}}

aItem:={{"C7_ITEM","0001",NIL},;
{"C7_QUANT",1,NIL},;
{"C7_QTDSOL",1,NIL},;
{"C7_PRODUTO",POSICIONE("SB1", 1, xFilial("SB1") + "0726", "B1_COD"),NIL},;
{"C7_UM","UN",NIL},;
{"C7_QTSEGUM",1,NIL},;
{"C7_PRECO",1,NIL},;
{"C7_TOTAL",1,NIL},;
{"C7_NUMSC","",NIL},;
{"C7_ITEMSC","",NIL},;
{"C7_IPI",0,NIL},;
{"C7_REAJUST",0,NIL},;
{"C7_FRETE",0,NIL},;
{"C7_DATPRF",dDataBase,NIL},;
{"C7_LOCAL","000",NIL},;
{"C7_MSG","",NIL},;
{"C7_TPFRETE","F",NIL},;
{"C7_OBS","TESTE",NIL},;
{"C7_CONTA","5010107022",NIL},;
{"C7_CC","430",NIL},;
{"C7_DESCRI","SERVICOS",NIL},;
{"C7_APROV" ,"000032" , NIL},;
{"C7_ZTIPDEP" ,"013", NIL},;
{"C7_SEQMRP","",Nil}}
//{"C7_TPOP",If(aPergs711[10] == 1,"F","P"),NIL}}

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³P.E. utilizado para manipular o Array aItem,³
//³antes da geracao da Autorizacao de Entrega. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
//If lM711SC7
// aRetPE :=ExecBlock("M711SC7",.f.,.f.,ACLONE(aItem))
// If Valtype(aRetPE) == "A"
// aItem:=ACLONE(aRetPE)
// EndIf
//EndIf

MSExecAuto({|v,x,y,z,w| MATA120(v,x,y,z,w)},2,aCab,{aItem},3,.F.)
// Mostra Erro na geracao de Rotinas automaticas
If lMsErroAuto
Alert("Falha ao realizar a inclusao do frete, entre em contato com o suporte.")
MOSTRAERRO()
DisarmTransaction()
EndIf

End Transaction

Return