Define MSDialog oDlg Title "Consulta de Produtos" From 0,0 To 200,500 Pixel
@ 020,192 SAY TIME()
@ 030,130 SAY "MICROSIGA"
@ 040,100 SAY "CONSULTA DE PRODUTOS"
@ 050,010 SAY "CODIGO DO PRODUTO" //"Etiqueta que aparecerá na tela
@ 050,080 GET cCODIGO PICTURE "@!" VALID ValCodProd()
@ oDlg:nHeight/2-30,oDlg:nClientWidth/2-70 Button oBtnOk     Prompt "&Ok"       Size 30,15 Pixel Action
Confirma() Message "Clique aqui para Confirmar" Of oDlg
@  oDlg:nHeight/2-30,oDlg:nClientWidth/2-35  Button  oBtnCancel  Prompt  "&Cancelar"  Size  30,15  Pixel
Action oDlg:End() Cancel Message "Clique aqui para Cancelar"  Of oDlg
Activate MSDialog oDlg Centered