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 RpcSetTypelocal 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