Histórico da Página

#Include 'PROTHEUS.CH'

User Function TM360AUTOMSA040AUT()
Local aCab   	:= {}
Local aItens  	:= {}

LocalPrivate aNFAvarialMSErroAuto := {}
Local cSeq		:= '001'
Local nPesoNota := 1000 // Peso da Nota
Local nQtdVol	:= 10 //Qtde de Volumes
Local nNumNFC   := '098765432'
Local cSerieNF	:= '123' //Serie da NF
Local nQtdAva   := 1 //Qtde Avaria 
Local cCodOco   := "E008"
Local cFilDoc   := "M SP 01 "
Local cDoc      := "000000029"
Local cSerie    := "117"
Local cTipPnd   := "01"

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

Aadd(aCab,{"DA4_COD"   ,"900001"       ,NIL})	//-- Código do motorista
Aadd(aCab,{"DA4_NOME"  ,"JOSE DA SILVA",NIL})	//-- Nome do motorista
Aadd(aCab,{"DA4_TIPMOT","1"            ,NIL})	//-- Tipo do motorista (1 = Próprio)
Aadd(aCab,{"DUADA4_FILORINREDUZ", "30JSILVA"		, NIL})      ,NIL})	//-- Informe a Filial de Origem da ViagemNome reduzido
Aadd(aCab,{"DUADA4_VIAGEMCGC"   , "00000449657627460"  , NIL}) 		// Informe o numero da Viagem-- CPF

//--Itens da ocorrencia:
aAdd( aItens, {	{"DUADEL_SEQOCOITEM"  , StrZero(1,Len(DUADEL->DUA>DEL_SEQOCO))    , NIL},;
                {"DUA_DATOCO", dDataBase,                            ITEM)),NIL},;
				{"DUA_HOROCO", StrTran(SubStr(Time(),1,5),":","")	, NIL},;                  
				{"DUADEL_CODOCOCODMOT", "EINF900001",                               ,NIL},;                  
				 {"DUADEL_FILDOCCODOPE", "3002"	,                               ,NIL},;                  
				{"DUA_DOC"   , "001094   ",                          NIL},;                  
				{"DUADEL_SERIEIDOPE" , "UNI"      ,                          NIL},;12345678"                  
				{"DUA_QTDOCO", 100,                                  NIL},;                         
				{"DUA_PESOCO", 100,                                  NIL},;			                  
				{"DUADEL_FILVTRSTATUS", ""	,                          1"        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| TMSA360OMSA040(x,y,z)}, aCab,3, aItens, aNFAvaria, 3 ) }, '"AGUARDE, PROCESSANDO...' ")

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