agp.ds

Bom dia, Anderson... Poderia por favor passar detalhes de como funciona o preview igual a este http://www.rcasistemas.com.br/uploads/RCATrade_Faturamento.png, achei muito show e gostaria de implementar em um sistema que tenho aqui... Abraço... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Bom dia, Anderson... Poderia por favor passar detalhes de como funciona o preview igual a este http://www.rcasistemas.com.br/uploads/RCATrade_Faturamento.png, achei muito show e gostaria de implementar em um sistema que tenho aqui... Abraço... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

No caso de pessoa Juridica existe o site do SINTEGRA http://www.sintegra.gov.br, vc consulta dados em toto o pais entrando com o CNPJ Abraços... Agnaldo Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Boa tarde a todos... Adiquiri uma licença Cobrebemx a qual atende minhas necessidades, o que está me quebrando a cabeça é de como personailzar um recido de entrega com os dados do sacado... Se alguém puder ajudar agradeço. Abraços... Agnaldo. Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Boa tarde a todos... Adiquiri uma licença Cobrebemx a qual atende minhas necessidades, o que está me quebrando a cabeça é de como personailzar um recido de entrega com os dados do sacado... Se alguém puder ajudar agradeço. Abraços... Agnaldo. Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Amigo, postei uma dúvida igual a sua a três meses e até hj ningém se menifestou... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Opa tem sim Geovanni, Tenta ai esse exemplo: //----------------------------------------------------------------------- #Include "Fivewin.ch" //----------------------------------------------------------------------- Function main() Private oRad1 nRad1 := 1 DEFINE FONT oFONT1 NAME "Ms Sans Serif" SIZE 0, -12 Define WINDOW oWnd TITLE "Teste Radio" ; FROM 118, 266 to 290, 617 PIXEL COLOR 0, 13160660 ACTIVATE WINDOW oWnd ON INIT Ini_oWnd() Return NIL //---------------------------------------------------------------------------- Function Ini_oWnd() @ 32, 20 RADIO oRad1 VAR nRad1 Prompt "Um",; "Dois",; "Três"; SIZE 48, 20 PIXEL OF oWnd oRad1:aItems[1]:Move( 32, 20, 48, 20, .T. ) oRad1:aItems[1]:SetColor( 0, 13160660 ) oRad1:aItems[1]:SetFont( oFont1 ) oRad1:aItems[2]:Move( 32, 92, 54, 20, .T. ) oRad1:aItems[2]:SetColor( 0, 13160660 ) oRad1:aItems[2]:SetFont( oFont1 ) oRad1:aItems[3]:Move( 32, 177, 52, 20, .T. ) oRad1:aItems[3]:SetColor( 0, 13160660 ) oRad1:aItems[3]:SetFont( oFont1 ) @ 93, 135 BUTTON oBut1 Prompt "&Fechar" SIZE 70, 24 PIXEL; OF oWnd ACTION oWnd:END() FONT oFont1 Return NIL Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Bom dia Geovanni... Com @01,01 radio não sei se tem como, mas com editor de recurso fica bem fácil, tipo Pelles ou Resouce Workshop... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Ola, no seu .PRG está com SET DELETED ON Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Ola, Gilberto... Você ja tentou recompilar a lib FIVEHX.LIB, com a versão correta do seu xHarbour? Em dicas tem um programinha 10 que faz isso, enviada pelo Kapiaba... http://www.fivewin.com.br/exibedicas.asp?id=582 não custa tentar. Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Eu também ja preechi o cadastro varias vezes e nada... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Foi pra conta kleyber@tkinformidia.net verifica ai Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Bom dia a todos... Estou começando a fazer alguns teste com Mysql, e fiz alguns testes com exemplos aqui do forum usando Odbc. Alguém teria algum exempo de listbox + Sql via Odbc? como usar "alias"...? Se alguém puder ajudar agradeço... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Bom dia a todos... Estou começando a fazer alguns teste com Mysql, e fiz alguns testes com exemplos aqui do forum usando Odbc. Alguém teria algum exempo de listbox + Sql via Odbc? como usar "alias"...? Se alguém puder ajudar agradeço... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Resolvido era um arquivo .mem que gera a data do ultimmo acesso ao sistema devido a queda de energia danificou o mesmo valeu pela força Gilmer... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Caro João, o cliente me disse que bateram ne tomada de energia eo pc desligou depois ligou e apareceu este erro link imagem do erro:= http://www.infogui.com.br/imagem.bmp Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Sera que alguem pode me ajudar com este erro?? Estou no cliente. UNRECOVERABLE ERROR 9100: restore failed, unsupported type: 65408 for:" Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Sera que alguem pode me ajudar com este erro?? Estou no cliente. UNRECOVERABLE ERROR 9100: restore failed, unsupported type: 65408 for:" Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Ola, não sei se é isso que vc quer mas para papel continuo 80 colunas eu faço assim: //********************* Function Datos(oReport) local cText cText := "Largura : "+str(oReport:nWidth)+CRLF cText += "Comprimento : "+str(oReport:nHeight)+CRLF Alert(cText) RETURN NIL //***************** If ! file("config.dat") saida:setsize(2140, 2800)// <====80 colunas else restore from config.dat additive saida:setsize(largura, comprimento) endif PUBLIC nRowstep:=saida:nVertRes() / 70 public nColstep:=saida:nHorzRes() / 150 //******************** **> seu codigo*** Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Ola, Gilberto. Você ja Testou com font "DRAFT 10cpi" Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3

Olá, ai vai meu pitaco também... *ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ FUNCTION CRIPTO PARAMETERS A PRIVATE B, C, I B = "" FOR I = 1 TO LEN(A) C = SUBSTR(A,I,1) IF C <> " " C = ASC© + 114 ELSE C = ASC© ENDIF B = B + CHR© NEXT I RETURN ( *ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ FUNCTION DECRIPTO PARAMETERS A PRIVATE B, C, I B = "" FOR I = 1 TO LEN(A) C = SUBSTR(A,I,1) IF C <> " " C = ASC© - 114 ELSE C = ASC© ENDIF B = B + CHR© NEXT I RETURN ( Agnaldo FWH 8.01 + xHarbour 99.70 + Workshop + Verce v4.3

Olá, amigo, eu uso algo parecido, de uma olhada se é isso... oLbx:nClrText = { || SelColor( if (!ESTQ->ES_SALD < ESTQ->ES_MINI, 0, 1) ) } // AMARELO oLbx:nClrForeFocus = { || SelColor( if (!ESTQ->ES_SALD > ESTQ->ES_MINI, 0, 2) ) } // AZUL //*************************************************** function SelColor( xColor ) local nColor := CLR_BLACK do case case xColor == 1 nColor = CLR_YELLOW case xColor == 2 nColor = CLR_BLUE endcase return nColor Agnaldo FWH 8.01 + xHarbour 99.70 + Workshop + Verce v4.3

Opa valeu, Agora deu certo... Muito o brigado amigo. Abraço. Agnaldo FWH 8.01 + xHarbour 99.70 + Workshop + Verce v4.3

Ola pessoal, atualizei minha versão do FWH para 8.01 e xharbour. Quando compilo um projeto da a seguinte mensagem de erro: Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\XHARBOUR\LIB\RTL.LIB|regex alguem ja teve este problema? Grato. Agnaldo FWH 7.10 + xHarbour 99.70 + Workshop

Ola pessoal, atualizei minha versão do FWH para 8.01 e xharbour. Quando compilo um projeto da a seguinte mensagem de erro: Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\XHARBOUR\LIB\RTL.LIB|regex alguem ja teve este problema? Grato. Agnaldo FWH 7.10 + xHarbour 99.70 + Workshop