Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: T450PVOS - Geração de pedido de vendas
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas