megatron

ola. Onde pego informações sobre a HBNFE ?

Bom dia pessoal, o AVAST hoje esta identificando os icones de acesso aos programas como cavalos de troia e excluindo-os e em alguns casos tirando o compartilhamento de rede. Aconselho a instalação do AVG. sds Jadson Lira FWH 11.12 + BCC 5.82 + Harbour 3.1.0

Bom dia pessoal, o AVAST hoje esta identificando os icones de acesso aos programas como cavalos de troia e excluindo-os e em alguns casos tirando o compartilhamento de rede. Aconselho a instalação do AVG. sds Jadson Lira FWH 11.12 + BCC 5.82 + Harbour 3.1.0

Onde pego essa TIP.LIB ? sds Jadson FWH 11.12 + BCC 5.82 + Harbour 3.1.0

Estou usando o harbour 3.1.0 , Fwh 11.12 e BCC 5.8.2 FWH 11.12 + BCC 5.82 + Harbour 3.1.0

To trocando o harbour para a versao 3.1.0 e nao consegue compilar a linha abaixo dando o seguinte erro: Erros E0030 Systax error "syntax error at ´@´" Linha de programação: @ 00,00 TO 04,31 LABEL "Cadastro" OF w_101 FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

To trocando o harbour para a versao 3.1.0 e nao consegue compilar a linha abaixo dando o seguinte erro: Erros E0030 Systax error "syntax error at ´@´" Linha de programação: @ 00,00 TO 04,31 LABEL "Cadastro" OF w_101 FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

As Dll´s c: ace32 .dll 655359 12-18-10 22:56 \hnovo\contab2 c: adsloc32.dll 655359 12-18-10 22:56 \hnovo\contab2 c: barset32.dll 112128 12-18-10 22:56 \hnovo\contab2 c: barsetup.dll 104549 12-18-10 22:56 \hnovo\contab2 c: bwcc .dll 130224 12-18-10 22:56 \hnovo\contab2 c: bwcc32 .dll 211488 12-18-10 22:56 \hnovo\contab2 c: bwccesn .dll 130224 12-18-10 22:56 \hnovo\contab2 c: custom32.dll 46592 12-18-10 22:56 \hnovo\contab2 c: email .dll 66149 12-18-10 22:56 \hnovo\contab2 c: email32 .dll 104448 12-18-10 22:56 \hnovo\contab2 c: freeimage.dll 655359 12-18-10 22:57 \hnovo\contab2 c: ins32 .dll 394240 4-29-08 11:12 \hnovo\contab2 c: libmysql.dll 655359 10-25-04 15:22 \hnovo\contab2 c: nviewl16.dll 284960 12-18-10 22:56 \hnovo\contab2 c: nviewlib.dll 250880 12-18-10 22:56 \hnovo\contab2 c: prev32 .dll 65536 1-19-11 6:02 \hnovo\contab2 c: prev32sp.dll 65536 1-19-11 6:02 \hnovo\contab2 c: prev32uk.dll 65536 1-19-11 6:02 \hnovo\contab2 c: prev64 .dll 51200 12-18-10 22:56 \hnovo\contab2 c: preview .dll 21605 12-18-10 22:56 \hnovo\contab2 c: prevsp .dll 21605 12-18-10 22:56 \hnovo\contab2 c: prevuk .dll 21605 12-18-10 22:56 \hnovo\contab2 c: rcimport.dll 9829 12-18-10 22:56 \hnovo\contab2 c: screen32.dll 46080 12-18-10 22:57 \hnovo\contab2 c: server4 .dll 274956 12-18-10 22:56 \hnovo\contab2 c: tcbr32 .dll 48128 12-18-10 22:56 \hnovo\contab2 Nada até agora FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

