Histórico da Página

Esta rotina contempla apenas solicitações do Protheus. As viagens integradas com o Reserve não geram solicitação, pois são compradas e emitidas diretamente pela agência.

rutina considera solamente solicitudes del Protheus. Los viajes integrados con el Reserve no generan solicitud, porque se compran y emiten directamente en la agencia.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

//---------- Inclusión Inclusaode dala solicitacaosolicitud de viagemviaje ----------//
User Function MyFA666Inc()

Local oModel := Nil
Local oModelFW3 := Nil
Local oModelFW4 := Nil
Local oModelFW5 := Nil
Local oModelFW6 := Nil
Local cFilAtu := ""

RpcSetEnv("T1","D MG 01 ","claudio.ribeiro","1") // Inicializa ambienteentorno comcon usuario solicitante

oModel := FWLoadModel("FINA666")
oModelFW3 := oModel:GetModel("FW3MASTER") // CabecalhoEncabezado dadel viagemviaje
oModelFW4 := oModel:GetModel("FW4DETAIL") // ServicosServicios 
oModelFW5 := oModel:GetModel("FW5DETAIL") // Participantes
oModelFW6 := oModel:GetModel("FW6DETAIL") // Centro de custocosto
cFilAtu := xFilial("FW3")

oModel:SetOperation(MODEL_OPERATION_INSERT)
oModel:Activate()
// Informa el Preencheencabezado cabecalhode dala solicitacaosolicitud de viagemviaje
oModelFW3:SetValue("FW3_FILIAL",cFilAtu)
oModelFW3:SetValue("FW3_NACION","1")
oModelFW3:SetValue("FW3_CODORI","SP")
oModelFW3:SetValue("FW3_CODDES","RJ")
oModelFW3:SetValue("FW3_DTINI",StoD("20190702"))
oModelFW3:SetValue("FW3_DTFIM",StoD("20190705"))
oModelFW3:SetValue("FW3_CLIENT","001 ")
oModelFW3:SetValue("FW3_LOJA","01")
oModelFW3:SetValue("FW3_STATUS","0") // Em AbertoPendiente, statusEstatus inicial
// Informa Preenchela gridcuadrícula dodel servicoservicio incluso naen la solicitacaosolicitud dadel viagemviaje
oModelFW4:SetValue("FW4_ITEM",StrZero(1,TamSX3("FW4_ITEM")[1]))
oModelFW4:SetValue("FW4_TIPO","1") // AereoAéreo
oModelFW4:SetValue("FW4_OBS", "Visita aoal cliente")
// Informa la Preenchecuadrícula gridde doslos participantes viajantesviajeros
oModelFW5:SetValue("FW5_ITEM",StrZero(1,TamSX3("FW4_ITEM")[1]))
oModelFW5:SetValue("FW5_PARTIC","000001")
oModelFW5:SetValue("FW5_ADIANT",.T.) // AdicionaAgrega adiantamentoanticipo aoal participante
oModelFW5:AddLine() // AdicionaAgrega linhalínea para umun segundo viajanteviajero
oModelFW5:SetValue("FW5_ITEM",StrZero(2,TamSX3("FW4_ITEM")[1]))
oModelFW5:SetValue("FW5_PARTIC","000002")
oModelFW5:SetValue("FW5_ADIANT",.T.) // AdicionaAgrega adiantamentoanticipo aoal participante
// Informa Preenchela gridcuadrícula dodel centro de custocosto
oModelFW6:SetValue("FW6_ITEM",StrZero(1,TamSX3("FW4_ITEM")[1]))
oModelFW6:SetValue("FW6_CC","002 ")
oModelFW6:SetValue("FW6_PORCEN",100)
oModelFW5:GoLine(1)
// Validacao e gravacao dos dados seValidación y grabación de los datos si fueran consistentes
If oModel:VldData() 
     oModel:CommitData()
     Conout("InclusaoInclusión de dala solicitacaosolicitud dedel viagemviaje concluidafinalizada comcon sucessoéxito.")
