||Descrição|| Rotina automática da tabela de Preços  
||Observações|| 
||Exemplos||#INCLUDE "TBICONN.CH" 
#INCLUDE "PROTHEUS.CH"
User Function MyOmsa010()
Local aCab            := {}
Local aItem            := {}
Local nOpc            := 3
Local cCodTab        := "007" 
Local cNomeTab        := "TABELA EXECAUTO" 
Local cHoraDe         := "00:00"
Local cHoraAte        := "23:59"
Local cTpHorario      := "1"
Local cTabAtiv        := "1" 
Local cItem            := "0001"
Local cProduto        := "01             "            
Local nPrcVen        := 100
Local cAtivo        := "1"
PRIVATE lMsErroAuto := .F.
 
dbSelectArea("SX2")
dbSelectArea("SX5")
PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01'  USER "CX2" PASSWORD 'CX2' TABLES "SX2","SX5","SM4","DA0","DA1" MODULO "FAT" 
aAdd(aCab,{||"DA0_CODTAB", cCodTab, NIL||})
aAdd(aCab,{||"DA0_DESCRI", cNomeTab, NIL})
aAdd(aCab,{||"DA0_DATDE", dDatabase, NIL})
aAdd(aCab,{||"DA0_HORADE", cHoraDe, NIL})
aAdd(aCab,{||"DA0_TPHORA", cTpHorario, NIL})
aAdd(aCab,{||"DA0_ATIVO", cTabAtiv, NIL})

aAdd(aItem,{||{||"DA1_ITEM",   cItem,            NIL},;
            {||"DA1_CODPRO", cProduto,         NIL},;
            {||"DA1_PRCVEN", nPrcVen,          NIL}})

Omsa010(aCab,aItem,nOpc)
If    lMsErroAuto 
        lRet := .F.
        DisarmTransaction()
        Mostraerro()
EndIf             
RESET ENVIRONMENT
Return(.T.)  
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10_e_Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| OMSA010.PRX