Histórico da Página

01. DADOS GERAIS

02. 

...

DESCRIÇÃO

...

Solicitação de Ponto de Entrada ao gerar o Documento de Saída (Mata461) para manipular o pergunte MT460A/Ordem 28: 'Data de Entrega?' referente a nova tag dPrevEntrega.

03. SOLUÇÃO

Implementação do ponto de entrada MT46DTEN para permitir definir a Data de Entrega.  

...

03. DEMAIS INFORMAÇÕES

Exemplo de utilização

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

04. ASSUNTOS RELACIONADOS

DT PE MT46DTEN - Definir data de entrega - Documentos de Saída

...

05. ASSUNTOS RELACIONADOS

       Não se aplica