Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Sandra Yumiko Saga

Gravado em

Chave

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

...

O Ponto de Entrada é executado na rotina Documentos de Saída (MATA461) e no Pedido de Vendas (MATA410),e permite permitindo  definir a data de entrega no momento de preparar o documento de saídaao apresentar o pergunte conforme abaixo.  Documento de Saída, conforme a exibição dopergunte abaixo.



03. SINTAXE

MT46DTEN()--->DATA

...

Bloco de código
languagecpp
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'  
User Function MT46DTEN()
    Local dDtEntrega    := cTod("//")
    Local lMata410      := Findfunction("MATA410") //Pedido de Vendas
    Local lMata461      := Findfunction("MATA461") // Documento de Saida

    If lMata410
        msgyesno("PE MT46DTEN","PE-MT46DTEN  - PEDIDO: "+ M->C5_NUM )
        dDtEntrega := cTod("30/01/2026")
    EndIf

    If lMata461
        msgyesno("PE MT46DTEN","PE-MT46DTEN  ")
        dDtEntrega := cTod("30/12/2027")
    EndIf

Return dDtEntrega

...