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.

• Estes itens de serviço são parametrizáveis e estão no Assistente de Configuração. Caso a empresa não ofereça algum destes itens em sua política, será possível oculta-lo(s).
• O item Outros é o único em que não é necessário a compra de serviço, logo solicitações somente com este serviço não passam pela etapa de conferência da solicitação. Esta é necessária quando um colaborador deseja solicitar somente um adiantamento, pois irá fazer, por exemplo, uma visita a um cliente com veículo próprio e deseja somente o adiantamento.

• Estos ítems de servicio son parametrizables y están en el asistente de configuración Si la empresa no ofrece alguno de estos ítems en su política, se puede ocultarlos.
• El ítem Otros es el único en que no es necesario comprar servicio, entonces solicitudes solo con este servicio no pasan por la etapa de verificación de la solicitud. Esta es necesaria cuando un colaborador desea solicitar solamente un anticipo, porque hará, por ejemplo, una visita a un cliente con vehículo propio y desea solamente el anticipo.

#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
// PreencheInforma la gridcuadrícula dodel servicoservicio incluso en nala 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, en noeste caso oel participante 000002
If oModelFW5:SeekLine(aKeyFLE)
     oModelFW5:DeleteLine()
Else
     Conout("ViajanteViajero naono encontrado nestaen esta 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