PC Toledo

POR FAVOR GALERA QUEM QUISER TESTAR O CODIGO ESTA AI CERTINHO COMO ESTOU USANDO..QUERIA SABER C O FIVEWIN NAO ACEITA FAZER ISSO, POIS NO CLIPPER USAVA DO MESMO GEITO E DAVA CERTINHO.

/*********************************************************/
//-ASSIM E COMO ESTA O ARRAY SERIAO OS VALORES DOS MEUS GETS
AADD(XEXTR,{05,105,"@!",.T.})
AADD(XEXTR,{06,106,"999,99",.T.})

/*********************************************************/
FUNCTION CAD_CID(ACAD1,XEXTR)
LOCAL NOK:=.F., ODLG , NPOSI , NMOST

DEFINE DIALOG ODLG RESOURCE "CAD_CID_1"
set cursor on
REDEFINE get acad1[02] ID 102 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[02])
REDEFINE get acad1[03] ID 103 OF oDLG PICTURE "@!" VALID !EMPTY(ACAD1[03])
REDEFINE get acad1[04] ID 104 OF oDLG PICTURE "99.999-999"

//---O PROBLEMA ESTA AQUI NESSE FOR ELE DEVERIA MOSTRAR OS GETS CONFORME ESTA PRENCHIDO AI A CIMA O ARRAY.
//---SO QUE NAO ESTA FAZENDO ISSO ELE MOSTRA OS 2 CAMPOS SÓ QUE TODOS OS GETS QUE ESTAVAO NESSE ARRAY SAEM IGUAL A O ULTIMO CAMPO LIDO DO ARRAY
IF LEN(XEXTR) > 0
FOR POS := 1 TO LEN(XEXTR)
NPOSI:=XEXTR[POS,1]
NMOST:=XEXTR[POS,4]
REDEFINE GET ACAD1[nPOSI] ID XEXTR[POS,2] COLOR"B/W+*" OF oDLG PICTURE XEXTR[POS,3] WHEN NMOST
NEXT
ENDIF

REDEFINE BUTTON ID 1 OF oDLG ACTION (NOK:=.T.,oDLG:END())
REDEFINE BUTTON ID 2 OF oDLG ACTION (oDLG:END())
ACTIVATE DIALOG oDLG CENTERED

IF NOK == .T.
//---AQUI DAI MANDO GRAVA
ENDIF
RETURN