Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function OM200GR2()
	Local aArrayRota 	:= PARAMIXB[2] 
	Local aArrayZona 	:= PARAMIXB[3] 
	Local aArraySetor 	:= PARAMIXB[4] 

	aAdd(aArrayRota,{.T.,.F.,"000026","ROTA A NEGOCIAR", Space(6)})
	aAdd(aArrayZona,{.T.,.F.,"000026","000027","ROTA A NEGOCIAR",Space(6), "000010" })
	aAdd(aArraySetor,{.T.,.F.,"000026","000027","000027","ROTA A NEGOCIAR",Space(6), "000010"})

	TRBPED->(DbSetOrder(1)) 
	If TRBPED->(DbSeek(FwxFilial('SC5')+"000026"))
		RecLock("TRBPED",.F.)
		TRBPED->PED_ENDCLI := "Endereço de teste"
		TRBPED->(MsUnlock())
	EndIf

	RecLock("TRBPED",.T.)
		TRBPED->PED_GERA	:= "N"
		TRBPED->PED_MARCA	:= " "
		TRBPED->PED_ROTA	:= "000026"
		TRBPED->PED_ZONA	:= "000027"
		TRBPED->PED_SETOR	:= "000027"
		TRBPED->PED_SEQROT	:= "000010"
		TRBPED->PED_PEDIDO	:= "000027"
		TRBPED->PED_ITEM	:= "01"
		TRBPED->PED_SEQLIB	:= "01"
		TRBPED->PED_CODPRO	:= "001"
		TRBPED->PED_DESPRO	:= "LAPIS"
		TRBPED->PED_FILORI	:= "01"
		TRBPED->PED_FILCLI	:= "  "
		TRBPED->PED_CODCLI	:= "000001"
		TRBPED->PED_LOJA	:= "01"
		TRBPED->PED_NOME	:= "CLIENTE A"
		TRBPED->PED_ENDCLI	:= "AVENIDA A"
		TRBPED->PED_BAIRRO	:= "BAIRRO A"
		TRBPED->PED_MUN		:= "MUNICIPIO A"
		TRBPED->PED_EST		:= "SC"
		TRBPED->PED_CEP		:= "99999999"
		TRBPED->PED_CARGA	:= "ZZZZZZ"
		TRBPED->PED_SEQSET	:= "000010"
		TRBPED->PED_SEQORI	:= "000010"
		TRBPED->PED_ENDPAD	:= "               "
		TRBPED->PED_VALOR	:=	5
		TRBPED->PED_VOLUM	:= 10
		TRBPED->PED_QTDLIB	:= 5
	TRBPED->(MsUnlock())

Return {aArrayRota,aArrayZona,aArraySetor}