×
Linguagem de Programação ADVPL
Perguntas Execauto OMSA010
- dexter
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 78
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24082
por dexter
Execauto OMSA010 foi criado por dexter
Boa tarde,
Estou precisando utilizar este ExecAuto para criar todas as tabelas novamente,
mas não esta funcionando, compila tudo certo, quando eu chamo o programa a tela
da tabela vem mas não faz nada e não cria o registro definido na tabela DA1.
Alguém pode ajudar ?
documentação
tdn.totvs.com/pages/releaseview.action?pageId=95617527
Código, tanto pelo IDE PREPARE ENVIRONMENT ou chamando pelo
menu logando no ambiente é a mesma coisa.
Estou precisando utilizar este ExecAuto para criar todas as tabelas novamente,
mas não esta funcionando, compila tudo certo, quando eu chamo o programa a tela
da tabela vem mas não faz nada e não cria o registro definido na tabela DA1.
Alguém pode ajudar ?
documentação
tdn.totvs.com/pages/releaseview.action?pageId=95617527
Código, tanto pelo IDE PREPARE ENVIRONMENT ou chamando pelo
menu logando no ambiente é a mesma coisa.
#INCLUDE 'TBICONN.CH'
#INCLUDE 'PROTHEUS.CH'
User Function MyOMSA010()
Local aCab := {}
Local aItem := {}
Local nOpc := 3
Local cCodTab := "0002"
Local cNomeTab := "SÃO PAULO"
Local cHoraDe := "00:00"
Local cHoraAte := "23:59"
Local cTpHorario := "1"
Local cTabAtiv := "1"
Local cItem := "0001"
Local cProduto := "10000111"
Local nPrcVen := 100
Local cAtivo := "1"
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'admin' PASSWORD 'admin' TABLES "SX2","SX5","SX6","SM4","DA0","DA1" MODULO "FAT"
dbSelectArea("SX2")
dbSelectArea("SX5")
aAdd(aCab,{"DA0_CODTAB", cCodTab, NIL })
aAdd(aCab,{"DA0_DESCRI", cNomeTab, NIL})
aAdd(aCab,{"DA0_DATDE", CTOD("10/07/2014"), 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()
Alert("falha na gravacao")
EndIf
Alert("Gravado com sucesso!")
RESET ENVIRONMENT
Return(.T.)
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.146 segundos