Ponto-de-Entrada: M468PENT - Preenchimento da TES de Entrega Futura
| Versão: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
O ponto de entrada M468PENT preenche automaticamente, conforme regra personalizada do TES de entrega futura.
Programa Fonte
Sintaxe
M468PENT - Preenchimento da TES de entrega futura ( ) --> aRet
Retorno
aRet
- (array_of_record)
- 1o. Elemento contendo o código do TES2o. Elemento contendo o valor lógico .T. ou .F. para indicar se apresenta ou não a tela de solicitação do TES.
Exemplos
#Include "Protheus.ch"User Function M468PENT()aRet := {" ",.T.}aRet[2] := Aviso("Ponto M468PENT!!","Apresenta tela de solicitação de TES? ",{"Sim","Nao"}) == 1If aRet[2] If Aviso("Ponto M468PENT!!","Mostra campo da TES preenchida? ",{"Sim","Nao"}) == 1 aRet[1] := "520" // <- TES com gera financeiro N e movimenta estoque S EndIfElse aRet[1] := "520" // <- TES com gera financeiro N e movimenta estoque SEndIfReturn aRetVariáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |