Histórico da Página

#include "tbiconn.ch"
#include "PROTHEUS.CH"
#include "FWMVCDEF.CH"


User Function OMSA090U()
Local nOpcao, aCab, aClientes, aCeps
Local cErro := ""
Local lRet  := .T.

Local _cEmpresa := "99" // Código da Empresa que deseja manipular
Local _cFilial  := "01" // Código da Filial que deseja manipular

   PREPARE ENVIRONMENT EMPRESA _cEmpresa FILIAL _cFilial MODULO "OMS"

   SetFunName("OMSA090")

   nOpcao := MODEL_OPERATION_UPDATE

   aCab := Array(2)
   aCab[1] := {"DA7_PERCUR","ZONTST"}
   aCab[2] := {"DA7_ROTA"  ,"SET002"}

   aClientes := {}
   // AAdd(aClientes, { {"DA7_SEQUEN","000001"}, {"DA7_CLIENT","L00001"}, {"DA7_LOJA","01"} } )
   // AAdd(aClientes, { {"DA7_SEQUEN","000002"}, {"DA7_CLIENT","L00001"}, {"DA7_LOJA","02"} } )

   AAdd(aClientes,{ {"LINPOS","DA7_SEQUEN","000003"}, {"AUTDELETA","S",Nil} } ) 

   aCeps := {}
   AAdd(aCeps, { {"DA7_SEQUEN","000001"}, {"DA7_CEPDE","89200000"}, {"DA7_CEPATE","89299999"} } )

   If (lRet := U_OMSA090A(nOpcao, aCab, aClientes, aCeps, @cErro))
      conout("Pontos por setor alterados com sucesso.")
   Else
      conout("Erro na alteração de pontos por setor: " + cErro)
   EndIf

   RESET ENVIRONMENT
Return