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). |
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
|
03. MODELOS DE DADOS
Modelo | Descrição |
---|---|
SW9DETAIL | Invoices |
SWVDETAIL | Itens das invoices |
EIJMASTER | Mercadoria |
EINADETAIL | Acréscimos |
EINDDETAIL | Decréscimos |
EKQDETAIL | LPCO |
EIKDETAIL | Documentos Vinculados |
EJ9DETAIL | Certificado Mercosul |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas