Histórico da Página

//Exemplo Utilização Repom

#Include 'PROTHEUS.CH'

User Function TM360AUTOMSA040AUT()
Local aCab   	:= {}
Local aItens  	:= {}
Local
Private 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.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"       := "000000029"
Local cSerie    := "117"
Local cTipPnd   := "01"

Private lMSErroAuto := .F.//--Cabecalho da Ocorrencia
,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_SEQOCOITEM))    , NIL},;
                {"DUA_DATOCO", dDataBase,			 {"DEL_CODOPE","01"                            ,NIL},;
				 {"DUADEL_HOROCOIDOPE", StrTran(SubStr(Time(),1,5),":","")	, NIL},;600805182"                   ,NIL},;
				 {"DUADEL_CODOCOSTATUS", "EINF1",                          ,NIL}})

MsAguarde({||     NIL},;                  
				{"DUA_FILDOC", "30"	,                    MsExecAuto({|x,y,z| OMSA040(x,y,z)},aCab,3,aItens)},"AGUARDE,PROCESSANDO...")

If lMSErroAuto    
	MostraErro()
Else    
	Alert("Concluído com Sucesso !!")
EndIf
	
Return

// Exemplo Utilização Pamcard

#Include 'PROTHEUS.CH'

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

Private lMSErroAuto := .F.

Aadd(aCab,{"DA4_COD"   ,"900002"           ,NIL},;                  
				{"DUA_DOC"   , "001094   ",   )	//-- Código do motorista
Aadd(aCab,{"DA4_NOME"  ,"JOAO DA SILVA",NIL})	//-- Nome do motorista
Aadd(aCab,{"DA4_TIPMOT","3"            ,NIL})	//-- Tipo do motorista (1 = Próprio)
Aadd(aCab,{"DA4_FORNEC"   ,"PAM005"  ,NIL},;)	//-- Fornecedor
Aadd(aCab,{"DA4_LOJA"   ,"01"  ,NIL})	//--             
				{"DUA_SERIE" , "UNILoja Fornecedor
Aadd(aCab,{"DA4_NREDUZ","JSILVA"       ,NIL})	//-- Nome reduzido
Aadd(aCab,{"DA4_END"   ,"RUA JAFFET"  ,NIL})	//-- End
Aadd(aCab,{"DA4_BAIRRO"   ,"CENTRO"  ,NIL})	//-- Bairro
Aadd(aCab,{"DA4_MUN"   ,"SAO PAULO"       ,NIL},;)	//-- MUN
Aadd(aCab,{"DA4_EST"   ,"SP"  ,NIL})	//-- ESTADO
Aadd(aCab,{"DA4_CEP"   ,"04615004"  ,NIL})	//-- CEP
Aadd(aCab,{"DA4_CGC"   ,"00356718905"  ,NIL})	//-- 
				CPF
Aadd(aCab,{"DUADA4_QTDOCOTEL", 100,  ,"23131260"  ,NIL})	//-- TEL
Aadd(aCab,{"DA4_DATNAS"   ,CToD("11/03/2000"),NIL})	//-- DT Nasc
Aadd(aCab,{"DA4_ESTCIV"   ,"S"  ,NIL})	//-- DDD
Aadd(aCab,{"DA4_RG"   ,"25881515"  ,NIL})	//-- RG
Aadd(aCab,{"DA4_RGORG"   ,"SSP"  ,NIL})	//-- RG Origem
Aadd(aCab,{"DA4_RGEST"   ,"SP"  ,NIL},;                         
				{"DUA_PESOCO", 100,)	//-- RG ESTADO
Aadd(aCab,{"DA4_RGDT"   ,CToD("08/03/2008"),NIL})	//-- DT RG
Aadd(aCab,{"DA4_DDD"   ,"011"  ,NIL})	//-- DDD
Aadd(aCab,{"DA4_CODMUN"   ,"50308"  ,NIL})	//-- Cod Mun

//--Itens da ocorrencia:
aAdd(aItens,{{"DEL_ITEM"  ,StrZero(1,Len(DEL->DEL_ITEM)),NIL},;
			 {"DEL_CODOPE","02"                                   ,NIL},;
			 {"DEL_IDOPE" ,"4417819800001812"                   ,NIL},;
				 {"DUADEL_FILVTRSTATUS", "1"	,                          ,NIL},;
			 {"DEL_TIPOID","024"        NIL},;                  ,NIL},;
				 {"DUADEL_NUMVTRCODBAN", "237"	,                                  ,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, aItens, aNFAvaria, 3 ) }, 'AGUARDE, 3,aItens)},"AGUARDE,PROCESSANDO...' ")

If lMSErroAuto    
	MostraErro()
Else    
	Alert("ConclúidoConcluído com Sucesso !! ")
EndIf
	
Return