Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch'
#include 'fwmvcdef.ch'
user function ExecItDuimp()
local cProcesso := ""
local oModelo := nil
local oModelSW9 := nil
local oModelSWV := nil
local oModelEIJ := nil
local oModelEINA := nil
local oModelEIND := nil
local oModelEKQ := nil
local oModelEIK := nil
local oModelEJ9 := nil
local nInvoice := 0
local nItens := 0
RpcSetType(3)
if RpcSetEnv("99","01",,,"EIC")
dbSelectArea("SW6")
cProcesso := PadR( "DES-AUTOMATICO",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
*/
// Percorre as invoices do processo embarque/desembaraço
oModelSW9 := oModelo:getModel("SW9DETAIL")
for nInvoice := 1 to oModelSW9:length()
oModelSW9:goLine(nInvoice)
if !oModelSW9:IsDeleted()
// Percorre os itens das invoices
oModelSWV := oModelo:getModel("SWVDETAIL")
for nItens := 1 to oModelSWV:length()
oModelSWV:goLine(nItens)
if !oModelSWV:IsDeleted()
oModelEIJ := oModelo:getModel("EIJMASTER")
oModelEINA := oModelo:getModel("EINADETAIL")
oModelEIND := oModelo:getModel("EINDDETAIL")
oModelEKQ := oModelo:getModel("EKQDETAIL")
oModelEIK := oModelo:getModel("EIKDETAIL")
oModelEJ9 := oModelo:getModel("EJ9DETAIL")
endif
next nItens
endif
next nInvoice
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