- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Criar campo no cabecalho do pedido de compra
×
Linguagem de Programação ADVPL
Perguntas Criar campo no cabecalho do pedido de compra
- Marcos Vinicios
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
11 anos 3 semanas atrás #13040
por Marcos Vinicios
Criar campo no cabecalho do pedido de compra foi criado por Marcos Vinicios
Pessoal, Bom Dia!
Preciso criar alguns campos no cabecalho do pedido de compra para um cliente, vi que só cria-se por ponto de entrada...alguem sabe qual o procedimento para isso? A totvs poderia facilitar também, e deixar o cabecalho do pedido de compra semelhante ao do pedido de venda, nao acham?
Enfim, espero a ajuda ou dica de alguem. Obrigado desde já.
Atenciosamente,
Marcos Santiago
Totvs BS
Preciso criar alguns campos no cabecalho do pedido de compra para um cliente, vi que só cria-se por ponto de entrada...alguem sabe qual o procedimento para isso? A totvs poderia facilitar também, e deixar o cabecalho do pedido de compra semelhante ao do pedido de venda, nao acham?
Enfim, espero a ajuda ou dica de alguem. Obrigado desde já.
Atenciosamente,
Marcos Santiago
Totvs BS
Por favor Acessar ou Registrar para participar da conversa.
- fabiola.leitao
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 22
- Obrigados Recebidos: 0
11 anos 3 semanas atrás - 11 anos 3 semanas atrás #13053
por fabiola.leitao
Respondido por fabiola.leitao no tópico Criar campo no cabecalho do pedido de compra
Boa tarde Marcos.
Realmente, dei uma procurada no fonte padrão, e não existe nenhum ponto de entrada que permita este tipo de manipulação.
Todavia, já que é um caso para atender exclusivamente um cliente, você tem duas alternativas:
- Criar o campo no SC7 e incluir a informação via APSDU;
- Criar um AxCadastro da tabela SC7, para lançar as informações que você precisa.
Estas seriam soluções paliativas.
Att.
Fabíola Leitão.
Realmente, dei uma procurada no fonte padrão, e não existe nenhum ponto de entrada que permita este tipo de manipulação.
Todavia, já que é um caso para atender exclusivamente um cliente, você tem duas alternativas:
- Criar o campo no SC7 e incluir a informação via APSDU;
- Criar um AxCadastro da tabela SC7, para lançar as informações que você precisa.
Estas seriam soluções paliativas.
Att.
Fabíola Leitão.
Ultima edição: 11 anos 3 semanas atrás por fabiola.leitao.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 semanas atrás #13063
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 Criar campo no cabecalho do pedido de compra
Tenta essa Dica:
Vc poderia criar pastas logo após a grade de produtos.
São 03 pontos de entrada:
//MT120TEL - Cria a pasta (s)
//MT120FOL - Mostra os campos criados no configurador
//MTA120G2 - Grava os dados
#INCLUDE "rwmake.ch"
#INCLUDE "Topconn.ch"
#INCLUDE "Protheus.ch"
User Function MT120TEL( )
Local aArea := GetArea()
AAdd( aTitles, 'Inf.Usado' )
AAdd( aTitles, 'Obs.Usado' )
RestArea( aArea )
Return Nil
User Function MT120FOL( )
Local aArea := GetArea()
Local nOpc := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local _oMemo := ""
Static _aIbipora := {}
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UVEICUL, Space(20)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UMARCA, Space(20)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UPLACA, Space(10)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL1, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL2, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL3, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL4, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UOBS1 , ""))
If nOpc <> 1
@ 006,aPosGet[1,1] SAY OemToAnsi('Veiculo :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 005,aPosGet[1,2] MSGET _aIbipora[1] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 019,aPosGet[1,1] SAY OemToAnsi('Marca :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 018,aPosGet[1,2] MSGET _aIbipora[2] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 032,aPosGet[1,1] SAY OemToAnsi('Placa :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 031,aPosGet[1,2] MSGET _aIbipora[3] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 006,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 005,aPosGet[1,4] MSGET _aIbipora[4] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 019,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 018,aPosGet[1,4] MSGET _aIbipora[5] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 032,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 031,aPosGet[1,4] MSGET _aIbipora[6] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 045,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 044,aPosGet[1,4] MSGET _aIbipora[7] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 006,aPosGet[1,1] SAY OemToAnsi('Obs. :') OF oFolder:aDialogs[8] PIXEL SIZE 070,009
_oMemo:= tMultiget():New(015,aPosGet[1,1],{|u|if(Pcount()>0,_aIbipora[8]:=u,_aIbipora[8])},oFolder:aDialogs[8],200,041,,,,,,.T.)
Endif
RestArea( aArea )
Return Nil
User Function MTA120G2()
Local aArea := GetArea()
SC7->C7_UVEICUL := _aIbipora[1]
SC7->C7_UMARCA := _aIbipora[2]
SC7->C7_UPLACA := _aIbipora[3]
SC7->C7_UCOMPL1 := _aIbipora[4]
SC7->C7_UCOMPL2 := _aIbipora[5]
SC7->C7_UCOMPL3 := _aIbipora[6]
SC7->C7_UCOMPL4 := _aIbipora[7]
SC7->C7_UOBS1 := Upper(_aIbipora[8])
RestArea( aArea )
Return
Vc poderia criar pastas logo após a grade de produtos.
São 03 pontos de entrada:
//MT120TEL - Cria a pasta (s)
//MT120FOL - Mostra os campos criados no configurador
//MTA120G2 - Grava os dados
#INCLUDE "rwmake.ch"
#INCLUDE "Topconn.ch"
#INCLUDE "Protheus.ch"
User Function MT120TEL( )
Local aArea := GetArea()
AAdd( aTitles, 'Inf.Usado' )
AAdd( aTitles, 'Obs.Usado' )
RestArea( aArea )
Return Nil
User Function MT120FOL( )
Local aArea := GetArea()
Local nOpc := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local _oMemo := ""
Static _aIbipora := {}
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UVEICUL, Space(20)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UMARCA, Space(20)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UPLACA, Space(10)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL1, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL2, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL3, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UCOMPL4, Space(60)))
aadd(_aIbipora,If (nOpc == 4 .OR. nOpc == 2, C7_UOBS1 , ""))
If nOpc <> 1
@ 006,aPosGet[1,1] SAY OemToAnsi('Veiculo :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 005,aPosGet[1,2] MSGET _aIbipora[1] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 019,aPosGet[1,1] SAY OemToAnsi('Marca :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 018,aPosGet[1,2] MSGET _aIbipora[2] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 032,aPosGet[1,1] SAY OemToAnsi('Placa :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 031,aPosGet[1,2] MSGET _aIbipora[3] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 100,009 HASBUTTON
@ 006,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 005,aPosGet[1,4] MSGET _aIbipora[4] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 019,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 018,aPosGet[1,4] MSGET _aIbipora[5] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 032,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 031,aPosGet[1,4] MSGET _aIbipora[6] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 045,aPosGet[1,3] SAY OemToAnsi('Complemento :') OF oFolder:aDialogs[7] PIXEL SIZE 070,009
@ 044,aPosGet[1,4] MSGET _aIbipora[7] PICTURE '@!' OF oFolder:aDialogs[7] PIXEL SIZE 150,009 HASBUTTON
@ 006,aPosGet[1,1] SAY OemToAnsi('Obs. :') OF oFolder:aDialogs[8] PIXEL SIZE 070,009
_oMemo:= tMultiget():New(015,aPosGet[1,1],{|u|if(Pcount()>0,_aIbipora[8]:=u,_aIbipora[8])},oFolder:aDialogs[8],200,041,,,,,,.T.)
Endif
RestArea( aArea )
Return Nil
User Function MTA120G2()
Local aArea := GetArea()
SC7->C7_UVEICUL := _aIbipora[1]
SC7->C7_UMARCA := _aIbipora[2]
SC7->C7_UPLACA := _aIbipora[3]
SC7->C7_UCOMPL1 := _aIbipora[4]
SC7->C7_UCOMPL2 := _aIbipora[5]
SC7->C7_UCOMPL3 := _aIbipora[6]
SC7->C7_UCOMPL4 := _aIbipora[7]
SC7->C7_UOBS1 := Upper(_aIbipora[8])
RestArea( aArea )
Return
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.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 semanas atrás #13065
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 Criar campo no cabecalho do pedido de compra
OU Use este ponto de entrada:
MT120GET
tdn.totvs.com/plugins/viewsource/viewpag...ction?pageId=6085476
aPosObj := If(ValType(aPosObjPE:=ExecBlock("MT120GET",.F.,.F.,{aPosObj,nOpcx}))== "A",aPosObjPE,aPosObj)
MT120GET
tdn.totvs.com/plugins/viewsource/viewpag...ction?pageId=6085476
aPosObj := If(ValType(aPosObjPE:=ExecBlock("MT120GET",.F.,.F.,{aPosObj,nOpcx}))== "A",aPosObjPE,aPosObj)
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Criar campo no cabecalho do pedido de compra
Tempo para a criação da página:0.118 segundos