EICPO400 - Manutenção do Purchase Order

Descrição

Observações

Utilizado durante a rotina de manutenção do Purchase Order.

Exemplos

User Function EICPO400()

Do Case

Case ParamIXB == "GRAVA_PO_PC" //tratamentos customizados

Case ParamIXB == "Work_SI" //adição de campos na work que será usada para exibir os dados da S.I. de referência
AAdd(aSemSX3, {"W0_COMPRA", "C", 3, 0})

Case ParamIXB == "TB_Campos_SI" //campos que serão exibidos ao clicar no botão "S.I. de Referência"
AAdd(Tb_Campos_temp, {{|| Work_SI->W0_COMPRA},, "COMPRADOR"})

Case ParamIXB == "GRAVA_WORK_SI" //informação a ser gravada no campo adicional
Work_SI->W0_COMPRA:= SW0->W0_COMPRA

Case ParamIXB == "SELECIONASI" //Define se a tela será aberta.
Return .T. //Define se a tela não será aberta

   Case ParamIXB == "DEPOIS_ALTERA_INC_PO"
       If lDepoisAltIncPO
          MsgInfo("Operação de alteração confirmada!")
       Else
          MsgInfo("Operação de alteração cancelada!")
       Endif

Case ValType(ParamIXB) == "A"
cParam := ParamIXB[1]

Case ParamIXB == "PO_PesqSI_Sel" //lLoop := .T.
MSGINFO("PONTO DE ENTRADA 'PO_PesqSI_Sel' ATIVO!")

Case ParamIXB == "VALID"
If cFlag == 'Saldo_Q'
MsgInfo("Entrou no ponto de entrada 'VALID'.")
Endif

   Case ParamIXB == "DEPOIS_GRAVA_INC_PO"
       If lDepoisGrvIncPO
          MsgInfo("Operação de gravação confirmada!")
       Else
          MsgInfo("Operação de gravação cancelada!")
       Endif

Case PARAMIXB == "ALTERA_PO_POST"

MsgInfo("Entrou no ponto de entrada 'ALTERA_PO_POST'.")
lAltPOPost := .F.

Case PARAMIXB == "ANTES_ELIMINA"
MsgInfo("Entrou no ponto de entrada 'ANTES_ELIMINA'")
lEliminaS := .F.

Case PARAMIXB == "ANTES_SALVAR"

MsgInfo("Entrou no ponto de entrada 'ANTES_SALVAR'")

lPE := .F.

Case PARAMIXB == "APPEND"

MsgInfo("Entrou no ponto de entrada "APPEND")

WORK->WKPRECO := 50

EndCase

Return Nil

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nome	Tipo	Descrição	Default
GRAVA_PO_PC	Caracter	Parâmetro que indica que o ponto de entrada está sendo chamado após a confirmação da gravação do Purchase Order.
WORK_SI	Caracter	Objetivo deste ponto de entrada é permitir a customização da Work da tela Consulta Cod.Unid.Req S.I.
TB_CAMPOS_SI	Caracter	O objetivo deste ponto de entrada é permitir a customização dos campos da MsSelect da tela Consulta Cod.Unid.Req S.I.
GRAVA_WORK_SI	Array of Record	Permite gravar informações nos campos adicionais que serão exibidos na tela "Consulta Cod.Unid.Req S.I.". Chamado durante o looping da tabela SW0.
SELECIONASI	Array of Record	Permite desviar da tela de seleção de S.I. no processo. Também é possível executar validações diversas.
PO_PesqSI_Sel	array_of_record	Permite selecionar quais itens de uma determinada SI será apresentada na selação do PO
PO400GRAVAPC_ITEM	Caracter	Se o parametro "MV_EIC0008" = .T., permite gravar informações do item do pedido de compras na tabela SC7. Utilizar o array aItensPo.
PO400GRAVAPC_CAPA	Caracter	Se o parametro "MV_EIC0008" = .T., permite gravar informações da capa do pedido de compras na tabela SC7. Utilizar o array aCab.
PO400ESTOR_VERIFICA_PAG_ANT	Caracter	Permite estorno do PO quando processo possui pagamento antecipado.
VAL_GRAVA_PO	Caracter	Permite validação de informações permitindo gravar o registro ou não, atraves do preenchimento da variavel lGravaPO como .T. ou .F..
DEPOIS_GRAVA_INC_PO	Caracter	Foi disponibilizado o ponto de entrada "EICPO400" com o parâmetro "DEPOIS_GRAVA_INC_PO" permitindo a validação após inclusão do PO. Esta validação é efetuada atraves da consulta da variavel 'lDepoisGrvIncPO'.
DEPOIS_GRAVA_ALT_PO	Caracter	Permite validação após alteração do PO.
VALIDA_COTACAO	Lógico	Permite validação e customização de informações da cotação de preços no PO, através do preenchimento da variavel lRetPE como .T. ou .F..
APOS_GET_SI	Lógico	Permite validação após a gravação do processo no P.O. através da variável MControla como .T. ou .F..
DEPOIS_ALTERA_INC_PO	Lógico	Permite validar se o processo de alteração do PO foi confirmado ou cancelado.
VALID	Caracter	Permite alterar a validação dos campos do PO.
ALTERA_PO_POST	Caracter	Permite alterar o valor de um Produto dentro do PO vindo de um Embarque Parcial
VALIDA_DATA_DDTEMBARQUE	Caracter	Permite implementar validação customizada para a data de embarque conforme seu valor antes da alteração na tela de alteração de datas no PO.
VALIDA_DATA_DPARAEMBARQUE	Caracter	Permite implementar validação customizada para a data de embarque conforme seu valor após a alteração na tela de alteração de datas no PO.
VALIDA_DATA_DDTENTREGA	Caracter	Permite implementar validação customizada para a data de entrega conforme seu valor antes da alteração na tela de alteração de datas no PO.
VALIDA_DATA_DPARAENTREGA	Caracter	Permite implementar validação customizada para a data de entrega conforme seu valor após a alteração na tela de alteração de datas no PO.
ANTES_ELIMINA	Caracter	Permite a validação do acesso da opção de menu "Elimina Resíduo"	.T.
ANTES_SALVAR	Caracter	Permite a validação do item selecionado do pedido de exportação dentro do P.O.	.T.
APPEND	Caracter	Permite implementar validação customizada para alterar valores contidos no item do pedido, através da tabela temporária "Work".
PO400RAT_DESPESAS	Caracter	Permite alterar as despesas de frete e seguro no momento do rateamento, ao selecionar uma S.I para o cadastro de Purchase Order. A alteração pode ser feita através da tabela temporária "Work" (Veja a explicação sobre a "Work" na tabela de variáveis nesta página)

Retorno

()

Eventos de chamada do Ponto de Entrada

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Descrição
aCposSI	Array of Record	Privado	Não
Tb_Campos	Array of Record	Privado	Não
aSemSX3	Array of Record	Privado	Não
Tb_Campos_temp	Array of Record	Privado	Não
lTelaSi	Array of Record	Privado	Não
lLoop	Lógico	Privado	Não
aItensPo	Array of Record	Privado	Não	Utilizar conforme exemplo: aAdd(aItensPo, {"C7_QUANT" , SW3->W3_QTDE, Nil})
aCab	Array of Record	Privado	Não	Utilizar conforme exemplo: aAdd(aCab, {"C7_CONTATO", SA2->A2_CONTATO, Nil})
lTrataPGAntecipado	Lógico	Privado	Não
lRetPE	Lógico	Privado	Sim
lDepoisAltIncPO	Lógico	Privado	Não	Variável que recebe o valor da confirmação da tela de alteração.
lDepoisGrvIncPO	Lógico	Privado	Não	Variável que recebe o valor da gravação do processo.
cFlag	Caracter	Privado	Não	Variável que recebe o campo a ser validado.
lAltPOPost	Lógico	Privado	Sim	Variável onde controle se é possível alterar o valor de um Produto dentro do PO vindo de um Embarque Parcial
dDtEmbarque	Caracter	Privado	Não	Variável onde se obtem a data de embarque antes da edição na tela, para que seja validada.
dDtEntrega	Caracter	Privado	Não	Variável onde se obtem a data de entrega antes da edição na tela, para que seja validada.
dParaEmbarque	Caracter	Privado	Não	Variável onde se obtem a data de embarque após a edição na tela, para que seja validada.
dParaEntrega	Caracter	Privado	Não	Variável onde se obtem a data de entrega após a edição na tela, para que seja validada.
lEliminaS	Lógico	Privado	Sim	Variável para a validação do acesso da rotina de elimina resíduo no menu do P.O.
lPE	Lógico	Privado	Sim	Váriavel para a validação do item selecionado dentro do P.O.
Work		Arquivo de trabalho temporário	Sim	O arquivo de trabalho "Work" permite alterar o frete, seguro e outras despesas no momento do rateio do frete e seguro dos itens na rotina de Purchase Order. Os seguintes campos são disponibilizados para a alteração: Work->WKFRETE : Frete Work->WKSEGUR: Seguro Work->WKINLAN: Inland Work->WKDESCO: Desconto Work->WKPACKI: Packing

Programa Fonte

EICPO400.PRW

Page tree

EICPO400 - Manutenção do Purchase Order