Histórico da Página
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 Embarque (EECAE100). Ele deve ser utilizado para customizar a rotina de Embarque.
Programa Fonte: EECAE100.PRW
Retorno: Verdadeiro (.T.) ou Falso (.F.).
02. EXEMPLO DE UTILIZAÇÃO
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 cParam == 'VALID_EMB'
lValidOIC := .F. //Por padrão, a variável é .T.
Case cParamIXB == |
...
Descrição
...
EECAE100 - Customização de funções de Embarque
...
Observações
...
Ponto de Entrada para customização de funções no fonte EECAE100.
...
Exemplos
User Function EECAE100()
Local cParamIXB
Begin Sequence
...
"DETIP_ACTIVATE_DLG" |
...
oMsmGet:oBox:Align := CONTROL_ALIGN_ALLCLIENT |
...
User Function EECAE100()
Local cParam := If(Type("ParamIxb") = "A",ParamIxb1,If(Type("ParamIxb") = "C",ParamIxb,""))
...
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"}) nPos:= AScan(aCampoPIT, {|x| x[3] == "Part.No."}) If nPos > 0 aCampoPIT[nPos][1]:= {||"1234"} EndIf 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 aAdd(aButtons,{"REPLICAR",{|| U_ReplPed()},"Novo Botao"}) nPos:= AScan(aCampoPED, {|x| x[3] == "Part.No."}) If nPos > 0 aCampoPED[nPos][1]:= {||"1234"} 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
Nome | Tipo | Descrição |
---|
User Function EECAE100() If ValType(ParamIXB) == "A" cParam:= ParamIXB1 Else cParam:= ParamIXB EndIf Do Case Case cParam == "FECHAMENTO_EMBARQUE" dDtEmb := EEC->EEC_DTEMBA dDtMemEmb := EEC->EEC_DTEMBA MsgInfo("Ponto de Entrada chamado corretamente!") EndCase Return NIL |
---|
Idioma
Português(Brasil)
Versões
Microsiga_Protheus11, Microsiga_Protheus12
Sistemas Operacionais Suportados
Todos
Compatível com as Bases de Dados
Todas
Parâmetros
EAE100MNU
Caracter
Executado no cálculo do preço do item e permite manipular os valores das despesas no momento onde no array o primeiro item se refere ao ponto de entrada solicitado e o segundo item do array o nome do campo da despesa e o valor da despesa pode ser controlado pela variável nValPTO que traz o valor da despesa podendo ser alterado o que reflete no valor FOB do processo.
Permite habilitar ou desabilitar alguma validação relacionada à variável lógica.
04. VARIÁVEIS
Parâmetro | Nome | Tipo | Pode AlterarPermite alterar | Descrição |
---|---|---|---|---|
DETIP_ACTIVATE_DLG | oFolder | Objeto | Sim | Objeto Folder que possibilita manipular ou criar pastas a serem exibidas na tela de itens. Estará disponível em ambientes offfshore. |
DETIP_ACTIVATE_DLG | oMsmGet | Objeto | Sim | Objeto Get, com os campos da tabela EE9 exibidos na tela de edição de itens. |
BUTTON_REMESSA | lDtEmbalDtEmba | Lógico | Sim | Quando o parâmetro referente a nota fiscal de remessa estiver habilitado e data de embarque preenchida, permite alterar a variável lDtEmba para manipular a exibição da rotina "Vincular NFs de Entrada". |
FECHAMENTO_EMBARQUE | dDtEmb | Data | Sim | Variável com o conteúdo do campo "Dt. Embarque" antes de ser alterado o Embarque. |
FECHAMENTO_EMBARQUE | dDtMemEmb | Data | Sim | Variável com o conteúdo do campo "Dt. Embarque" que está na memória, ou seja, durante a alteração do Embarque. |
STATUS | cStatus | Caracter | Sim | Variável que permite alterar o Status do pedido de exportação. |
Observação | Para edição de campos no embarque, mesmo com a data de embarque preenchida é recomendável que altere pelo Configurador (SIGACFG) o campo "Modo edição(X3_WHEN)", retirando qualquer condição de validação para que o campo possa ser editável. | Programa Fonte | EECAE100.PRW||
ANTES_TELA_PRINCIPAL | aEECCamposEditaveis | Array | Sim | Os campos contidos nesta variável serão editáveis na tela do embarque, para deixar um campo bloqueado para edição deve-se excluir o campo desejado deste array. |
ANTES_TELA_PRINCIPAL | aButtons | Array | Sm | Permite a manipulação deste array para inclusão ou exclusão de opções no menu Outras ações. |
ANTES_TELA_PRINCIPAL | aCampoPED | Array | Sim | Permite modificar os dados e colunas exibidos no grid de itens. |
PRECOI_ATU_PRECO | nValPTO | Numérico | Sim | Valor da despesa a ser cosiderado no preço do item. |
ANTES_REFRESH_RODAPE | EEC_TOTPED | Numérico | Sim | Variável referente ao campo "Total Embarque" da tela do embarque. |
ANTES_REFRESH_RODAPE | nTotEmbBr | Numérico | Sim | Variável referente ao campo "Total Emb(Bruto)" da tela do embarque. |
ANTES_REFRESH_RODAPE | EEC_TOTFOB | Numérico | Sim | Variável referente ao campo "Total fob" da tela do embarque. |
ANTES_REFRESH_RODAPE | EEC_VLFOB | Numérico | Sim | Variáel para uso interno do sistema, deve ser informado com o mesmo valor do campo EEC_TOTFOB. |
ANTES_REFRESH_RODAPE | EEC_TOTLIQ | Numérico | Sim | Variável referente ao campo "Total líquido" da tela do embarque. |
ANTES_REFRESH_RODAPE | EEC_PESLIQ | Numérico | Sim | Variável referente ao campo "Peso Líquido" da tela do embarque. |
ANTES_REFRESH_RODAPE | EEC_PESBRU | Numérico | Sim | Variável referente ao campo "Peso Bruto" da tela do embarque. |
VALID_EMB | lValidOIC | Lógico | Sim | Permite habilitar ou desabilitar a validação de OIC. Por padrão recebe o valor .T. e se .F. a validação não ocorre |
PE_MARK_OK | aButtons | Array | Sim | Permite adicionar ou modificar as ações. |
PE_MARK_OK | aCampoPIT | Array | Sim | Permite modificar os dados e colunas exibidos no grid de itens. |
05. TABELAS UTILIZADAS
- n/a
HTML |
---|
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|