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:
P.E. Prep Doc Saida
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ANDRE.LOOS ANDRE.LOOS em 07/07/2021, 09:08 h
Local: SC  Registro: 28/05/2021  Postagens: 2
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.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ELTON020 ELTON020 em 07/07/2021, 11:04 h
Local: SP  Registro: 31/03/2020  Postagens: 26
Boa tarde,

Para validar os pedidos Marcados para gerar o Doc de Saida eu uso o M460MARK .

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário LUCASBAIA 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

 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