TR-EICPO400 - Manutenção do Purchase Order

CONTEÚDO

Visão Geral
Exemplo de utilização
Parâmetros
Variáveis
Tabelas utilizadas

01. VISÃO GERAL

Este Ponto de Entrada pertence à rotina de Purchase Order. Ele deve ser utilizado para customização desta rotina.

Programa Fonte: EICPO400.PRW

02. EXEMPLO DE UTILIZAÇÃO

User Function Eicpo400()
    Local cParam := IIF(type("paramixb") == "A" .And. len(paramixb) > 0, paramixb[1], paramixb)
    Do Case
        Case cParam == "ANTES_GRAVAR"
            MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVAR'.")

        Case cParam == "AROTINA"
            AAdd(aCores , { "SW2->W2_CONAPRO == 'B' "  , "BR_AZUL" })
            cFilBrow := " SW2->W2_CONAPRO == '1' "

        Case cParam == "GRAVA_PO_PC" //tratamentos customizados
            MsgInfo("Entrou no ponto de entrada 'GRAVA_PO_PC'.")

        Case cParam == "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 cParam == "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 cParam == "GRAVA_WORK_SI" //informação a ser gravada no campo adicional
            Work_SI->W0_COMPRA:= SW0->W0_COMPRA

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

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

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

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

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

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

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

        CASE cParam == "ANTESZERASLD"
            MsgInfo("Entrou no ponto de entrada 'ANTESZERASLD'")
            lSair := .F.//Se true, aborta a execução

        CASE cParam == "SLDZERADO"
            MsgInfo("Entrou no ponto de entrada 'SLDZERADO'")


        Case cParam == "ANTES_SALVAR"
            MsgInfo("Entrou no ponto de entrada 'ANTES_SALVAR'")
            lPE := .F.

        Case cParam == "APPEND"
            MsgInfo("Entrou no ponto de entrada 'APPEND'")
            WORK->WKPRECO := 50 
			Work->WKCUSTO := SW3->W3_PRECO * SW3->W3_QTDE

        Case cParam == "APOS_GET_SI"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'APOS_GET_SI' Seleção de itens.")
            EndIf
        
        Case cParam == "ANTES_ESTORNA"
            MsgInfo("Entrou no ponto de entrada 'ANTES_ESTORNA'")

        Case cParam == "INICIA_VARIAVEL_CONFERENCIA_FINAL"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'INICIA_VARIAVEL_CONFERENCIA_FINAL' Conferencia final.")
            EndIf

        Case cParam == "APOS_MARCA_ITEM"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'APOS_MARCA_ITEM' Seleção de itens.")
            EndIf

        Case cParam == "APOS_CONFERENCIAFINAL"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'APOS_CONFERENCIAFINAL' Conferencia final.")
            EndIf

        Case cParam == "INCLUIR" .or. cParamixb == "ALTERAR"
            // Definir se irá criar o pedido no módulo de Compras
            // Para NÃO criar as variáveis cMV_Easy := "N" e lExecAuto_Com := .F.
            cMV_EASY := EasyGParam("MV_EASY",,"N")
            If cMV_EASY == "S"
                cMV_EASY := "N"
            EndIf
            lExecAuto_Com := cMV_EASY == "S"

        Case cParam == "PO400ESTOR_VERIFICA_PAG_ANT"
            //pode exibir alguma mensagem se quiser
            lSair : =.T. //aborta o estorno, ser for .f. cotinua

		Case cParam == "HABILITA_CONFERENCIA_FINAL"
			//Habilita a tela de Conferência Final
			 lConfFinal := .T.

        case cParamixb == "BROWSE_ESTORNO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			AADD(Tb_Campos,{"WKCUSTO","","Custo", AVSX3("W3_CUSTO",6) }) 

        case cParamixb == "MarcaTodosEstorno"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_ESTORNO_PO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "DEPOIS_ESTORNO_PO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "Estorno"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "Antes_Estona_Capa"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "EstornoCapa"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "BROWSE_VISUALIZAR"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			AADD(Tb_Campos,{"WKCUSTO","","Custo", AVSX3("W3_CUSTO",6) }) 

        case cParamixb == "FIM_VISUALIZACAO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "VAL_ALCADA_ALTERA_TELA_PO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_ALTERA_TELA_PO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

		case cParamixb == "PO400VALSWB_VALID_PAG_ANT"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "AADD_WORK"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			AADD(aDBF_Stru,{"WKCUSTO"  ,AVSX3("W3_CUSTO",2),AVSX3("W3_CUSTO"   ,3),AVSX3("W3_CUSTO",4)})

        case cParamixb == "ANTES_GRAVA_WORK_SW3"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "REPLACE"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			Work->WKCUSTO := SW3->W3_PRECO * SW3->W3_QTDE

        case cParamixb == "WORK_DESPESAS"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_P_TE_2"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "BROWSE_INCLUIR_ALTERAR"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			AADD(aSelItem,{"WKCUSTO"     ,"","Custo", AVSX3("W3_CUSTO",6) }) 

        case cParamixb == "ANTES_TELA_ITEM"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "FILTRA_SI"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_GET_SI"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "INICIA_TE_3"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "DESMARCA_ITEM"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "INICIA_VAR_ITEM"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "COORDENADA_TELA_ITENS"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "GRAVA_ALTERACAO_ITEM"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "GRAVA_ITENS_WORK"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "BROWSE_CONFERENCIA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "DEFINIR_ACAMPOS"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_MARCA_ITEM"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			Work->WKCUSTO := SW3->W3_PRECO * SW3->W3_QTDE

        case cParamixb == "GRV_WORK_COM_SW1"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "INICIO_GRAVA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_GRAVA_PO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ALT_DATA_TITULO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_GRV_POSICAO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "MUDA_DT_ENTREGA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "RECALC_DT_ENTREGA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "WHEN_ALTERA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ADICIONA_WORK"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
			AADD(aDBF_Stru,{"WKCUSTO"  ,AVSX3("W3_CUSTO",2),AVSX3("W3_CUSTO"   ,3),AVSX3("W3_CUSTO",4)})   

        case cParamixb == "DESVIA_WORK_SI"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ALTERA_DATA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "VALIDA_DATAS"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ALT_DT_ENTREGA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "USUARIOS"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "MarcaEstorno"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "BROWSE_COPIA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "TELA_COPIA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "FIM_COPIA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "CRIA_TEMP"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "BROWSE_VISUALIZAR"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "ANTES_COPIA_LOOPSW2"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "COPIA_LOOPSW2"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "GRAVA_SICOPIA"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "GRAVATRB_SI_AUTO"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "FILTRACC"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "SI_REF"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")

        case cParamixb == "MANUT_REG_TRIB"
			MsgInfo("Entrou no ponto de entrada '" + cParamixb "'.")
	End Case
