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'
If ParamIXB[2] <> "EE9_VLDESC"
// Zera o valor da despesa no calculo do processo de preço fechado.
nValPto := 0
Endif
Case cPARAMIXB == "ANTES_REFRESH_RODAPE"
M->EEC_TOTPED := 101 //Total Embarque
nTotEmbBr := 102 // Total Emb.(Bruto)
M->EEC_TOTFOB := 103 //Total Fob
M->EEC_VLFOB := 103 //Total Fob Interno, deixar este valor igual ao EEC_TOTFOB
M->EEC_TOTLIQ := 104 // Total Liquido
M->EEC_PESLIQ :=105 // Peso Líquido
M->EEC_PESBRU := 106 //Peso Bruto
EndCase
Return NIL |
03. PARÂMETROS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas