FAQs - Suporte técnico

MP - ADVPL - ROTINA AUTOMÁTICA MATA150 EXCLUSÃO



Dúvida
ExecAuto Mata150 com Error.log - Exclusão

Ambiente
A partir da versão 12.1.17

Solução

Neste Caso é necessário Posicionar no registro conforme o índice utilizado.

Exemplo:

#Include 'Protheus.ch'
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

User Function RAUT150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM"
ConOut(Repl("-",80))
ConOut("Inicio: "+Time())
ConOut(PadC("Rotina Automática EXCLUSÃO",80))
ConOut(Repl("-",80))
aCabec:={}
aItens:={}
aLinha:={}
dbSelectArea("SC8")
dbSetOrder(1)
dbSeek(xFilial("SC8")+"000004" + "F00001" +"01" + "0001" + "01")
aadd(aCabec,{"C8_FORNECE" ,SC8->C8_FORNECE})
aadd(aCabec,{"C8_LOJA" ,SC8->C8_LOJA })
aadd(aLinha,{"C8_NUMPRO",SC8->C8_NUMPRO , Nil})
aadd(aLinha,{"C8_ITEM" ,SC8->C8_ITEM , Nil})

aadd(aItens,aLinha)
MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,5)
If !lMsErroAuto
ConOut("**** EXCLUIDO com sucesso! ****")
Else
MostraErro()
ConOut("Erro na EXCLUSÃO!")
EndIf
ConOut("Fim : "+Time())
RESET ENVIRONMENT
Return(.T.)

 

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 _