Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagedelphi
themeMidnight
titleExemplo
linenumberstrue
#include 'totvs.ch'
 
/*/{Protheus.doc} User Function M295SD2
   Permite que o usuário desconsidere registros de Notas de Saída no processamento do cálculo da Demanda.
   @type Function
   @since 01/01/2024
   @author user
/*/
User Function M295SD2()

  Local lRet  := .T.
  Local cCli  := "000001"
  Local cLoja := "01"

  If SD2->D2_CLIENTE + SD2->D2_LOJA == cCli + cLoja
    
    FWAlertInfo("Item da nota de saída do cliente " + cCli + " loja " + cLoja + " descartado com sucesso", "Rotina MATA295")

    lRet := .F.

  EndIf

Return lRet

...