Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include "protheus.ch" User Function EECAE100() Local cParamIXB := "" If ValType(ParamIXB) == "A" cParamIXB:= ParamIXB[1] Else cParamIXB:= ParamIXB EndIf Do Case Case cParamIXB == "DETIP_ACTIVATE_DLG" oMsmGet:oBox:Align := CONTROL_ALIGN_ALLCLIENT Case cParamIXB == "GRV_CPOS_CUSTOM" MsgInfo("Entrou no ponto de entrada 'GRV_CPOS_CUSTOM'.") Case cParamIXB == "BUTTON_REMESSA" lDtEmba := .T. MsgInfo("Entrou no ponto de entrada 'BUTTON_REMESSA'.") Case cParamIXB == "PE_MARK_OK" aAdd(aButtons,{"REPLICAR",{|| U_ReplPed()},"Novo Botao"}) Case cParamIXB == "FECHAMENTO_EMBARQUE" dDtEmb := EEC->EEC_DTEMBA dDtMemEmb := EEC->EEC_DTEMBA Case cParamIXB == "STATUS" cStatus := Faturado Parcialmente Case cParamIXB == "MSG_ADIANT_NAO_UTILIZADO" lShowMsg := .F. Case cParamIXB == "PE_GRAVA" /*Gravações customizadas das funcionalidades disponíveis em outras ações. Exemplo: EEB->(DBSetOrder(1)) EEB->(DBSeek(xFilial() + M->EEC_PREEMB) //looping //tratamentos customizados na tabela de agentes e comissões*/ MsgInfo("Ponto de entrada EECAE100, parâmetro PE_GRAVA", "PE_GRAVA") Case cParamIXB == "PE_GRV_EE9" MsgInfo("Ponto de entrada EECAE100, parâmetro PE_GRV_EE9", "PE_GRV_EE9") //Customização na gravação do item do processo de embarque EE9->EE9_ZZZZ:= "ABC" Case cParamIXB = "ANTES_TELA_PRINCIPAL" If (nPos := AScan(aEECCamposEditaveis,"EEC_RECALF")) > 0 ADel(aEECCamposEditaveis,nPos) ASize(aEECCamposEditaveis,Len(aEECCamposEditaveis)-1) EndIf Case cParamIXB == 'PRECOI_ATU_PRECO' ifIf ParamIXB[2] <> "EE9_VLDESC" // Zera o valor da despesa no calculo do processo de preço fechado. nValPto := 0 endifEndif EndCase Return NIL |
03. PARÂMETROS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas