Histórico da Página

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

User Function TM360AUTIncVgeMod3()

Local aCabcCodVei   	:= {}
Local aItens  	:= {}"TMS001" 	// Código do veículo
Local aNFAvariacCodRb1 := {}
Local cSeq""		:= '001'
Local nPesoNota := 1000  	// Código Pesodo daprimeiro NotaReboque
Local cCodRb2 nQtdVol	:= 10 //Qtde de Volumes
Local nNumNFC   := '098765432'
Local cSerieNF	:= '123' //Serie da NF
Local nQtdAva""     	// Código do segundo Reboque
Local cCodMot := "TMS001" 	// Código do motorista
Local lRet    := 1 //Qtde Avaria .T.
Local cCodOcocRota   := "E008ENTSP3"
Local cFilDoc   := "M SP 01 "
Local cDoc   //Código da rota
   := "000000029"
Local cSerie   oModel := FwLoadModel("117TMSAF60"
Local cTipPnd   := "01"

Private lMSErroAuto := .F.//--Cabecalho da Ocorrencia

Aadd(aCab,{"DUA_FILORI", "30)
	oModel:SetOperation(MODEL_OPERATION_INSERT)
	oModel:Activate()		
	//---- DTQ
	oModel:SetValue( "MdFieldDTQ", "DTQ_SERTMS"		, NIL})      // Informe a Filial de Origem da Viagem
Aadd(aCab,{"DUA_VIAGEM", "000004", NIL}) 		// Informe o numero da Viagem

//--Itens da ocorrencia:
aAdd( aItens, {	{"DUA_SEQOCO", StrZero(1,Len(DUA->DUA_SEQOCO))    , NIL},;
                {"DUA_DATOCO", dDataBase,                            NIL},;
				{"DUA_HOROCO", StrTran(SubStr(Time(),1,5),":","")	, NIL},;                  
				{"DUA_CODOCO", "EINF",                               NIL},;                  
				{"DUA_FILDOC", "30"	,                               NIL},;                  
				{"DUA_DOC"   , "001094   ",                          NIL},;                  
				{"DUA_SERIE" , "UNI"      ,                          NIL},;                  
				{"DUA_QTDOCO", 100,                                  NIL},;                         
				{"DUA_PESOCO", 100,                                  NIL},;			                  
				{"DUA_FILVTR", ""	,                                  NIL},;                  
				{"DUA_NUMVTR", ""	,                                  NIL}})			


aNFAvaria := {{cFilDoc + cDoc + cSerie, {{cNumNFc, cSerNFc, nQtdVol, nQtdAva}},{{cNumNFc, (nPesoNota / nQtdVol)}}, cCodOco, cTipPnd, "1"}}

lMsErroAuto := .F.MsAguarde( {|| MsExecAuto( {|x,y,z| TMSA360(x,y,z)}, aCab, aItens, aNFAvaria, 3 ) }, 'AGUARDE, PROCESSANDO...' )

If lMSErroAuto    
	MostraErro()
Else    
	Alert("Conclúido com Sucesso !! ")
EndIf
	
Return

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