Return

03. PARÂMETROS

Nome	Tipo	Descrição
ANTES_GRAVAR	Caracter	Executado após a gravação do Purchase Order e do Pedido de Compras (quando integrado) e antes de realizar a integração com o módulo financeiro (quando habilitado) para gerenciamento dos títulos provisórios. Permite customizar os dados para gravações adicionais nas tabelas do Purchase Order e/ou Pedido de Compras antes da execução da integração com o financeiro
AROTINA	Caracter	Parâmetro que permite adicionar legendas e filtro ao Browse do Purchase Order.
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	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	Permite desviar da tela de seleção de S.I. no processo. Também é possível executar validações diversas.
PO_PesqSI_Sel	Array	Permite selecionar quais itens de uma determinada SI será apresentada na selação do PO
PO400GRAVAPC_ITEM	Caracter	Permite gravar informações do item do pedido de compras na tabela SC7. Utilizar o array aItensPo.
PO400GRAVAPC_CAPA	Caracter	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. Permite o controle se o sistema deve continuar a operação de estorno ou não através da variável lSair.
VAL_GRAVA_PO	Caracter	Permite validação de informações permitindo gravar o registro ou não, através do preenchimento da variável 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 através da consulta da variável '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.
ANTES_ESTORNA	Caracter	Permite a customização após a seleção da opção de estorno no browse.
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.
VALIDA	Caracter	Permite a validação da escolha da SI
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"
ANTESZERASLD	Caracter	Ponto de entrada executado após o usuário confirmar a operação de eliminação de saldo
SLDZERADO	Caracter	Ponto de entrada executado após a confirmação de eliminação de saldo pelo sistema
ANTES_SALVAR	Caracter	Permite a validação do item selecionado do pedido de exportação dentro do P.O.
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)
INICIA_VARIAVEL_CONFERENCIA_FINAL	Caracter	Verifica a entrada na etapa de Conferencia Final
APOS_MARCA_ITEM	Caracter	Verifica após clicar no botão conferencia, ou no botão confirmar na etapa da seleção de itens
APOS_CONFERENCIAFINAL	Caracter	Verifica após clicar em sair ou confirmar a Conferencia Final do P.O.
INCLUIR	Caracter	Permite alterar o processamento para que não passe pela função MATA120, consequentemente, não realizando a integração com o módulo de Compras, tratando as variáveis cMV_EASY como "N" e lExecAuto_Com como .F.
ALTERAR	Caracter	Permite alterar o processamento para que não passe pela função MATA120, consequentemente, não realizando a integração com o módulo de Compras, tratando as variáveis cMV_EASY como "N" e lExecAuto_Com como .F.
HABILITA_CONFERENCIA_FINAL	Caracter	Permite habilitar novamente a tela de "Conferênfia Final" do Purchase Order, que foi retirada ao utilizar a nova tela de apresentação dos itens.
BROWSE_ESTORNO	Caracter	Permite a customização do browse antes do estorno do processo
MarcaTodosEstorno	Caracter	Permite a customização da marcação dos itens para estorno
ANTES_ESTORNO_PO	Caracter	Permite a customização imediatamente antes do estorno do processo
DEPOIS_ESTORNO_PO	Caracter	Permite a customização imediatamente após do estorno do processo
Estorno	Caracter	Permite a customização durante o estorno do processo
Antes_Estona_Capa	Caracter	Permite a customização antes do estorno da capa do processo
EstornoCapa	Caracter	Permite a customização durante o estorno da capa do processo
BROWSE_VISUALIZAR	Caracter	Permite a customização no inicio da visualização do browse.
FIM_VISUALIZACAO	Caracter	Permite a customização ao final da visualização do browse.
VAL_ALCADA_ALTERA_TELA_PO	Caracter	Permite a customização da validação de Alçadas.
ANTES_ALTERA_TELA_PO	Caracter	Permite a customização antes da exibição da tela de alteração do processo.
PO400VALSWB_VALID_PAG_ANT	Caracter	Permite a customização da validação de pagamentos antecipados.
AADD_WORK	Caracter	Permite a customização de campos na work.
ANTES_GRAVA_WORK_SW3	Caracter	Permite a customização anterior a gravação da work referente a tabela SW3.
REPLACE	Caracter	Permite a customização de replace de informações da work com a tabela SW2.
WORK_DESPESAS	Caracter	Permite a customização da work referente as despesas.
ANTES_P_TE_2	Caracter	Permite a customização anterior a tela de Itens.
BROWSE_INCLUIR_ALTERAR	Caracter	Permite a customização do browse nos botões de incluir e alterar.
ANTES_TELA_ITEM	Caracter	Permite a customização anterior a tela de itens.
FILTRA_SI	Caracter	Permite a customização do filtro de solicitações de importação.
ANTES_GET_SI	Caracter	Permite a customização anterior a seleção de SI.
INICIA_TE_3	Caracter	Permite a customização anterior a tela de conferencia final.
DESMARCA_ITEM	Caracter	Permite a customização de desmarcação dos itens.
INICIA_VAR_ITEM	Caracter	Permite a customização de inicialização das variaveis de memoria dos itens.
COORDENADA_TELA_ITENS	Caracter	Permite a customização do tamanho de tela dos itens.
GRAVA_ALTERACAO_ITEM	Caracter	Permite a customização da gravação dos itens na alteração do processo.
GRAVA_ITENS_WORK	Caracter	Permite a customização da grvação dos itens na work.
BROWSE_CONFERENCIA	Caracter	Permite a customização do browse de conferencia final.
DEFINIR_ACAMPOS	Caracter	Permite a customização da variavel aCampos
ANTES_MARCA_ITEM	Caracter	Permite a customização anterior da marcação dos itens.
GRV_WORK_COM_SW1	Caracter	Permite a customização da gravação doa tabela SW1.
INICIO_GRAVA	Caracter	Permite a customização do inicio da gravação dos dados.
ANTES_GRAVA_PO	Caracter	Permite a customização anterior a gravação dos dados do PO.
ALT_DATA_TITULO	Caracter	Permite a customização da alteração das datas dos titulos gerados no Financeiro.
ANTES_GRV_POSICAO	Caracter	Permite a customização anterior a gravação da posição dos itens.
MUDA_DT_ENTREGA	Caracter	Permite a customização da alteração das datas de entrega dos itens.
RECALC_DT_ENTREGA	Caracter	Permite a customização do recalculo da data de entrega.
WHEN_ALTERA	Caracter	Permite a customização das alterações dos campos na alteração.
ADICIONA_WORK	Caracter	Permite a customização na work.
DESVIA_WORK_SI	Caracter	Permite a customização para desvio de gravação da work de SI.
ALTERA_DATA	Caracter	Permite a customização para alteração de datas de embarque dos itens.
VALIDA_DATAS	Caracter	Permite a customização de validação das datas de embarque dos itens.
ALT_DT_ENTREGA	Caracter	Permite a customização da alteração de data de entrega dos itens.
USUARIOS	Caracter	Permite a customização de usuários para validação de Alçadas.
MarcaEstorno	Caracter	Permite a customização da marcação dos itens na rotina de estorno.
BROWSE_COPIA	Caracter	Permite a customização do browse durante a copia de PO.
TELA_COPIA	Caracter	Permite a customização da tela de copia de PO.
FIM_COPIA	Caracter	Permite a customização ao final da copia de PO.
CRIA_TEMP	Caracter	Permite a customização da criação das tabelas temporárias.
BROWSE_VISUALIZAR	Caracter	Permite a customização do browse na visualização.
ANTES_COPIA_LOOPSW2	Caracter	Permite a customização anterior a copia do PO, no momento de loop na SW2.
COPIA_LOOPSW2	Caracter	Permite a customização da copa do PO, no momento de loop na SW.
GRAVA_SICOPIA	Caracter	Permite a customização da gravação de copia de SI.
GRAVATRB_SI_AUTO	Caracter	Permite a customização da gravação da tabela TRB, na gravação de ExecAuto da SI.
FILTRACC	Caracter	Permite a customização do filtro de CC.
SI_REF	Caracter	Permite a customização da SI de referencia.
MANUT_REG_TRIB	Caracter	Permite a customização da manutenção de regime de tributação.

04. VARIÁVEIS

Parâmetro	Nome	Tipo	Permite alterar	Descrição
AROTINA	aCores	Array	Sim	Permite adicionar legendas para no browse do Purchase Order.
AROTINA	cFilBrw	Caracter	Sim	Permite adicionar filtros para no browse do Purchase Order.
BROWSE_VISUALIZAR	Tb_Campos	Array	Sim	Permite adicionar campos no grid na opção de visualização.
BROWSE_ESTORNO	Tb_Campos	Array	Sim	Permite adicionar campos no grid na opção de estorno.
TB_Campos_SI	Tb_Campos_temp	Array	Sim	Permite adicionar campos no grid da solicitação de importação
PO_PesqSI_Sel	lLoop	Lógico	Sim	Permite definir os itens que devem aparecer na seleção de itens no PO.
PO400GRAVAPC_ITEM	aItensPo	Array	Sim	Utilizar conforme exemplo: aAdd(aItensPo, {"C7_QUANT" , SW3->W3_QTDE, Nil})
PO400GRAVAPC_CAPA	aCab	Array	Sim	Utilizar conforme exemplo: aAdd(aCab, {"C7_CONTATO", SA2->A2_CONTATO, Nil})
PO400ESTOR_VERIFICA_PAG_ANT	lTrataPGAntecipado	Lógico	Sim	Permite controlar a validação do cambio do pagamento antecipado já gerado
ANTES_ESTORNA	lSair	Lógico	Sim	Se retornar .T. o sistema aborta a operação de estorno, se retornar .F. o sistema continua com a operação de estorno.
VALIDA_COTACAO	lRetPE	Lógico	Sim	Permite criar validação do número da cotação (W2__NR_COT)
DEPOIS_ALTERA_INC_PO	lDepoisAltIncPO	Lógico	Sim	Variável que recebe o valor da confirmação da tela de alteração.
DEPOIS_GRAVA_INC_PO	lDepoisGrvIncPO	Lógico	Sim	Variável que recebe o valor da gravação do processo.
ALTERA_PO_POST	lAltPOPost	Lógico	Sim	Variável onde controle se é possível alterar o valor de um Produto dentro do PO vindo de um Embarque Parcial
ALTERA_DATA	dDtEmbarque	Caracter	Sim	Variável onde se obtêm a data de embarque antes da edição na tela, para que seja validada.
ALTERA_DATA	dDtEntrega	Carcater	Sim	Variável onde se obtêm a data de entrega antes da edição na tela, para que seja validada.
ALTERA_DATA	dParaEmbarque	Caracter	Sim	Variável onde se obtêm a data de embarque após a edição na tela, para que seja validada.
ALTERA_DATA	dParaEntrega	Caracter	Sim	Variável onde se obtêm a data de entrega após a edição na tela, para que seja validada.
ANTES_ELIMINA	lEliminaS	Lógico	Sim	Variável para a validação do acesso da rotina de eliminação de resíduo no menu do P.O.
ANTESZERASLD	lSair	Lógico	Sim	Variável para validar a execução da eliminação de saldo. Caso seja atribuído .T.(true) aborta a execução e .F.(falso) permite a eliminação de saldo.
ANTES_SALVAR	lPE	Lógico	Sim	Variável para a validação do item selecionado dentro do P.O.
PO400RAT_DESPESAS	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
VALIDA	TSi_Num	Caracter	Não	Variável disponível no ponto de entrada com o parâmetro 'VALIDA' que possibilita saber o número da Solicitação de Importação no momento da validação.
VALIDA	lRetPeSi	Lógico	Sim	Retorno Lógico do ponto de entrada com o parâmetro 'VALIDA' para impedir(Return false) ou não(Return true) a seleção da Solicitação de Importação.
APOS_GET_SI	nOpcPonto	Numérico	Não	Variável numérica responsável pela operação selecionada no processo.(1=Salvar)
APOS_CONFERENCIAFINAL	nOpcPonto	Numérico	Não	Variável numérica responsável pela operação selecionada no processo.(1=Salvar)
APOS_MARCA_ITEM	nOpcPonto	Numérico	Não	Variável numérica responsável pela operação selecionada no processo.(1=Salvar)
HABILITA_CONFERENCIA_FINAL	lConfFinal	Lógico	Sim	Variável que define se a tela de Conferência Final será exibida ou não. .F. - Não Exibe (valor padrão) / .T. - Exibe;
AADD_WORK	aDBF_Stru	Array	Sim	Permite adicionar campo na estrutura da work
ADICIONA_WORK	aDBF_Stru	Array	Sim	Permite adicionar campo na estrutura da work
BROWSE_INCLUIR_ALTERAR	aSelItem	Array	Sim	Permite adicionar campo que serão apresentado no grid (MsSelect) da work

05. TABELAS UTILIZADAS

Não há.

Árvore de páginas

TR-EICPO400 - Manutenção do Purchase Order

CONTEÚDO

01. VISÃO GERAL

02. EXEMPLO DE UTILIZAÇÃO

03. PARÂMETROS

04. VARIÁVEIS

05. TABELAS UTILIZADAS