Perguntas Exemplo ponto de entrada Mt110Tel (compras)

#INCLUDE "PROTHEUS.CH"
#INCLUDE "rwmake.ch"

User function MT110TEL()

Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local nOpcx := PARAMIXB[3]
Local nReg := PARAMIXB[4]
Local oGet1
Local oGet2
Local oGet3
Local oGet4
Local oGet5
Local oGet6
Local oGet7
Local oGet8
Local oGet9

If nOpcx == 3
Public cPrior := "2"
Public cStatu := "N"
Public cAplic := SPACE(30)
Public cHora := time()
Public cEntpar := Space(30)
Public cObs := Space(100)
Public cForn := Space(50)
Public dNeces := CTOD(" / / ")
Else
Public cPrior := SC1->C1_PRIORID
Public cStatu := SC1->C1_STATUS
Public cAplic := SC1->C1_APLICAC
Public cHora := SC1->C1_HORA
Public cEntpar := SC1->C1_ENTPARA
Public cObs := SC1->C1_OBS
Public cForn := SC1->C1_NFORNEC
Public dNeces := SC1->C1_DATPRF
Endif

aadd(aPosGet[1],0)
aadd(aPosGet[1],0)

@ 42,027 SAY 'Prioridade' PIXEL SIZE 30,9 Of oNewDialog
@ 43,060 MSCOMBOBOX oGet1 VAR cPrior ITEMS{"0=PRODUCAO PARADA/ACIDENTE","1=PRODUCAO PARADA/ACIDENTE EM 48HS","2=SEM INTERF. PRODUCAO/ACIDENTE"} SIZE 082, 010 OF oNewDialog COLORS 0, 16777215 PIXEL

@ 42,160 SAY 'Status' PIXEL SIZE 30,9 Of oNewDialog
@ 43,185 MSCOMBOBOX oGet2 VAR cStatu ITEMS{"N=NAO ATENDIDA","A=ATENDIDA"} SIZE 052, 010 OF oNewDialog COLORS 0, 16777215 PIXEL

@ 42,260 SAY 'Aplicação' PIXEL SIZE 40,9 Of oNewDialog
@ 43,300 MSGET oGet3 VAR cAplic SIZE 092, 010 Picture "@!" OF oNewDialog COLORS 0, 16777215 PIXEL

@ 42,400 SAY 'Hora' PIXEL SIZE 25,9 Of oNewDialog
@ 43,420 MSGET oGet4 VAR cHora SIZE 025, 010 OF oNewDialog COLORS 0, 16777215 PIXEL When .F.

@ 60,027 SAY 'Entregar p/' PIXEL SIZE 40,9 Of oNewDialog
@ 61,062 MSGET oGet5 VAR cEntpar SIZE 092, 010 Picture "@!" OF oNewDialog COLORS 0, 16777215 PIXEL

//@ 42,605 SAY 'Fornecedor' PIXEL SIZE 40,9 Of oNewDialog
//@ 43,635 MSGET oGet6 VAR cForn SIZE 042, 010 F3 "SA2" Valid Valforn() OF oNewDialog COLORS 0, 16777215 PIXEL
//@ 43,680 MSGET oGet7 VAR cLForn SIZE 012, 010 OF oNewDialog COLORS 0, 16777215 PIXEL When .F.

@ 60,164 SAY 'Observação' PIXEL SIZE 40,9 Of oNewDialog
@ 61,197 MSGET oGet8 VAR cObs SIZE 152, 010 Picture "@!" OF oNewDialog COLORS 0, 16777215 PIXEL

@ 78,027 SAY 'Fornecedor' PIXEL SIZE 40,9 Of oNewDialog
@ 79,062 MSGET oGet6 VAR cForn SIZE 100, 010 OF oNewDialog COLORS 0, 16777215 PIXEL

@ 78,180 SAY 'Necessidade' PIXEL SIZE 40,9 Of oNewDialog
@ 79,215 MSGET oGet9 VAR dNeces SIZE 040, 010 OF oNewDialog COLORS 0, 16777215 PIXEL

RETURN

---

User Function MT110GET()

Local aRet:= PARAMIXB[1]

aRet[2,1] := 100 //78Abaixando o começo da linha da getdados
aRet[1,3] := 100 // Abaixando a linha de contorno dos campos do cabeçalho

Return(aRet)

---

Ta ai .. usa esse acima p vc manipular a tela..

Grato
Israel
________________________________________
De: "pedroso12_jr" <pedroso12_jr@yahoo.com.br>
Para: <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->
Enviadas: Sábado, 8 de Outubro de 2011 9:46:12
Assunto: [siga-br] Exemplo ponto de entrada Mt110Tel (compras)


Olá colegas,

Se alguém possuir exemplo do ponto de entrada Mt110Tel (manipulação dos gets em Mata110 - Solicitações de compras) e puder enviar agradeço,

[]´s e bom trabalho a todos