bira

Alguem tem exemplo de como usar um combobox Bira Editado por - bira on 06/01/2007 14:45:03

Alguem tem exemplo de como usar um combobox Bira Editado por - bira on 06/01/2007 14:45:03

Amigos, estou precisando fazer um sistema q agende consultas para um consultorio medico. Alguem ja fez alguma coisa parecida? Não sei nem por onde comecar...Imagino q o ideal é q tenha um calendario e ai a pessoa clica no dia...e o calendario abre as consultas do dia... Muita paz a todos Bira prosoftt@bol.com.br

O meus gênios, é possivel fazer o windows auto executar um programa? E pra vcs tirarem um 10, como fazer isso sem q fique na cara..ou seja..num INICIAR DO WINDOWS por exemplo? Muita paz a todos Bira prosoftt@bol.com.br

Bem vindo Trazom... Eu uso o 5.2e + SIX2 ..e estou feliz da vida... ehehehe MUITA PAZ BIRA Muita paz a todos Bira prosoftt@bol.com.br

Só love, só love... Vagner, comigo o ISPRINTER até q funciona, mais se não for o XP...para o XP não consegui! Muita paz a todos Bira prosoftt@bol.com.br

Gente, seguinte... Como diz o nosso amigo JACK o estripador vamos por partes(eheheheh): 1-NA TXTPREVIEW que comando é esse: SetMTxtPreview( .t., 5, 2, .f., .t. ) e pra que serve cada parametro? 2-Na impressao até a primeira pagina ta ok, depois quando pula pra segunda pagina ele vai desconfigurando, ou seja depois da segunda pagina vai comecando a pagina sempre mais para baixo... ABAIXO MEU RELATORIO: SetMTxtPreview( .t., 5, 2, .f., .t. ) IF M_MODO = 1 oPrn := tDosPrn():New(ALLTRIM(SIS_1POR)) ELSEIF M_MODO = 2 // Arquivo ARSPOOL := "TELA.PRN" oPrn := tDosPrn():New(ARSPOOL,.T.) Endif oPrn:lCompress:=.T.//modo comprimido NLINHA:=0 pag :=0 total :=0 select receber set order to 5 seek dat1 softseek do While rc_venc<=dat2 .and. ! eof() select cliente set order to 1 seek receber->rc_clie select receber if alltrim(cliente->cl_raza)cl_raza)>alltrim(alu2) skip loop endif if nlinha>55 .or. pag=0 caber("Relatorio de Contas a Receber",,I17) oprn:Say(++NLINHA, 0,"Documento Dt.Emissao Vencimento Pagamento Cliente Valor Juro Total Vlr.Pago") endif oprn:Say(++NLINHA, 0, strzero(rc_docu,6)+"-"+strzero(rc_parc,2)+rc_tipo) oprn:Say(NLINHA, 12, dtoc(rc_emis)) oprn:Say(NLINHA, 23, dtoc(rc_venc)) oprn:Say(NLINHA, 34, dtoc(rc_pgto)) oprn:Say(NLINHA, 45, strzero(rc_clie,4)+"-"+left(cliente->cl_raza,40)) oprn:Say(NLINHA, 91, trans(rc_valo,"@E 99,999.99")) oprn:Say(NLINHA,101, trans(rc_juro,"@E 9,999.99")) oprn:Say(NLINHA,110, trans(rc_valo+rc_juro,"@E 99,999.99")) oprn:Say(NLINHA,120, trans(rc_pago,"@E 99,999.99")) total+=rc_pago DbSkip() Enddo oprn:Say(++nLinha, 0, replicate("-",136)) oprn:Say(++nLinha, 0, "TOTAL:") oprn:Say(nLinha, 119, trans(total,"@E 999,999.99")) oPrn:EndPage() oPrn:End() ofont:end() IF M_MODO = 2 TxtPreview( arspool, "Contas a Receber/Recebidas", .t.,,, oPrn,ODLG ) endif END SELECT(SELANT) DBSETORDER(ORDERANT) Return .T. ***************** static proc Caber ***************** PARAMETERS titulo,nCol,COMANDO SoftHouse:=ALLTRIM(SIS_1NOM) pag := pag + 1 nCol :=IF(nCol=NIL,80,nCol) COMANDO :=IF(COMANDO=NIL,I10,COMANDO) dataatu :="Em "+dtoc(date())+" as "+LEFT(TIME(),5)+" horas - Pag:"+STR(pAg,3) empresa :=ALLTRIM(EMP_FANT) titulo :=SUBSTR(titulo,1,nCol-LEN(dataatu)-1) if pAg=1 oPrn:Startpage() ELSEIF NLINHA>55 oPrn:EndPage() oPrn:Startpage() endif nlinha:=0 oPrn:Say(++nlinha, 0,i10+empresa) oPrn:Say( nlinha, nCol-LEN(SoftHouse),SoftHouse) oPrn:Say(++nlinha, 0, REPLICATE("-",nCol)) oPrn:Say(++nlinha, 0, titulo) oPrn:Say( nlinha, nCol-LEN(dataatu) , dataatu) oPrn:Say(++nlinha, 0, REPLICATE("-",nCol)+COMANDO) RETURN(.t.) Muita paz a todos Bira prosoftt@bol.com.br

