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 Viagem.Viagem 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

Realizar processamento da rotina (inclusão de Registro de Ocorrências registro) de Viagem Mod. 3 de forma automática.

03. PARÂMETROS

...

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

theme
language	actionscript3

Function TMSA250EA()
Local lRet := .F.
Local aVisErr := {}

...

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 - Viagem
DTR - Veículos da Viagem
DUA - Ocorrências
DUP - Motoristas da Viagem

05. TABELAS UTILIZADAS

DUA - Registro de Ocorrências

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 1

Nova versão Atual

Chave