Code: Select all
Define Font oFontrb5 Name "Times New Roman" Size 0,-24
DEFINE FONT oGetFnt NAME "Lucida Console" SIZE 0, -15
Define Dialog oDlgPdc Resource "DLG_CONSU_PEDICOM" TITLE "Pedido De Compra - "+if (empty(vnumncom1), "Incluir","Alterar") Brush oBrushPapel1 TRANSPARENT //Resource: Mstar5.Res
*
REDEFINE Say oSay01 PROMPT "Nº Pe. Compra:" ID 4002 Font oFon2 of oDlgPdc
REDEFINE Say oSay02 PROMPT "F2 Consulta" ID 4008 Font oFon2 of oDlgPdc color CLR_RED
REDEFINE get onumncom var vnumncom pict "999999" ID 4005 Font oFon1 of oDlgPdc when empty(vnumncom)
REDEFINE say oSay03 PROMPT "Fornecedor:" ID 4003 Font oFon2 of oDlgPdc
REDEFINE get ocodifor var vcodifor ID 4006 Font oFon1 OF oDlgPdc valid iif(!empty(vcodifor),checkfor(),Pesqfor(.t.)) .and. PassaList() BITMAP cbitmaps+"lupa2.bmp" ACTION ( Pesqfor(.t.),oDlgPdc:Refresh()) WHEN( lBota2obmp ) //cancel
REDEFINE say onomefor var vnomefor ID 4025 Font oFon2 OF oDlgPdc
REDEFINE say oSay04 PROMPT "Emissao:" ID 4004 Font oFon2 of oDlgPdc
REDEFINE get odatacom var vdatacom ID 4007 Font oFon2 OF oDlgPdc valid DataPrevPedidoCompra()
REDEFINE say oSay05 PROMPT "Previsão Entrega:" ID 4009 Font oFon2 of oDlgPdc
REDEFINE get odatapre var vdatapre ID 4010 Font oFon2 OF oDlgPdc valid !empty(vdatapre) .and. PassaList2()
REDEFINE BUTTONBMP obtn01 ID 20 OF oDlgPdc ACTION (GirProPdc(olbxorc)) BITMAP cbitmaps+"giro.bmp" prompt "&Giro" CANCEL when !empty(vcodifor) TETXBOTTOM ADJUST
REDEFINE FOLDER oFldPdc ID 4011 OF oDlgPdc ;
PROMPTS "&Produtos","Condições","Contas a Pagar - Provisão";
DIALOGS "DLG_CONSU_PEDICOM1","DLG_CONSU_PEDICOM2","DLG_CONSU_PEDICOM3"
Transparent when i press alt key
THANKS ALL