Histórico da Página

#Include 'PROTHEUS.CH'

User Function TM360AUT()
Local aCab   	:= {}
Local aItens  	:= {}
Local aNFAvaria := {}
Local cSeq		:= '001'
Local aNF		:= {}
Local aCols		:= {}
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

Aadd(aCab,{"DUA_FILORI", "30"		, 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}})			


aAdd(aNf,{nNumNFC , (nPesoNota / nQtdVol)})
aAdd(aCols,{nNumNFC, cSerieNF, nQtdVol, nQtdVol, .F.})

aAdd(aNFAvaria,aNFAvaria := {{cFilDoc + cDoc +cSerie,;
				aCols,;
				aNF,;
				'ABC',; //Codigo da Ocorrência
				'6',; //Tipo de Pendencia
				AllTrim(Str(Val(cSeq)))})
 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