Perfeito,
Consegui abrir e converter os arquivos para o formato desejado...
Agora como fazer para ao entrar no sistema exibir o CAIXA LIVRE...
lSairDlg2 := .f.
DEFINE DIALOG oDlg2 FROM li, ci TO pv,ph PIXEL FONT wfonte_FixedSys ICON oIco
oDlg2:lHelpIcon := .f.
@ LING2(1.50),COLG2(2.00) GET ocoditem var mcoditem pict "@k XXXXXXXXXXXXXXXXXXXX" SIZE 120,25 ;
VALID fVerProduto(@mcoditem, oDlg2) COLOR PRETO,RGB(202,223,254) FONT oFntD OF oDlg2 UPDATE
ocoditem:bKeyDown:={|nKey| If(nKey=VK_ESCAPE.AND.len(aVendas)=0,(lSairDlg2 := .t., oDlg2:End()),)}
@ 5.0,1.0 LISTBOX oLbx ;
FIELDS if(len(aVendas) > 0, aVendas[oLbx:nat], "") ;
HEADER "Item Código" + space(len(pr->coditem)-6) + " Descrição" + space(len(pr->descricao)-9) + " S.T. Qtde. Vlr.Unitário Valor Total" ;
SIZE 380, 175 FONT wfont2_FixedSys UPDATE
oLbx:SetArray(aVendas)
ACTIVATE DIALOG oDlg2 CENTER on INIT (fFocus("ocoditem")) VALID (lSairDlg2)
Sei que poderia carregar no INIT mas gostaria que quando teclasse qualquer tecla, ou movimentasse o mouse, a imagem/banner desativasse.... e quando terminar a venda ativar novamente...
grato
farley
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)