Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagecpp
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'   
User Function MT46DTEN()
    Local dDtEntrega    := cTod("//")
    Local lMata410      := Findfunction("MATA410")ProcName(2) == "Ma410PvNfs" //Pedido de Vendas
    Local lMata461      := Findfunction("MATA461") ProcName(2) == "Ma460Nota"// Documento de Saida
 
    If lMata410
        msgyesno("PE MT46DTEN","PE-MT46DTEN  - PEDIDO: ")
        dDtEntrega := cTod("30/01/2026")
    EndIf
 
    If lMata461
        msgyesno("PE MT46DTEN","PE-MT46DTEN  ")
        dDtEntrega := cTod("30/12/2027")
    EndIf
 
Return dDtEntrega


04. ASSUNTOS RELACIONADOS

...