Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada A097PCO

Linha de Produto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Ponto de Entrada:

A097PCO

País(es):

Brasil

Banco(s) de Dados:

Todos

Abrangência

Protheus 11, Protheus 12

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

O ponto de entrada A097PCO permite ao usuário controlar a geração de lançamentos no PCO no processo de liberação de Pedidos de Compra.

Eventos:

ExecBlock("A097PCO",.F.,.F.,{SC7->C7_NUM,cName,lLanPCO})

Programa Fonte:

MATA097.PRX

Sintaxe

A097PCO - Permite lançar PCO na liberação de Pedidos de Compra ( < cC7Num> , < cUser> , < lLanPCO> ) --> lRet
Parâmetros
NomeTipoDescriçãoDefaultObrigatório
cC7NumCaracterNº Pedido Compra.
         x
cUserArray of RecordNome Usuário
         x
lLanPCOArray of RecordLibera a geração de lançamentos no PCO (.T.) ou não (.F.) .(.T.)         x
 Retorno:

lRet

    (logico)
  • Libera a geração de lançamentos no PCO (.T.) ou não (.F.) .

Exemplo:
#Include "RWMAKE.CH"User Function A097PCO()Local lRet		:= nilLocal cC7Num	:= ParamIXB[1]	//-- Numero do Pedido de CompraLocal cUser	:= ParamIXB[2]	//-- Nome do UsuarioLocal lLanPCO	:= ParamIXB[3]	//-- Valor Atual para geracao de lancamentos no PCOlRet	:= MSGYesNo(	"Numero do Pedido:  "+cC7Num+chr(10)+chr(13)+;			"Nome do Usuario: "+cUser+chr(10)+chr(13)+;			chr(10)+chr(13)+;			"Valor Atual: " + If(lLanPCO,"LANCA PCO","NAO LANCA PCO")+;			chr(10)+chr(13)+;			"Mantem o valor","Liberacao do Lancamento no PCO")Return lRet


 

Variáveis

NomeTipoEscopoPode AlterarDescrição

Array of RecordGlobalNão