×
Linguagem de Programação ADVPL
Perguntas Erro Rotina Padrao
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11673
por vcardoso
Erro Rotina Padrao foi criado por vcardoso
Galera! Sou eu de novo kkkkk.
Estou realizando um MsExecAuto() na rotina MATA410. Ate agora eu consegui chamar a rotina, mas quando clico em SAIR. Me aparece este erro:
Clique Aqui Para Ver o Erro
Segue a linha de codigo que estou montando a tela:
DEFINE MSDIALOG oDlg TITLE "Consulta Pedido" FROM 000,000 TO 100,200 PIXEL
@ 010, 010 SAY "Deseja Visualizar a lista de pedidos?" SIZE 100,100 OF oDlg PIXEL
DEFINE SBUTTON FROM 030, 010 TYPE 1 ACTION (nOpca := 1, MsExecAuto(Mata410())) ENABLE OF oDlg
DEFINE SBUTTON FROM 030, 040 TYPE 2 ACTION (nOpca := 2, oDlg:End()) ENABLE OF oDlg
ACTIVATE MSDIALOG oDlg CENTERED
Estou realizando um MsExecAuto() na rotina MATA410. Ate agora eu consegui chamar a rotina, mas quando clico em SAIR. Me aparece este erro:
Clique Aqui Para Ver o Erro
Segue a linha de codigo que estou montando a tela:
DEFINE MSDIALOG oDlg TITLE "Consulta Pedido" FROM 000,000 TO 100,200 PIXEL
@ 010, 010 SAY "Deseja Visualizar a lista de pedidos?" SIZE 100,100 OF oDlg PIXEL
DEFINE SBUTTON FROM 030, 010 TYPE 1 ACTION (nOpca := 1, MsExecAuto(Mata410())) ENABLE OF oDlg
DEFINE SBUTTON FROM 030, 040 TYPE 2 ACTION (nOpca := 2, oDlg:End()) ENABLE OF oDlg
ACTIVATE MSDIALOG oDlg CENTERED
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 8 meses atrás #11675
por kanaamlrr
Respondido por kanaamlrr no tópico Erro Rotina Padrao
Cara, quando você clicar no botão, você precisa realizar qual operação?
Simplesmente abrir a tela dos pedidos? (mata410) ou realizar alguma operação neles?
Simplesmente abrir a tela dos pedidos? (mata410) ou realizar alguma operação neles?
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11677
por vcardoso
Respondido por vcardoso no tópico Erro Rotina Padrao
Eu preciso so abrir a tela, ate ai eu consegui.
Tela de pedido de venda, ao abrir, eu localizo uma qualquer e visualizo. Ate ai OK
Quando termino de ver o que eu quero, clico em SAIR e aparece esse erro. Aos inves de voltar pra rotina que chama a MATA410.
Tela de pedido de venda, ao abrir, eu localizo uma qualquer e visualizo. Ate ai OK
Quando termino de ver o que eu quero, clico em SAIR e aparece esse erro. Aos inves de voltar pra rotina que chama a MATA410.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11679
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Erro Rotina Padrao
DEFINE SBUTTON FROM 030, 010 TYPE 1 ACTION (nOpca := 1, U_VerPedido(SC5->C5_NUM)) ENABLE OF oDlg
User Function VerPedido( cPedido )
Local aAreaAnt := GetArea()
Local aAreaSC5 := SC5->( GetArea() )
Local aRotAnt := {}
PRIVATE aRotina := { { 'Pesquisar' ,'AxPesqui' ,0,1},; //'Pesquisar'
{ 'Visualizar','A410Visual',0,2} } //'Visualizar'
If Type( 'aRotina' ) == 'A'
aRotAnt := aClone( aRotina )
EndIf
DbSelectArea('SC5')
DbSetOrder(1)
If MsSeek( xFilial('SC5') + cPedido, .F. )
A410Visual( 'SC5', Recno(), 2 )
EndIf
If !Empty( aRotAnt )
aRotina := aClone( aRotAnt )
EndIf
RestArea( aAreaSC5 )
RestArea( aAreaAnt )
Return NIL
User Function VerPedido( cPedido )
Local aAreaAnt := GetArea()
Local aAreaSC5 := SC5->( GetArea() )
Local aRotAnt := {}
PRIVATE aRotina := { { 'Pesquisar' ,'AxPesqui' ,0,1},; //'Pesquisar'
{ 'Visualizar','A410Visual',0,2} } //'Visualizar'
If Type( 'aRotina' ) == 'A'
aRotAnt := aClone( aRotina )
EndIf
DbSelectArea('SC5')
DbSetOrder(1)
If MsSeek( xFilial('SC5') + cPedido, .F. )
A410Visual( 'SC5', Recno(), 2 )
EndIf
If !Empty( aRotAnt )
aRotina := aClone( aRotAnt )
EndIf
RestArea( aAreaSC5 )
RestArea( aAreaAnt )
Return NIL
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
Tempo para a criação da página:0.151 segundos