Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: T450PVOS - Geração de pedido de vendas
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
O ponto de entrada T450PVOS possibilita decidir se gera pedido de vendas a partir de da inclusão ou alteração de uma OS.
Programa Fonte 
TECXFUN
Sintaxe

T450PVOS - Geração de pedido de vendas ( [ lPV ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lPV Lógico Indica se será gerado pedido de vendas pelo processo padrão.
Retorno
    lRet(logico)
  • Informa se possibilita a geração do pedido de vendas.
Exemplos 
#Include "Protheus.ch"User Function T450PVOS()Local aArea  := GetArea()Local lGerPV := ParamIXB[1]Local lAval  := .T.If Aviso("Ponto T450PVOS!!","Analisa pedido?",{"Sim","Nao"}) == 1	If AB7->(dbSeek(xFilial("AB7")+M->AB6_NUMOS))                                 	While AB7->(!Eof()) .And. AB7->AB7_NUMOS == M->AB6_NUMOS .And. lAval  			If AB7->AB7_TIPO == "2"				lAval := .F.   		EndIf   		AB7->(dbSkip())   	EndDo 	EndIfEndIfRestArea(aArea)Return lAval
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não