Não estou conseguindo imprimir da sempre esse erro: Erro BASE/44 Assigned value is wrong class: TMETAFILE:NTOP Cancelado TWINDOW:_NTOP(0) Cancelado TMETAFILE:_NTOP(763) Cancelado TCONTROL:SETCOORS(2140) Cancelado TMETAFILE:SETCOORS(226) Cancelado TPREVIEW:PAINTMETA(682) Cancelado (b)TPREVIEW_ACTIVATE(159) Cancelado TWINDOW:RESIZE(2118) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(3409) Cancelado SHOWWINDOW(0) Cancelado TWINDOW:ACTIVATE(975) Cancelado TPREVIEW:ACTIVATE(159) Cancelado RPREVIEW(1606) Cancelado (b)TPRINTER(230) Cancelado TPRINTER:PREVIEW(0) Cancelado PRINTEND(986) Cancelado CONTAR03(132) Cancelado (b)MENUINICIAL(155) Cancelado TMENU:COMMAND(441) Cancelado TWINDOW:COMMAND(1043) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(3409) Cancelado WINRUN(0) Cancelado TWINDOW:ACTIVATE(992) Cancelado MAIN(81) Programa: PrinterSetup() PRINT oPrn NAME "Imprimindo Balancete" PREVIEW if Empty( oPrn:hDC ) return nil endif DEFINE FONT oFont NAME "TIMES NEW ROMAN" SIZE 0, -09 OF oPrn DEFINE FONT oFn1 NAME "ARIAL" SIZE 0, -09 BOLD OF oPrn L_DAT = CTOD("01/"+L_MES+"/"+L_ANO) STOR 0 TO L_TOTDEB,L_TOTCRE,L_SALDEB,L_SALCRE m_picval="@R 999,999,999.99" l_emi="Nao" l_pag:=l_lin:=0 oPrn:startpage() p_contar03i() select(1) dbsetorder(2) dbgotop() do while !eof() L_CCC=CADCON_CCC L_CON=CADCON_CON L_TIP=CADCON_TIP L_DEB=CADCON_DEB L_CRE=CADCON_CRE L_DES=CADCON_DES * L_LIN=CADCON_LIN L_GRA=CADCON_GRA L_SAL=CADCON_SAL L_ANT=L_SAL+L_DEB-L_CRE L_TSA=IIF(L_SAL=0,"",IIF(L_SAL<0,"D","C")) L_TSN=IIF(L_ANT=0,"",IIF(L_ANT<0,"D","C")) L_SAL=IIF(L_SAL<0,L_SAL*-1,L_SAL) L_ANT=IIF(L_ANT<0,L_ANT*-1,L_ANT) IF CADCON_TIP="A".AND.L_EMI="Sim" SELECT 1 SKIP LOOP ENDIF IF L_SAL=0.AND.L_CRE=0.AND.L_DEB=0 SELECT 1 SKIP LOOP ENDIF IF L_TSA="D".AND.L_TIP="A" L_SALDEB+=L_SAL ELSEIF L_TSA="C".AND.L_TIP="A" L_SALCRE+=L_SAL ENDIF l_lin+=0.5 oPrn:CmSay( l_lin, 00.00, ALLTRIM(L_CON)+" "+L_DES, oFont ) oPrn:CmSay( l_lin, 10.50, transform(L_ANT,M_PICVAL), oFont,,,,2) oPrn:CmSay( l_lin, 11.30, L_TSN, oFont ) oPrn:CmSay( l_lin, 13.50, transform(L_DEB,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 16.50, transform(L_CRE,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 19.50, transform(L_SAL,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 20.30, L_TSA, oFont , PRETO) dbskip(1) if l_lin>25 oPrn:Endpage() oPrn:startpage() l_lin=0 p_contar03i() endif IF L_TIP="A" L_TOTDEB+=L_DEB L_TOTCRE+=L_CRE ENDIF ENDDO l_lin+=2 oPrn:CmSay(l_lin, 00 , replicate("-",1200)) l_lin+=0.5 oPrn:CmSay(l_lin, 01 , "Contas Analiticas", oFn1, PRETO) oPrn:CmSay(l_lin, 12,TRANSFORM(L_TOTDEB,M_PICVAL), oFont, PRETO,,,2) oPrn:CmSay(l_lin, 15,TRANSFORM(L_TOTCRE,M_PICVAL), oFont, PRETO,,,2) l_lin+=0.5 oPrn:CmSay(l_lin, 00 , replicate("-",1200)) l_lin+=0.5 oPrn:CmSay(l_lin, 01 , "Contas Analiticas", oFn1, PRETO) oPrn:CmSay(l_lin, 10, "Saldo a Debito", oFn1, PRETO) oPrn:CmSay(l_lin, 18,TRANSFORM(L_SALDEB,M_PICVAL), oFont, PRETO,,,2) l_lin+=0.5 oPrn:CmSay(l_lin, 10, "Saldo a Credito",oFn1, PRETO) oPrn:CmSay(l_lin, 18,TRANSFORM(L_SALCRE,M_PICVAL), oFont, PRETO,,,2) *-- oPrn:Endpage() oPrn:preview() oFont:End() return nil Estou usando o Harbour 2.1.0 com a BCC 5.8.2 + FW 11.4 FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta Editado por - megatron on 12/03/2012 11:28:09

Não estou conseguindo imprimir da sempre esse erro: Erro BASE/44 Assigned value is wrong class: TMETAFILE:NTOP Cancelado TWINDOW:_NTOP(0) Cancelado TMETAFILE:_NTOP(763) Cancelado TCONTROL:SETCOORS(2140) Cancelado TMETAFILE:SETCOORS(226) Cancelado TPREVIEW:PAINTMETA(682) Cancelado (b)TPREVIEW_ACTIVATE(159) Cancelado TWINDOW:RESIZE(2118) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(3409) Cancelado SHOWWINDOW(0) Cancelado TWINDOW:ACTIVATE(975) Cancelado TPREVIEW:ACTIVATE(159) Cancelado RPREVIEW(1606) Cancelado (b)TPRINTER(230) Cancelado TPRINTER:PREVIEW(0) Cancelado PRINTEND(986) Cancelado CONTAR03(132) Cancelado (b)MENUINICIAL(155) Cancelado TMENU:COMMAND(441) Cancelado TWINDOW:COMMAND(1043) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(3409) Cancelado WINRUN(0) Cancelado TWINDOW:ACTIVATE(992) Cancelado MAIN(81) Programa: PrinterSetup() PRINT oPrn NAME "Imprimindo Balancete" PREVIEW if Empty( oPrn:hDC ) return nil endif DEFINE FONT oFont NAME "TIMES NEW ROMAN" SIZE 0, -09 OF oPrn DEFINE FONT oFn1 NAME "ARIAL" SIZE 0, -09 BOLD OF oPrn L_DAT = CTOD("01/"+L_MES+"/"+L_ANO) STOR 0 TO L_TOTDEB,L_TOTCRE,L_SALDEB,L_SALCRE m_picval="@R 999,999,999.99" l_emi="Nao" l_pag:=l_lin:=0 oPrn:startpage() p_contar03i() select(1) dbsetorder(2) dbgotop() do while !eof() L_CCC=CADCON_CCC L_CON=CADCON_CON L_TIP=CADCON_TIP L_DEB=CADCON_DEB L_CRE=CADCON_CRE L_DES=CADCON_DES * L_LIN=CADCON_LIN L_GRA=CADCON_GRA L_SAL=CADCON_SAL L_ANT=L_SAL+L_DEB-L_CRE L_TSA=IIF(L_SAL=0,"",IIF(L_SAL<0,"D","C")) L_TSN=IIF(L_ANT=0,"",IIF(L_ANT<0,"D","C")) L_SAL=IIF(L_SAL<0,L_SAL*-1,L_SAL) L_ANT=IIF(L_ANT<0,L_ANT*-1,L_ANT) IF CADCON_TIP="A".AND.L_EMI="Sim" SELECT 1 SKIP LOOP ENDIF IF L_SAL=0.AND.L_CRE=0.AND.L_DEB=0 SELECT 1 SKIP LOOP ENDIF IF L_TSA="D".AND.L_TIP="A" L_SALDEB+=L_SAL ELSEIF L_TSA="C".AND.L_TIP="A" L_SALCRE+=L_SAL ENDIF l_lin+=0.5 oPrn:CmSay( l_lin, 00.00, ALLTRIM(L_CON)+" "+L_DES, oFont ) oPrn:CmSay( l_lin, 10.50, transform(L_ANT,M_PICVAL), oFont,,,,2) oPrn:CmSay( l_lin, 11.30, L_TSN, oFont ) oPrn:CmSay( l_lin, 13.50, transform(L_DEB,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 16.50, transform(L_CRE,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 19.50, transform(L_SAL,M_PICVAL), oFont,,,,2 ) oPrn:CmSay( l_lin, 20.30, L_TSA, oFont , PRETO) dbskip(1) if l_lin>25 oPrn:Endpage() oPrn:startpage() l_lin=0 p_contar03i() endif IF L_TIP="A" L_TOTDEB+=L_DEB L_TOTCRE+=L_CRE ENDIF ENDDO l_lin+=2 oPrn:CmSay(l_lin, 00 , replicate("-",1200)) l_lin+=0.5 oPrn:CmSay(l_lin, 01 , "Contas Analiticas", oFn1, PRETO) oPrn:CmSay(l_lin, 12,TRANSFORM(L_TOTDEB,M_PICVAL), oFont, PRETO,,,2) oPrn:CmSay(l_lin, 15,TRANSFORM(L_TOTCRE,M_PICVAL), oFont, PRETO,,,2) l_lin+=0.5 oPrn:CmSay(l_lin, 00 , replicate("-",1200)) l_lin+=0.5 oPrn:CmSay(l_lin, 01 , "Contas Analiticas", oFn1, PRETO) oPrn:CmSay(l_lin, 10, "Saldo a Debito", oFn1, PRETO) oPrn:CmSay(l_lin, 18,TRANSFORM(L_SALDEB,M_PICVAL), oFont, PRETO,,,2) l_lin+=0.5 oPrn:CmSay(l_lin, 10, "Saldo a Credito",oFn1, PRETO) oPrn:CmSay(l_lin, 18,TRANSFORM(L_SALCRE,M_PICVAL), oFont, PRETO,,,2) *-- oPrn:Endpage() oPrn:preview() oFont:End() return nil Estou usando o Harbour 2.1.0 com a BCC 5.8.2 + FW 11.4 FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta Editado por - megatron on 12/03/2012 11:28:09

Prezados Nao estou conseguindo funcionar o grafico modelo pizza, coloco o fonte abaixo, quem puder ajudar agradeço. *---- Carrega Cores m_cor:={{CLR_LGRAY},; {CLR_LGREEN},; {CLR_CHOCOLATE},; {CLR_VERDEAGUA},; {CLR_CREME},; {CLR_AZULADITO},; {CLR_BLANCO},; {CLR_HYEL},; {CLR_LYEL},; {CLR_AZUL_BRANCO},; {CLR_GRIS2},; {CLR_SHADOW},; {CORBK},; {CLR_LIGHT},; {CLR_AZULXP},; {CLR_VERMELHO},; {CLR_AMARELO},; {CLR_LYELLOW},; {CLR_GETS},; {CLR_LWHITE},; {CLR_BROW},; {CLR_BFOOT},; {CLR_PRETO},; {CLR_AM_CALRO}} *--- Fim das cores m_arrcor:={} m_arrdad:={} select(50) dbgotop() l_cor=0 do while !eof() l_cor++ aadd(m_arrcor,{cadoco_des,m_cor[l_cor]} ) aadd(m_arrdad,cadoco_qtd) dbskip(1) enddo DEFINE DIALOG w_e23 FROM 1,1 TO 33,100 TITLE "Ocorrencias" COLOR "N/W" @ 1, 1 GRAPH oGraph; SIZE 250, 200; TYPE 4; YVALUES 3D XGRID YGRID XVALUES LEGENDS PIXEL oGraph:aSeries:=m_arrcor oGraph:aData:=m_arrdad oGraph:nClrX = CLR_GREEN oGraph:nClrY = CLR_RED ACTIVATE DIALOG w_e23 CENTER RETURN NIL Quando tento executar da o erro abaixo Erro BASE/1068 Argument error: array access Cancelado TGRAPH:DRAWPIE(883) Cancelado TGRAPH:PAINT(488) Cancelado TGRAPH:DISPLAY(328) Cancelado TCONTROL:HANDLEEVENT(0) Cancelado _FWH(0) Cancelado DIALOGBOXINDIRECT(0) Cancelado TDIALOG:ACTIVATE(0) Cancelado FINCOE23(100) Cancelado EVAL(493) Cancelado TMENU:COMMAND(0) Cancelado TWINDOW:COMMAND(0) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(0) Cancelado WINRUN(0) Cancelado TWINDOW:ACTIVATE(0) Cancelado MAIN(179) FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

Prezados Nao estou conseguindo funcionar o grafico modelo pizza, coloco o fonte abaixo, quem puder ajudar agradeço. *---- Carrega Cores m_cor:={{CLR_LGRAY},; {CLR_LGREEN},; {CLR_CHOCOLATE},; {CLR_VERDEAGUA},; {CLR_CREME},; {CLR_AZULADITO},; {CLR_BLANCO},; {CLR_HYEL},; {CLR_LYEL},; {CLR_AZUL_BRANCO},; {CLR_GRIS2},; {CLR_SHADOW},; {CORBK},; {CLR_LIGHT},; {CLR_AZULXP},; {CLR_VERMELHO},; {CLR_AMARELO},; {CLR_LYELLOW},; {CLR_GETS},; {CLR_LWHITE},; {CLR_BROW},; {CLR_BFOOT},; {CLR_PRETO},; {CLR_AM_CALRO}} *--- Fim das cores m_arrcor:={} m_arrdad:={} select(50) dbgotop() l_cor=0 do while !eof() l_cor++ aadd(m_arrcor,{cadoco_des,m_cor[l_cor]} ) aadd(m_arrdad,cadoco_qtd) dbskip(1) enddo DEFINE DIALOG w_e23 FROM 1,1 TO 33,100 TITLE "Ocorrencias" COLOR "N/W" @ 1, 1 GRAPH oGraph; SIZE 250, 200; TYPE 4; YVALUES 3D XGRID YGRID XVALUES LEGENDS PIXEL oGraph:aSeries:=m_arrcor oGraph:aData:=m_arrdad oGraph:nClrX = CLR_GREEN oGraph:nClrY = CLR_RED ACTIVATE DIALOG w_e23 CENTER RETURN NIL Quando tento executar da o erro abaixo Erro BASE/1068 Argument error: array access Cancelado TGRAPH:DRAWPIE(883) Cancelado TGRAPH:PAINT(488) Cancelado TGRAPH:DISPLAY(328) Cancelado TCONTROL:HANDLEEVENT(0) Cancelado _FWH(0) Cancelado DIALOGBOXINDIRECT(0) Cancelado TDIALOG:ACTIVATE(0) Cancelado FINCOE23(100) Cancelado EVAL(493) Cancelado TMENU:COMMAND(0) Cancelado TWINDOW:COMMAND(0) Cancelado TWINDOW:HANDLEEVENT(0) Cancelado _FWH(0) Cancelado WINRUN(0) Cancelado TWINDOW:ACTIVATE(0) Cancelado MAIN(179) FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

Alguem conseguiu solucinar este problema, pois estou vivendo ele neste momento, sem conseguir resposta. FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

Ola pessoal, gostaria de saber se alguem tem exemplo que como acessar um banco em MS SQL Server 2008 atraves do ODBC. Muito obrigado pelos que ajudarem. sds Jadson FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta

Ola pessoal, gostaria de saber se alguem tem exemplo que como acessar um banco em MS SQL Server 2008 atraves do ODBC. Muito obrigado pelos que ajudarem. sds Jadson FWH 11.4 + BCC 5.82 + Harbour 2.1.0 Beta