Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject MT11OTEL Exemplo
Mensagem do Enviar e-mail Abrir o Perfil do usuário C_SERVULO C_SERVULO em 3/8/2019 as 12:16 hs
Local: SP   Registrada: 5/30/2008  Postagem: 16
Boa tarde , pessoal

Preciso de um exemplo do ponto de entrada MT110TEL manutenção de um campo novo no cabeçalho da solcitação de compra .

Atenciosamente,
Claudio Servulo
Consultor Microsiga

Mensagem do Enviar e-mail Abrir o Perfil do usuário TPE113 TPE113 em 4/25/2019 as 17:22 hs
Local: PE   Registrada: 7/26/2010  Postagem: 43
User Function MT110TEL
Local oNewDialog := PARAMIXB[1]
Local aPosGet    := PARAMIXB[2]
Local nOpcx      := PARAMIXB[3]
Local nReg       := PARAMIXB[4]

Public _ofont1:=TFont():New("ARIAL",7,13,,.T.,,,,,.F.) // Negrito (.T.)
Public cSayTotSC := "Total SC"
Public cSayTipSC := "Tipo da SC"
Public cSayDapSC := "Data Aprovação"
Public oVlBBra
Public oVlTotSC
Public oSayTotSC
Public oSayTipSC
Public oSayDapSC
Public oComboBox
Public oDtAprova

Public cUrgente := CriaVar('C1_YURGENT')
Public nTotalSC := CriaVar('C1_XTOTAL')
Public dDtAprova := CriaVar('C1_XDTAPRO')

     
     If !INCLUI //nOpcx == 3

          Public nTotalSC := CriaVar('C1_XTOTAL')      
          cUrgente := SC1->C1_YURGENT
          nTotalSC := SC1->C1_XTOTAL
          dDtAprova := SC1->C1_XDTAPRO
     Endif
     
     AADD(aPosGet[1],0)

     @ aPosGet[1,1]+42,250 MSGET oSayTotSC Var cSayTotSC Picture "@!" SIZE 045, 011 Of oNewDialog Pixel When .F.
     @ aPosGet[1,1]+42,300 MSGET oVlTotSC   Var nTotalSC Picture PesqPict("SC1","C1_XTOTAL") SIZE 075, 010 Of oNewDialog Pixel When .F.
     oVlTotSC:oFont:=_ofont1
     oSayTotSC:oFont:=_ofont1

     @ aPosGet[1,1]+42,480 MSGET oSayDapSC Var cSayDapSC Picture "@!" SIZE 070, 011 Of oNewDialog Pixel When .F.
     @ aPosGet[1,1]+42,563 MSGET oDtAprova Var dDtAprova Picture PesqPict("SC1","C1_XDTAPRO") SIZE 060, 010 Of oNewDialog Pixel When .F.
     oSayDapSC:oFont:=_ofont1
     oDtAprova:oFont:=_ofont1
Endif    

Josue Izidio
   Diretor Executivo
        JESCIPE
http://jisopiniao.blogspot.com.br/

Mensagem do Enviar e-mail Abrir o Perfil do usuário TPE113 TPE113 em 4/25/2019 as 17:22 hs
Local: PE   Registrada: 7/26/2010  Postagem: 43
User Function MT110TEL
Local oNewDialog := PARAMIXB[1]
Local aPosGet    := PARAMIXB[2]
Local nOpcx      := PARAMIXB[3]
Local nReg       := PARAMIXB[4]

Public _ofont1:=TFont():New("ARIAL",7,13,,.T.,,,,,.F.) // Negrito (.T.)
Public cSayTotSC := "Total SC"
Public cSayTipSC := "Tipo da SC"
Public cSayDapSC := "Data Aprovação"
Public oVlBBra
Public oVlTotSC
Public oSayTotSC
Public oSayTipSC
Public oSayDapSC
Public oComboBox
Public oDtAprova

Public cUrgente := CriaVar('C1_YURGENT')
Public nTotalSC := CriaVar('C1_XTOTAL')
Public dDtAprova := CriaVar('C1_XDTAPRO')

     
     If !INCLUI //nOpcx == 3

          Public nTotalSC := CriaVar('C1_XTOTAL')      
          cUrgente := SC1->C1_YURGENT
          nTotalSC := SC1->C1_XTOTAL
          dDtAprova := SC1->C1_XDTAPRO
     Endif
     
     AADD(aPosGet[1],0)

     @ aPosGet[1,1]+42,250 MSGET oSayTotSC Var cSayTotSC Picture "@!" SIZE 045, 011 Of oNewDialog Pixel When .F.
     @ aPosGet[1,1]+42,300 MSGET oVlTotSC   Var nTotalSC Picture PesqPict("SC1","C1_XTOTAL") SIZE 075, 010 Of oNewDialog Pixel When .F.
     oVlTotSC:oFont:=_ofont1
     oSayTotSC:oFont:=_ofont1

     @ aPosGet[1,1]+42,480 MSGET oSayDapSC Var cSayDapSC Picture "@!" SIZE 070, 011 Of oNewDialog Pixel When .F.
     @ aPosGet[1,1]+42,563 MSGET oDtAprova Var dDtAprova Picture PesqPict("SC1","C1_XDTAPRO") SIZE 060, 010 Of oNewDialog Pixel When .F.
     oSayDapSC:oFont:=_ofont1
     oDtAprova:oFont:=_ofont1
Endif    

Josue Izidio
   Diretor Executivo
        JESCIPE
http://jisopiniao.blogspot.com.br/

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum