Discussion Forum

Imprimi Página | Fechar janela

P.E. Prep Doc Saida

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: Faturamento
Descrição do Forum: Dúvidas Módulo de Faturamento
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=7&TopicID=43704
Data da Impressão: sexta-feira, 19 de abril de 2024 at 11:46

Topico: P.E. Prep Doc Saida

Postado por: ANDRE.LOOS
Assunto: P.E. Prep Doc Saida
Data Postagem: quarta-feira, 7 de julho de 2021 at 09:08

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.

Respostas:

Postado Por: ELTON020
Data Postagem: quarta-feira, 7 de julho de 2021 at 11:04

Boa tarde,

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

Postado Por: LUCASBAIA
Data Postagem: quarta-feira, 7 de julho de 2021 at 12:25

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

Imprimir Página | Fechar Janela