Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (michele.costa)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (michele.costa)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada

...

MTA097S

Linha de Produto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Ponto de Entrada:

MTA097S

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
MTA097S permite efetuar transferência e/ou validação do superior no processo de liberação de Pedidos de Compra.

Eventos:

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

O ponto de entrada MTA097S encontra-se nas funções A097ProcTf e A097ProcSup. 
Quando a chamada é feita pela A097ProcTf serve para efetuar transferência ao superior.
Quando a chamada é feita pela A097ProcSup serve para validar se o superior poderá aprovar na rotina de liberação de documentos.

O ponto de entrada MTA097S permite efetuar transferência e/ou validação do superior no processo de liberação de Pedidos de Compra.

Programa Fonte:

MATA097.PRX

Sintaxe

A097PCO - Permite lançar PCO na liberação de Pedidos de Compra ( < cC7Num> , < cUser> , < lLanPCO> ) --> lRet
Parâmetros

Não há

 Retorno:
Parâmetros

Nome

Tipo

Descrição

Default

Obrigatório

cC7Num
lRet
CaracterNº Pedido Compra.         xcUserArray of RecordNome Usuário         xlLanPCOArray 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

...

Logico

.T. continua o processo de liberação 
.F. interrompe o processo.

 X

 

Exemplo:

User Function MTA097S()
Local lRet:= .T.

//Customização Cliente

Return (lRet)

...