Linha Microsiga Protheus

Árvore de páginas

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 aRet
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não