|
Bem Vindo, Visitante
|
Todos os Fórums
Faturamento
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
P.E. Prep Doc Saida |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
ANDRE.LOOS
em 07/07/2021, 09:08 h
Local: SC Registro: 28/05/2021 Postagens: 20 |
Bom dia,
preciso validar algumas informações antes da geração do documento de saída, porém não encontro nenhum P.E. que é executado durante a rotina Prep. Doc. Saída, dentro da MATA410.
Alguém conhece um ponto de entrada posso utilizar? Precisa ser antes da gravação dos dados, com possibilidade de abortar a operação. |
|
|
Mensagem do
ELTON020
em 07/07/2021, 11:04 h
Local: SP Registro: 31/03/2020 Postagens: 30 |
Boa tarde,
Para validar os pedidos Marcados para gerar o Doc de Saida eu uso o M460MARK . |
|
|
Mensagem do
LUCASBAIA
em 07/07/2021, 12:25 h
Local: ES Registro: 08/05/2021 Postagens: 7 |
Boa tarde,
pela MATA410 existe o PE M410PVNF que faz a validação ao clicar em Prep. Doc. Saida, você poderá impedir ou não que prossegue.
Segue o exemplo do PE desenvolvido, onde eu especifiquei os usuários autorizados para Faturar.
#Include ‘Protheus.ch‘
//---------------------------------------------------------------------------------
// Rotina | M410PVNF | Autor | Lucas Baia | Data | 15/02/2021
//---------------------------------------------------------------------------------
// Descr. | Ponto de Entrada executado ao clicar em Prep. Doc. Saída na Rotina de
// | Pedidos de Venda.
//---------------------------------------------------------------------------------
// Uso | Protheus 12.1.27
//---------------------------------------------------------------------------------
// Links | https://tdn.totvs.com/pages/releaseview.action?pageId=6784152
//---------------------------------------------------------------------------------
User Function M410PVNF()
Local lRet := .T.
Local cUsers := "000002" //Usuários permitidos para liberação.
Local cCodUser := RETCODUSR()
IF !(cCodUser$cUsers) //Se o conteúdo da variavel cCodUser NÃO estiver dentro de cUsersMVC ele BLOQUEIA.
lRet := .F.
Alert("Usuário não autorizado para faturar Notas!")
ELSEIF SC5->C5_NOTA <> ‘ ‘ .AND. SC5->C5_SERIE <> ‘ ‘
lRet := .F.
Alert("O Pedido de Venda "+SC5->C5_NUM+" já foi faturado."+chr(13)+;
chr(13)+;
"A Nota Fiscal é "+SC5->C5_NOTA+" Série "+SC5->C5_SERIE)
ELSE
lRet := .T.
ENDIF
Return lRet
Espero que tenha ajudado.
Lucas Baia
Consultor Protheus
lucasrbaia@hotmail.com
27 99905-9727 |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|