Histórico da Página

Image Added

CONTEÚDO

Índice

indent	8.1.
exclude	.*CONTEÚDO
style	none

01. VISÃO GERAL

A rotina de Registro de Ocorrências é uma rotina de apontamento de registro de ocorrências por Documento ou ViagemViagem Modelo 3, permite a inclusão de viagens (entrega / transporte), permitindo selecionar as rotas e os documentos em aberto vinculados a ela pela consulta padrão.

É possível ainda utilizar processo de viagem entrega com serviço adicional de coleta.

02. OBJETIVO DE UTILIZAÇÃO

...

O conteúdo das variáveis deverão ser enviados no instante da execução da rotina. Vide exemplo abaixo.

04. EXEMPLO DE EXECUÇÃO DE PROGRAMA

...

Bloco de código

language	actionscript3
theme	Midnight

#INCLUDE "TOTVS.CH"
#INCLUDE "protheus.ch"
#INCLUDE 'FWMVCDEF.ch'

User Function IncVgeMod3()

Local cCodVei := "TMS001" 	// Código do veículo
Local cCodRb1 := ""		 	// Código do primeiro Reboque
Local cCodRb2 := ""     	// Código do segundo Reboque
Local cCodMot := "TMS001" 	// Código do motorista
Local lRet    := .T.
Local cRota   := "ENTSP3"   //Código da rota
    
    oModel := FwLoadModel("TMSAF60")
	oModel:SetOperation(MODEL_OPERATION_INSERT)
	oModel:Activate()		
	//---- DTQ
	oModel:SetValue( "MdFieldDTQ", "DTQ_SERTMS"		, StrZero( 3, Len( DTQ->DTQ_SERTMS )) )
	oModel:SetValue( "MdFieldDTQ", "DTQ_TIPTRA"		, StrZero( 1, Len( DTQ->DTQ_TIPTRA )) )
	oModel:SetValue( "MdFieldDTQ", "DTQ_TIPVIA"		, StrZero( 3, Len( DTQ->DTQ_TIPVIA )) ) //Planejada
	oModel:SetValue( "MdFieldDTQ", "DTQ_ROTA"		, AllTrim(cRota) )

	//---- DTR
	oModel:SetValue( "MdGridDTR", "DTR_ITEM"		,  StrZero( 1, Len( DTR->DTR_ITEM ) ))
	oModel:SetValue( "MdGridDTR", "DTR_CODVEI"		, cCodVei)		
	If !Empty( cCodRb1 )
		oModel:SetValue( "MdGridDTR", "DTR_CODRB1"	, cCodRb1)
	EndIf
	If !Empty( cCodRb2 )
		oModel:SetValue( "MdGridDTR", "DTR_CODRB2"	, cCodRb2)
	EndIf	

	//--- DUP
	oModel:SetValue( "MdGridDUP", "DUP_CODMOT"		, cCodMot)
	oModel:SetValue( "MdGridDUP", "DUP_CONDUT"		, '1')

	If !oModel:VldData() .Or. !oModel:CommitData()
		AAdd(aMsgErr,{"Falha ao Incluir Viagem"+oModel:GetErrorMessage()[6],'00','ExecAuto()'}) //"Falha ao Incluir Viagem - " 
		lRet:= .F.		
	Else
		cRet := oModel:GetValue( "MdFieldDTQ", "DTQ_VIAGEM")
	EndIf

	oModel:DeActivate()
	oModel:= Nil

Return lRet

05. ASSUNTOS RELACIONADOS

ID's dos Modelos MVC - Viagem Modelo 3 (TMSAF60 - SIGATMS)

ID's dos Modelos MVC - Carregamento Modelo 3 (TMSAF90 - SIGATMS)

Automação da Viagem Modelo 3 (TMSAF69 - SIGATMS)

06. TABELAS UTILIZADAS

DTQ
DTQ - Viagem
DTR - Veículos da Viagem
DUA - Ocorrências
DUP - Motoristas da Viagem

HTML

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave