| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | MATA461 - Documentos de Saída e MATA410 - Pedido de Vendas |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Português |
O Ponto de Entrada é executado na rotina Documentos de Saída(MATA461) e no Pedido de Vendas(MATA410), e permite definir a data de entrega no momento de preparar o documento de saída ao apresentar o pergunte conforme abaixo.
MT46DTEN()--->DATA
DATA
#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 |