Ponto-de-Entrada: A097PCO - Permite lançar PCO na liberação de Pedidos de Compra
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cC7Num | Caracter | Nº Pedido Compra. | X | ||||||||||||||
| cUser | Array of Record | Nome Usuário. | X | ||||||||||||||
| lLanPCO | Array of Record | Libera 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.) .
Exemplos
#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
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |