Ponto-de-Entrada: EECAP102 - Pedido de exportação
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
Descrição:
Manutenção do Pedido de Exportação
Eventos
Programa Fonte
EECAP102.PRW
Sintaxe
EECAP102 - Pedido de exportação ( [ DESC_PROD ], [ EECVLEE8_CALC_EMB ], [ TP_AGNT_EMB ] ) --> xRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| DESC_PROD | Caracter | Indica que o ponto de entrada está sendo chamado para o preenchimento da descrição do item, após a digitação do código do produto. | |||||||||||||||
| EECVLEE8_CALC_EMB | Array of Record | Retirar validações dos campos referente à Embalagem do Item de Exportação | |||||||||||||||
| TP_AGNT_EMB | caracter | Parâmetro para chamada do ponto de entrada |
Retorno
xRet
- ()
- Deve retornar .T. se foi realizado o tratamento customizado para o preenchimento da descrição do item, em substituição ao tratamento padrão.
Observações
Exemplos
User Function EECAP102() If ValType(ParamIXB) == "A" cParam := ParamIXB[1]Else cParam := ParamIXBEndif If cParam == "TP_AGNT_PED" MSGINFO("PONTO DE ENTRADA 'TP_AGNT_PED' ATIVO!") EndIfReturn Nil User Function EECAP102()Local xRet Do Case Case ParamIXB == "DESC_PROD" SB1->(DBSetOrder(1)) SB1->(DBSeek(xFilial() + M->EE8_COD_I)) M->EE8_VM_DES:= SB1->B1_DESC xRet:= .T. EndCase Return xRetUser Function EECAP102() If ValType(ParamIXB) == "A" cParam := ParamIXB[1] If Len(ParamIXB) > 1 cCampo := ParamIXB[2] EndIfElse cParam := ParamIXB Endif If cParam == "EECVLEE8_CALC_EMB" If cCampo == "EE8_SLDINI" .OR. cCampo == "EE8_QE" lExecValid := .F. MsgInfo("Retirado tratamento de cálculo de embalagem! (Ponto de Entrada: EECVLEE8_CALC_EMB)") EndIfEndIfReturn Nil Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| M->EE8_VM_DES | Caracter | Privado | Não |