Histórico da Página

||Descrição|| A função OMSA010 executa a rotina automática da tabela de Preços.
||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.)  
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10_e_Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Programa Fonte|| OMSA010.PRX