Else 
     VarInfo("",oModel:GetErrorMessage())
     Conout("ErroError en nala validacaovalidación, solicitacaosolicitud de viagemviaje naono foise incluidaincluyó.")
EndIf

oModel:DeActivate()
oModel:Destroy()
RpcClearEnv()

Return


//---------- Modificación Alteracaode dala solicitacaosolicitud de viagemviaje ----------//
User Function MyFA666Alt()

Local aKeyFW4 := {}
Local oModel := Nil
Local oModelFW5 := Nil
Local oModelFW6 := Nil
Local cSolic := "0000000010"

RpcSetEnv("T1","D MG 01 ","richard.santos","1") // Inicializa ambienteentorno comcon usuario solicitante

dbSelectArea("FW3")
dbSetOrder(1)
dbSeek(xFilial("FW3")+cSolic)
// CarregaCarga modelo de dadosdatos comcon ala solicitacaosolicitud de viagemviaje posicionadamarcada
oModel := FWLoadModel("FINA666")
oModelFW5 := oModel:GetModel("FW5DETAIL") // Participantes
oModelFW6 := oModel:GetModel("FW6DETAIL") // Centro de custocosto
// ChaveClave de buscabúsqueda dodel participante dentro de dala solSol. dade viagemViaje
aKeyFW4 := { {"FW5_FILIAL",xFilial("FW5")},{"FW5_SOLICI",cSolic},{"FW5_ITEM","01"},{"FW5_PARTIC","000002"} }

oModel:SetOperation(MODEL_OPERATION_UPDATE)
oModel:Activate()
// Retira Removeuno umde doslos viajantesviajeros, noen este caso oel participante 000002
If oModelFW5:SeekLine(aKeyFLE)
     oModelFW5:DeleteLine()
Else
     Conout("ViajanteViajero naono encontrado en nestaesta solicitacaosolicitud de viagemviaje.")
EndIf
// AlteraModifica oel centro de custocosto (posicionadomarcado automáticamente automaticamenteen nola primeiroprimera gridcuadrícula)
oModelFW6:SetValue("FW6_CC","003 ")

// Validación y Validacaograbación ede gravacaolos dosdatos dadossi sefueran consistentes
If oModel:VldData() 
     oModel:CommitData()
     Conout("AlteracaoModificación de dala solicitacaosolicitud de viagemviaje efetuadaefectuada comcon sucessoéxito.")
Else 
     VarInfo("",oModel:GetErrorMessage())
     Conout("ErroError en nala validacaovalidación, solicitacaosolicitud de viagemviaje naono foise alteradamodificó.")
EndIf

oModel:DeActivate()
oModel:Destroy()
RpcClearEnv()

Return


//---------- ExclusaoBorrado de dala solicitacaosolicitud de viagemviaje ----------//
User Function MyFA666Del()

Local oModel := Nil
Local cSolic := "0000000010"

RpcSetEnv("T1","D MG 01 ","claudio.ribeiro","1") // Inicializa ambienteentorno comcon usuario solicitante

dbSelectArea("FW3")
dbSetOrder(1)
dbSeek(xFilial("FW3")+cSolic)
// CarregaCarga modelo de dadosdatos comcon ala solicitacaosolicitud de viagemviaje posicionadamarcada
oModel:= FWLoadModel("FINA666")
oModel:SetOperation(MODEL_OPERATION_DELETE)
oModel:Activate()

// ValidacaoValidación ey gravacaograbación dadel exclusaoborrado
If oModel:VldData() 
     oModel:CommitData()
     Conout("SolicitacaoSolicitud de viagemviaje excluidaborrada comcon sucessoéxito.")
Else 
     VarInfo("",oModel:GetErrorMessage())
     Conout("ErroError en nala validacaovalidación, solicitacaosolicitud de viagemviaje naono foise excluidaborró.")
EndIf

oModel:DeActivate()
oModel:Destroy()
RpcClearEnv()

Return