Histórico da Página
...
Aviso | ||
---|---|---|
| ||
É de suma importância que esteja posicionado no registro do embarque/desembaraço (SW6), para que seja carregado corretamente as informações da rotina Itens DUIMP (EICLP500). |
A estrutura do modelos de dados da rotina Itens DUIMP (EICLP500), está desenvolvida da seguinte forma:
- SW9DETAIL: esse modelo de dados representa as Invoices que foram vinculados ao processo de embarque/desembaraço, não é possível realizar nenhuma atualização, somente utilizado para navegar entre os seus itens.
- SWVDETAIL: Itens da Invoices
- EIJMASTER: Mercadoria
- EINADETAIL: Acréscimos
- EINDDETAIL: Decréscimos
- EKQDETAIL: LPCO
- EIKDETAIL: Documentos Vinculados
- EJ9DETAIL: Certificado Mercosul
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch' #include 'fwmvcdef.ch' user function ExecItDuimp() local cProcesso := "" local oModelo := nil RpcSetType(3) if RpcSetEnv("99","01",,,"EIC") dbSelectArea("SW6") cProcesso := PadR( "DES-820862",len(SW6->W6_HAWB)) SW6->(dbSetOrder(1)) if SW6->(dbSeek( xFilial("SW6") + cProcesso)) oModelo := FwLoadModel("EICLP500") oModelo:SetOperation(MODEL_OPERATION_UPDATE) oModelo:Activate() /* Modelo de dados: SW9DETAIL -> Invoices SWVDETAIL -> Itens da Invoices EIJMASTER -> Mercadoria EINADETAIL -> Acréscimos EINDDETAIL -> Decréscimos EKQDETAIL -> LPCO EIKDETAIL -> Documentos Vinculados EJ9DETAIL -> Certificado Mercosul */ if oModelo:VldData() oModelo:CommitData() else VarInfo("Erro no execauto do modelo EICLP500-> ",oModelo:GetErrorMessage()) endif oModelo:DeActivate() oModelo:Destroy() FwFreeObj(oModelo) endif RpcClearEnv() endif return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas