FAQs - Suporte técnico

MP - ADVPL - Rotina automática mata410 com getsxenum

Ocorrência
Ao utilizar as funções GetSXENum(), ConfirmSX8() ou RollbackSX8() na rotina MATA410, o número registrado no campo C5_NUM não está retornando de um em um.

Ambiente
Protheus – ADVPL – A partir da versão 11.8

Causa
A rotina MATA410 já possuí o controle de numeração para o campo de numero do pedido (C5_NUM) pois o campo já possui a função GetSXENum() no inicializador padrão.

Solução
Remover o uso das funções GetSXENum(), ConfirmSX8() e RollbackSX8(), assim como o campo C5_NUM no vetor que será enviado para a rotina automática caso no inicializador padrão do mesmo já tenha a função GetSXENum().

Fonte

// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch"
#Include "TBICONN.ch"

// FUNÇÃO PRINCIPAL
User Function TMATA410()
Local nOpr := 3 // NÚMERO DA OPERAÇÃO (INCLUSÃO)
Local aHeader := {} // INFORMAÇÕES DO CABEÇALHO
Local aLine := {} // INFORMAÇÕES DA LINHA
Local aItems := {} // CONJUNTO DE LINHAS
Local aArea := {} // ARMAZENA ÁREA CORRENTE

Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

RPCSetEnv("99", "01", NIL, NIL, "FAT", NIL, {"SC5", "SC6"}) // ABERTURA DE AMBIENTE (REMOVER SE EXECUTADO VIA SMARTCLIENT)
aArea := GetArea() // CAPTURA DA ÁREA PARA FUTURA RESTAURAÇÃO

// cNum := GetSXENum("SC5", "C5_NUM") // REMOVER PARA GERAÇÃO DE NUMERAÇÃO AUTOMÁTICA PELA ROTINA

// DADOS DO CABEÇALHO
// AAdd(aHeader, {"C5_NUM", cNum, NIL}) // REMOVER PARA GERAÇÃO DE NUMERAÇÃO AUTOMÁTICA PELA ROTINA
AAdd(aHeader, {"C5_TIPO", "N", NIL})
AAdd(aHeader, {"C5_CLIENTE", "CLT006", NIL})
AAdd(aHeader, {"C5_LOJACLI", "10", NIL})
AAdd(aHeader, {"C5_LOJAENT", "10", NIL})
AAdd(aHeader, {"C5_CONDPAG", "001", NIL})
AAdd(aHeader, {"C5_TRANSP", "TRP001", NIL})
AAdd(aHeader, {"C5_TPFRETE", "R", NIL})

// DADOS DOS ITENS
AAdd(aLine, {"C6_PRODUTO", "PRDT0027", NIL})
AAdd(aLine, {"C6_QTDVEN", 1, NIL})
AAdd(aLine, {"C6_PRUNIT", 1116.13, NIL})
AAdd(aLine, {"C6_PRCVEN", 1116.13, NIL})
AAdd(aLine, {"C6_VALOR", 1116.13, NIL})
AAdd(aLine, {"C6_TES", "501", NIL})

AAdd(aItems, aLine)

MsExecAuto({|x, y, z| MATA410(x, y, z)}, aHeader, aItems, nOpr)

// VALIDAÇÃO DE ERRO
If (lMsErroAuto)
MostraErro()
// RollbackSX8() // REMOVER PARA GERAÇÃO DE NUMERAÇÃO AUTOMÁTICA PELA ROTINA

ConOut(Repl("-", 80))
ConOut(PadC("MATA410 automatic routine ended with error", 80))
ConOut(PadC("Ended at: " + Time(), 80))
ConOut(Repl("-", 80))
Else
// ConfirmSX8() // REMOVER PARA GERAÇÃO DE NUMERAÇÃO AUTOMÁTICA PELA ROTINA

ConOut(Repl("-", 80))
ConOut(PadC("MATA410 automatic routine successfully ended", 80))
ConOut(PadC("Ended at: " + Time(), 80))
ConOut(Repl("-", 80))
EndIf

RestArea(aArea) // RESTAURAÇÃO DA ÁREA ANTERIOR
RPCClearEnv() // FECHAMENTO DE AMBIENTE (REMOVER SE EXECUTADO VIA SMARTCLIENT)
Return (NIL)


Saiba mais
MATA410 - Geração automática de Pedido de Vendas ExecAuto

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 _