×
Linguagem de Programação ADVPL
Perguntas Erro Rotina Padrao
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11689
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
Vc está querendo mostrar um browse com a lista dos pedidos gerados ? é isso ? ai é outros 500 rsrs
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
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11692
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(strzero(val(NMAX)+1,6))) ENABLE OF oDlg
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
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11695
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
User Function VerPedido(cPed)
Local aArea := GetArea()
PRIVATE lOnUpdate := .T.
PRIVATE l410Auto := .F.
PRIVATE aAutoCab := {}
PRIVATE aAutoItens := {}
PRIVATE aRotina := MenuDef()
PRIVATE cCadastro := "Visualização de Pedidos de Venda"
dbSelectArea("SC5")
SC5->(dbSetOrder(1), dbSeek(xFilial("SC5")+cPed))
A410Visual( Alias() , Recno() , 2 ) //Visualização do pedido de vendas
RestArea(aArea)
Return .t.
Local aArea := GetArea()
PRIVATE lOnUpdate := .T.
PRIVATE l410Auto := .F.
PRIVATE aAutoCab := {}
PRIVATE aAutoItens := {}
PRIVATE aRotina := MenuDef()
PRIVATE cCadastro := "Visualização de Pedidos de Venda"
dbSelectArea("SC5")
SC5->(dbSetOrder(1), dbSeek(xFilial("SC5")+cPed))
A410Visual( Alias() , Recno() , 2 ) //Visualização do pedido de vendas
RestArea(aArea)
Return .t.
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.137 segundos