mou321, quero testar a imrpessora... Muita paz a todos Bira prosoftt@bol.com.br

É bira, estamos na roça. Nenhum gênio nos ajudou...Buaaaaaaaaaa Muita paz a todos Bira prosoftt@bol.com.br

GENTE COMO TESTAR LPT/COM NO XP COM FIVEWIN+CLIPPER Muita paz a todos Bira prosoftt@bol.com.br

lenasi, eu uso um campo parecido com esse seu , mais eu controla CENTRO DE CUSTOS... Na verdade criei um cadastro destes centros...naum seria o seu caso..criar um cadastro e ai..verificar a existencia deles no valid? Muita paz a todos Bira prosoftt@bol.com.br

Meus Reis eu ja estava com saudades de vcs.(ih rimou) eheheh Gente duas perguntinhas só pra esquentar: 1-Imprimir em USB com TDOSPRN tem jeito? 2-Tenho uma lib q usava para verificar se a impressora esta ativa ou nao. Acontece q em XP ela naum funciona. Alguem tem alguma dica? MUITA PAZ A TODOS BIRA Muita paz a todos Bira prosoftt@bol.com.br

Amigos estou com problemas em carregar a ARRAY da combobox por outra funcao. Gente ja tentei passar a ASECS por referencia e nada. Entao declarei ela como static. O q acontece é q a combobox naum me apresenta nenhum conteudo. E ja testei e a array esta sendo carregada pela funcao. DEFINE DIALOG oPDI RESOURCE "INIPDV" FONT ownd:ofont REDEFINE BTNGET ogei[01] var i_CAIX ID 101 OF oPDI PICTURE "9999" resource "LUPA" valid(CXABERTO(I_CAIX) REDEFINE COMBOBOX OBBA VAR cxsequ ITEMS ASECS ID 852 OF oPDI REDEFINE BUTTON ID 150 OF opdi ACTION (Opdi:END(),retorna:=.T.) REDEFINE BUTTON ID 160 OF opdi ACTION (opdi:end(),RETORNA:=.F.) CANCEL OPDI:lHelpicon :=.F. ACTIVATE DIALOG oPDI centered return(retorna) ************************************************* static FUNCTION CXABERTO(ufo) ************************************************* local sewo:=select(),orwo:=dbsetorder(),temas:=0 select caixadia set order to 1 seek dtos(glo_datacxa) do while cd_data==glo_datacxa .and. ! eof() if cd_vend==UFO if cd_situ=1 AADD(ASECS,CD_SEQU) endif endif skip enddo obba:refresh() select(sewo) dbsetorder(orwo) return(.t.) Muita paz a todos Bira prosoftt@bol.com.br

gente é possivel desenhar um retangulo em alto relevo?? Naum encontrei nada no WS q faça isso! Muita paz a todos Bira prosoftt@bol.com.br

AMIGOS EM UMA LISTBOX CARREGADA COM UM BANCO DE DADOS. É POSSIVEL SABER QUANDO SE SELECIONA UM ITEM NA LISTBOX, qual a linha ela representa na listbox??? Muita paz a todos Bira prosoftt@bol.com.br