Alain da Silva

June 23, 2016

bom dia, tem como colocar a separação entre os botões.

Estou fazendo assim e não esta tendo resultados:

@ 04,04 ADD BUTTON oBtn1 PROMPT "NFe Vendas" BITMAP ".\bitmaps\alphabmp\nfe.bmp";
GROUP oGrupo SIZE 85,60 BOTTON round SEPARATOR;
Action VENDA()

June 22, 2016

Desconsiderar.

June 20, 2016

valeu obrigado

June 18, 2016

tem como instalar?

June 17, 2016

Boa noite Alessandro, eu baixei em dicas os relatórios em FR3 que vc postou. Estou querendo aprender como utilizar o fr3. Na minha atualização do five meus relatórios não funcionam mais. Teria como vc me mostrar como montar um relatório por exemplo o aFrRelatorioPadrao.fr3.

Antes eu fazia assim:

#include "FiveWin.ch"
#include "Utilprn.ch"

FUNCTION RELVEN()
  LOCAL OPRN,GRUA,SUBA,XLN,LN,oUtil,oFnt9,ofnt4,NGRU,NSUB,RFOR,CON,TREC
  DBCLOSEALL()
  IF ABRE6()=.F.
     MSGALERT("Não Foi Possível Abrir os Arquivos, Tente Novamente...","Mensagem")
     RETURN(.F.)
  ENDIF

XXI := .T.
  NATUAL := 0

PRINTER OPRN NAME "RELATÓRIO DE VENDEDORES" PREVIEW MODAL
  IF GETPRINTDC() == 0 // Cancelar Impressão
     RETURN .F.
  ENDIF

OPRN:SETPAGE(9)
//  OPRN:SETLANDSCAPE()    // paisagem
  DEFINE FONT oFnt9 NAME "Arial" SIZE 0,-8 OF OPRN
  DEFINE FONT oFNT4 NAME "Arial" SIZE 0, -10 BOLD OF oPrn
  DEFINE PEN oPen WIDTH 3 COLOR CLR_BLACK
  DEFINE UTILPRN oUtil PEN oPen OF oPrn
  XLN := 4.6
  LN := 26

  SELE 6
  GO TOP
  CURSORWAIT()

  PAG := 1
  CABVEN(OPRN,PAG,oUtil)

  BEGIN SEQUENCE

     DO WHILE ! EOF()
        UTILPRN oUtil XLN,0.8   SAY STRZERO(ARQVEN->CODIGO,14)
        UTILPRN OUTIL XLN,4.8   SAY ARQVEN->NOME
        UTILPRN OUTIL XLN,14.3  SAY STR(ARQVEN->PERCENTUAL,5,2)
        XLN := XLN + 0.4
        LN := LN + 1
        IF LN >= 86
           PAG := PAG + 1
           ENDPAGE
           XLN := 4.6
           LN := 26
           CABVEN(OPRN,PAG,oUtil)
        ENDIF
        SKIP
        UNLOCK
     ENDDO
  END SEQUENCE
  IF LN <> 86
     ENDPAGE
  ENDIF
  ENDPRINT
  OUTIL:END()
  OPEN:END()
  OFNT9:END()
  OPRN:END()
  CURSORARROW()
  GO TOP
  RETURN NIL

****************************************
FUNCTION CABVEN(OPRN,PAG,oUtil)
  Local oBrush
  Local nColor := 15724527
  DEFINE FONT oFont NAME "Arial" SIZE 0,-16 BOLD OF OPRN
  DEFINE FONT oFNT2 NAME "Arial" SIZE 0, -10 OF oPrn
  DEFINE FONT oFNT3 NAME "Arial" SIZE 0, -12 BOLD OF oPrn
  DEFINE FONT oFNT4 NAME "Arial" SIZE 0, -6.5 OF oPrn
  DEFINE BRUSH oBrush COLOR nColor

  PAGE
  UTILPRN oUtil BOX 0.35,0.5 TO 3,20.2 PEN oPen
  UTILPRN oUtil BOX 0.35,5 TO 3,15     PEN oPen

UTILPRN oUtil 0.5,0.6  IMAGE "IMAGE\VALPANEMA.jpg" SIZE 4,2 JPG
UTILPRN oUtil 0.5,16 IMAGE "IMAGE\TECMA.jpg"     SIZE 4,2 JPG

  UTILPRN oUtil  1,7    SAY                    "VALPANEMA FLORESTAL LTDA"                             FONT ofnt4
  UTILPRN oUtil 1.5,5.2 SAY "Rodovia Raposo Tavares KM 516,3 - Rancharia/SP - CEP 19.600-000 - Fone (18) 3265-8070" FONT ofnt4
  UTILPRN oUtil  2,7    SAY                 "CNPJ 43.198.696/0004-68  -  I.E. 570.006.243.110"                      FONT ofnt4
  UTILPRN oUtil  2.5,8  SAY                         "Data: " + DTOC( Date() )+" - Hora: "+ Time()                   FONT ofnt4
  UTILPRN oUtil 3.2,16.3  SAY "PAGINA NÚMERO : "+STRZERO(PAG,3)                                                     FONT ofnt2  UTILPRN oUtil SELECT ofnt2
  UTILPRN oUtil SELECT ofnt4
  UTILPRN oUtil SELECT oBrush

  UTILPRN oUtil MSG {"RELATÓRIO DE VENDEDOR/REPRESENTANTE"} TEXTFONT ofont AT 3.2,0.5 NOBOX

  UTILPRN oUtil BOX 4,0.5 TO 4.5,20.2 PEN oPen
  UTILPRN oUtil MSG {"CODIGO"} TEXTFONT OFNT2 AT 4.1,0.5 NOBOX
  UTILPRN oUtil MSG {"NOME"} TEXTFONT OFNT2 AT 4.1,4.5 NOBOX
  UTILPRN oUtil MSG {"COMISSÃO <%>"} TEXTFONT OFNT2 AT 4.1,14 NOBOX

  oBrush:End()
  RETURN(.T.)

Eu cheguei a fazer assim:

#include "FiveWin.ch"
#include "report.ch"

STATIC oReport

Function RELCLI()
   LOCAL oFont1, oFont2, oFont3, oPen1, oPen2

   DEFINE FONT oFont1  NAME "ARIAL" SIZE 0,-10
   DEFINE FONT oFont2  NAME "ARIAL" SIZE 0,-10 BOLD
   DEFINE FONT oFont3  NAME "ARIAL" SIZE 0,-20 BOLD
   DEFINE FONT fTitulo NAME "Times New Roman"  SIZE 0,-17
   DEFINE PEN  oPen1  WIDTH 1
   DEFINE PEN  oPen2  WIDTH 2

//______Carega configurações_____//
   if !CarregaConfig()  // Funcoes_envio.prg
	Return Nil
   Endif
   SELE 1
   DBSETORDER(2)
   DBGOTOP()
//-----------------------------------------------
//_______ INicio DO rELATÓRIO
//-----------------------------------------------
   REPORT oReport TITLE  "RELATÓRIO DE CLIENTE",m->hDados['Fantasia'],m->hDados['Endereco'];
          CAPTION "Relatório de Cliente" ;
          HEADER "Data da Emissão",DTOC(DATE()) RIGHT ;
          FOOTER "Página nº: "+str(oReport:nPage,3) CENTER;
          PEN oPen1, oPen2 ;
          FONT oFont1, oFont2, oFont3, fTitulo ;
          preview

   COLUMN TITLE "Código";
          DATA arqcli->codigo
*          GRID
*            TOTAL              ;
*            RIGHT              ;
*            PICTURE "9,999,999";
*            FONT 2             ;
*            SIZE 9

   COLUMN TITLE "Nome/Razão Social","Endereço";
          DATA SUBS(arqcli->razao,1,40),ALLTRIM(ARQCLI->ENDERECO)+","+ALLTRIM(ARQCLI->NUMERO) FONT 1;
          GRID

   COLUMN TITLE "Cidade","UF";
          DATA SUBS(ARQCLI->CIDADE,1,20),ARQCLI->ESTADO;
          GRID

   COLUMN TITLE "Telefone";
          DATA ARQCLI->TELEFONE;
          GRID
**          SHADOW pinta

*   GROUP ON ARQCLI->ESTADO ;     //--------- FAZER SOMAS
*         FOOTER "Total do Estado: "+oReport:aGroups[1]:cValue+ ;
*                " ("+ltrim(str(oReport:aGroups[1]:nCounter))+")" ;
*         FONT 2 ;
*         EJECT

   END REPORT

   oReport:oTitle:aFont[1]:= {|| 4 }   // coloca a fonte no titulo maior

   oReport:CellView()


   ACTIVATE REPORT oReport ON STARTPAGE Bitmaps()


   oFont1:End()
   oFont2:End()
   oFont3:End()
   fTitulo:End()
   oPen1:End()
   oPen2:End()

RETURN NIL

STATIC Function Bitmaps()
     oReport:SayBitmap(.3,.3,"./report/logo.bmp",1.2,1.2)
RETURN NIL

Obrigado

June 14, 2016

Bom dia Kapiaba, vc falou que ia postar em Dicas mas não encontrei. Estou querendo fazer a cce em fast também e queria aprender como se faz.

Vc postou em dicas se não poderia me enviar alain.rancharia@terra.com.br

Obrigado.

June 9, 2016

opa, obrigado.

June 8, 2016

Boa tarde Alessandro, preciso de uma ajuda. Como eu faço pra ir atualizando um obj conforme ou for navegando no browse.

Tipo tenho um botao que com when pra aparecer somente se for tal condição.

Valeu

June 7, 2016

bom dia pessoal, na função:

   DEFINE RIBBONBAR oRibbon OF oWnd PROMPTS "Faturamento","Financeiro","Recursos Humanos","Escrita Fiscal","Módulo Fiscal","Módulo Contábil" ;
   HEIGHT 150 TOPMARGIN 60 color BRANCO
   BackStage( oRibbon,oWnd )

Function BackStage( oRibbon,oWnd )

   local  oBackStage

   DEFINE BACKSTAGE oBackStage MAINWIDTH 200

   DEFINE BSSELECT OF oBackStage PROMPT "Configurações do Sistema" ACTION CADEMP();
          COLORS nRGB( 242, 96, 96 ), nRGB( 195, 37, 37 )

   DEFINE BSBUTTON OF oBackStage PROMPT "Sobre o Sistema" ;
          BITMAP ".\bitmaps\16x16\info.bmp";
          ACTION MsgAbout("FiveWin",FWVERSION+" >> "+VERSION());
          GRADIENT { { 1,  AZULXP, AMARELO } }

   DEFINE BSBUTTON OF oBackStage PROMPT "Backup" ;
          BITMAP ".\bitmaps\alphabmp\bs_save.bmp" ACTION Msginfo( oOpt:cPrompt );
          GRADIENT { { 1,  AZULXP, AMARELO } };
          COLORTEXT CLR_BLACK, CLR_WHITE

   DEFINE BSBUTTON OF oBackStage PROMPT "Tela" ;
          BITMAP "bitmaps\config.bmp" ACTION (mudaTELA(),APLICATELA(oWnd,oBmp));
          GRADIENT { { 1,  AZULXP, AMARELO } };
          COLORTEXT CLR_BLACK, CLR_WHITE

   DEFINE BSBUTTON OF oBackStage PROMPT "Cadastro da Empresa" ;
          BITMAP "Image\EMPRESA1616.bmp" ACTION CADEMP();
          GRADIENT { { 1,  AZULXP, AMARELO } };
          COLORTEXT CLR_BLACK, CLR_WHITE

   DEFINE BSBUTTON OF oBackStage PROMPT "Ativar" ;
          BITMAP "Image\CHAVE.bmp" ACTION MSGINFO("CHAVE DE ATIVAÇÃO");
          GRADIENT { { 1,  AZULXP, AMARELO } };
          COLORTEXT CLR_BLACK, CLR_WHITE

   SET BACKSTAGE oBackStage TO oRibbon

eu ativo a Backstage.

Eu quero saber o seguinte, Como eu faço pra voltar a tela principal sem ter que clicar no botão novamente. Tem um comando que fecha a BAckstage?

OUtra coisa, Tem como mudar a cor da Ribbon?

Obrigadao

kapiaba · June 2, 2016

Era isso mesmo Kapiaba, tinha que mudar para systabcontrol32.

obrigado

June 2, 2016

O testfold funciona. Eu não consigo fazer funcionar no meu prg. e ele nem mostra em forma de aba.

Ronaldbuch · June 2, 2016

Pessoal, como se usa o Folder no five 14. Testei usando o exemplo TestFold. mas não estou conseguindo, só esta saindo a primeira aba.

#INCLUDE "FIVEWIN.CH"
#INCLUDE "XBROWSE.CH"
#INCLUDE "CORES.CH"
#INCLUDE "RIBBON.CH"
#include "Folder.ch"
#include "dbcombo.ch"

  DEFINE DIALOG dlgven2 RESOURCE "FOLDERNFE"
  dlgven2:LHELPICON := .F.  // Tira a ? da janela
*----------------------------------------------------------------------------------------*
  REDEFINE FOLDER oFld id 30 of DLGVEN2;
      PROMPT "Dados da NF Eletrônica";
      DIALOGS "MANUTNFE","MANUTNFE2"
  oFld:aEnable = { .t., .t.}
  ACTIVATE DIALOG DLGVEN2 CENTERED

FOLDERNFE DIALOG 17, 6, 670, 378
STYLE DS_ABSALIGN | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_MAXIMIZEBOX
CAPTION "Fenix Sistem@s - Vendas"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 PUSHBUTTON "&Salvar", 17, 54, 362, 50, 14
 PUSHBUTTON "&Cancelar", 37, 105, 362, 50, 14
 LTEXT "Chave de Acesso", 32, 76, 19, 73, 10
 LTEXT "", 33, 149, 18, 392, 12, WS_DISABLED | WS_BORDER | WS_GROUP
 LTEXT "Versão XML", 34, 547, 21, 50, 10
 CTEXT "2.0", 35, 598, 18, 52, 13, SS_CENTER | WS_DISABLED | WS_BORDER | WS_GROUP
 LTEXT "", 20, 4, 17, 60, 12, WS_BORDER | WS_GROUP
 PUSHBUTTON "Editar/Alterar", 26, 3, 362, 50, 14
 PUSHBUTTON "Validar", 13, 156, 362, 50, 14
 PUSHBUTTON "Visualizar Danfe", 29, 207, 362, 65, 14
 PUSHBUTTON "Relatórios", 19, 273, 362, 65, 14
 PUSHBUTTON "Retornar", 18, 339, 362, 65, 14
 CONTROL "TFolder", 30, "TFolder", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 13, 50, 438, 267
}

May 29, 2016

É isso mesmo, obrigado Alessandro.

May 29, 2016

Alessandro, para usar com recursos, é da mesma forma?

REDEFINE XBROWSE oBrw ID 107 OF DLGVEN FASTEDIT AUTOSORT ///CELL

ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Xml" center

oBrw:CreateFromCode()

E se for, qual o recurso usar. TWBrowse, TCBRwose, TsBrowse. Estou Testando com todos mas esta dando erro.

May 29, 2016

Estou atualizando o five e neste teste meu combobox não me informa o nAT.

#INCLUDE "FIVEWIN.CH"
#INCLUDE "XBROWSE.CH"
#INCLUDE "CORES.CH"
#include "ribbon.ch"

FUNCTION VENDA()
  MEMVAR VARNFE
  local aItemstab  := { "Nº da Nota","Destinatário","Data da Emissão","Valor da Nfe","Placa do Veículo" }
  LOCAL cCombo:="Nº da Nota"

  @ 65,10  COMBOBOX cCombo  ITEMS aItemstab  SIZE 100,100 pixel  OF DLGVEN ON CHANGE IIF( cCombo:nAt=1, MsgWait( "Message-Test 1", "Row Position 1", 2 ), NIL )

Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: NAT

aferra · May 28, 2016

Valeu Alessandro, agora estou entendo melhor esse negócio de colocar imagem. Obrigado

May 28, 2016

Alessandro preciso de uma ajuda.

Eu queria testar esses três arquivos e colocar um img para cada uma mas não estou conseguindo.

cFile := ".\NFE_ASSINADO\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\ProtNFE"+ALLTRIM(CCHAVE)+".XML"
cFile2 := ".\NFE_ASSINADO\INUTILIZADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\InutilizaNFE-"+ALLTRIM(CCHAVE)+".XML"
cFile3 := ".\NFE_ASSINADO\CANCELADA\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\CancNFE-"+ALLTRIM(CCHAVE)+".XML"

ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Xml" center
ADD COLUMN TO XBROWSE oBrw DATA '' HEADER "Status" center

         oBrw:aCols[1]:bBmpData      := {|| 1 }
         oBrw:aCols[1]:AddBmpFile("image\XMLFOR.bmp" )
         oBrw:aCols[1]:addbmpfile("" )
         oBrw:aCols[1]:bBmpData      := {|| If(VERNAPASTA(ARQNFE->CHAVE,ARQNFE->DTEMISSAO), 1,2 ) }
         oBrw:aCols[1]:nDataBmpAlign := AL_CENTER
         oBrw:aCols[1]:nHeadBmpNo    := 2
         oBrw:aCols[1]:nDataBmpAlign := AL_CENTER
esse caso eu faço pra mostrar uma img quando enviado e funciona, agora queria fazer o mesmo na coluna status mas mostrando 
3 img diferente.

Function Vernapasta(Cchave,DTEMISSAO)
  CCHAVE:=CHARIE(CCHAVE)
  cFile := ".\NFE_ASSINADO\"+SUBS(DTOC(DTEMISSAO),4,2)+SUBS(DTOC(DTEMISSAO),7,4)+"\ProtNFE"+ALLTRIM(CCHAVE)+".XML"
  If !File(cFile)
     RETURN(.F.)
  EndIf
RETURN(.T.)

kapiaba · May 24, 2016

Agora foi, eu compilei de outra forma e consegui incorporar o res.

obrigado

May 24, 2016

Kapiaba, será que estou carregando certo o arquivo RES na compilação.

segue o resource

USUARIO DIALOG 33, 52, 325, 125
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Gerenciar arquivos"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
CONTROL "", 101, "TBitMap", WS_CHILD | WS_VISIBLE, 0, 0, 325, 63
EDITTEXT 103, 94, 70, 187, 15, ES_PASSWORD | WS_BORDER | WS_TABSTOP
PUSHBUTTON "Confirma", 102, 172, 95, 50, 14
LTEXT "Senha:", -1, 52, 76, 28, 8
PUSHBUTTON "Cancelar", 104, 231, 94, 50, 14
}

May 24, 2016

FUNCTION SUPERVISOR(LSENHA)
  SAIDLG:=.F.
  CRAZ=SPACE(100)
  DEFINE FONT oFNC NAME "Arial" SIZE 0, -12 BOLD
  DEFINE FONT oGetFnt NAME "Arial" SIZE 0, -13
  DEFINE DIALOG tlSENHA RESOURCE "USUARIO" TITLE "Senha do Supervisor/Usuário"
  tlSENHA : LHELPICON := .F.  // Tira a ? da janela
  REDEFINE bitmap img1 ID 101 RESOURCE "SENHA" OF tlSENHA
  REDEFINE GET OGLOF VAR CRAZ ID 103 PICTURE "@!"  OF tlsenha
  REDEFINE BTNBMP oBtn ID 102 OF tlsenha ACTION (VERIFICA(CRAZ),XSETFOCUS(OGLOF));
  TOOLTIP  "Login na Conta" PROMPT "Confirma" LEFT FONT OFNC

  REDEFINE BTNBMP oBtn ID 104 OF tlsenha ACTION (saidlg:=.t.,LSENHA:=2,TLSENHA:END());
  TOOLTIP  "Login na Conta" PROMPT "Cancelar" LEFT FONT OFNC
  ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG   //// AQUI É O ERRO!!!
  RETURN(LSENHA)

ja tinha postado. Nesse modelo de compilação, inclusive que vc me passou, não achei como colocar o erro.log

o programa esta acima. WFATURA.RMK

May 24, 2016

Nfunção é um PRG que tenho várias funções entre elas a função: supervisor(lsenha)

ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG /// linha do erro

May 24, 2016

Bom dia, estou atualizando o five e estou tentando acertar os erros.

Não sei se estou adicionando certo o Arquivo "RES" na compilação.

esso erro acontece na execução da função

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 539 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 277 )
Called from: .\prg\NFUNCAO.PRG => SUPERVISOR( 48 )

WFATURA.RMK

#Borland make sample, (c) SysCtrl 2003-2016

HBDIR=\NOVO\XHARBOUR
BCDIR=\NOVO\BCC582
FWDIR=\NOVO\FIVE14

#cambiar estos path a sus necesidades
#LOS ARCHIVOS .CH PERSONALES COPIARLOS A INCLUDE DE FWH
.path.OBJ = .\obj
.path.PRG = .\prg
.path.CH  = $(FWDIR)\include;$(HBDIR)\include
.path.C   = .\prg
.path.rc  = .\res

#Archivos PRG.s que se compilan!


PRG =               \
WFATURA.PRG         \
TRCALC.PRG          \
NFUNCAO.PRG         \
ENTRADA.PRG         \
REORG2.PRG           \
w32olex.PRG         \
funcoes_envio.PRG   \
funcoes_NFE.PRG     \
FastRepH.PRG        \
FastRepC.PRG        \
VENDA.PRG           \

#Archivos de c++ que se compilan!
c =   \

PROJECT    : wfatura.exe

wfatura.exe  : $(PRG:.PRG=.OBJ) $(c:.C=.OBJ) .\res\WFATURA.res
wfatura.exe  : $(PRG:.PRG=.OBJ) $(c:.C=.OBJ) .\res\WFATURA2.res
   echo off
   echo $(BCDIR)\lib\c0w32.obj + > b32.bc
   echo obj\WFATURA.OBJ                \
        obj\TRCALC.OBJ                 \
        obj\NFUNCAO.OBJ                \
        obj\ENTRADA.OBJ                \
        obj\REORG2.OBJ                  \
        obj\W32OLEX.OBJ                \
        obj\FUNCOES_ENVIO.OBJ          \
        obj\FUNCOES_NFE.oBJ            \
        obj\FASTREPH.OBJ               \
        obj\FASTREPC.OBJ               \
        obj\VENDA.OBJ,                 + >> b32.bc
   echo wfatura.exe,                   + >> b32.bc
   echo wfatura.map,                   + >> b32.bc

   rem librerias de terceros
   rem echo C:\dolphin\TDOLPHIN\LIB\dolphinx.LIB             + >> b32.bc
   rem echo C:\dolphin\tdolphin\LIB\mysql\omf\libmysql.LIB   + >> b32.bc
   REM echo C:\fwh\LIB\ttaskpanel.LIB                        + >> b32.bc
   REM echo C:\fwh\LIB\pdfing.LIB                            + >> b32.bc

   echo $(FWDIR)\lib\FiveHx.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
   echo $(HBDIR)\lib\rtl.lib          + >> b32.bc
   echo $(HBDIR)\lib\vm.lib           + >> b32.bc
   echo $(HBDIR)\lib\gtgui.lib        + >> b32.bc
   echo $(HBDIR)\lib\lang.lib         + >> b32.bc
   echo $(HBDIR)\lib\macro.lib        + >> b32.bc
   echo $(HBDIR)\lib\rdd.lib          + >> b32.bc
   echo $(HBDIR)\lib\dbfntx.lib       + >> b32.bc
   echo $(HBDIR)\lib\dbfcdx.lib       + >> b32.bc
   echo $(HBDIR)\lib\dbffpt.lib       + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib        + >> b32.bc
   echo $(HBDIR)\lib\debug.lib        + >> b32.bc
   echo $(HBDIR)\lib\common.lib       + >> b32.bc
   echo $(HBDIR)\lib\pp.lib           + >> b32.bc
   echo $(HBDIR)\lib\codepage.lib     + >> b32.bc
   echo $(HBDIR)\lib\ct.lib           + >> b32.bc
   echo $(HBDIR)\lib\pcrepos.lib      + >> b32.bc
   echo $(HBDIR)\lib\zlib.lib         + >> b32.bc
   echo $(HBDIR)\lib\hbzip.lib        + >> b32.bc
   echo $(HBDIR)\lib\libmisc.lib      + >> b32.bc
   echo $(HBDIR)\lib\tip.lib          + >> b32.bc
   echo $(HBDIR)\lib\png.lib          + >> b32.bc
   rem echo c:\XHB1006\lib\pdfing.lib + >> b32.bc
   rem echo C:\XHB1006\LIB\HBZIP.LIB  + >> b32.bc
   rem echo C:\XHB1006\LIB\ZLIB.LIB   + >> b32.bc

   rem quitar el comentario en estas 2 lineas si se usa Advantage RDD
   REM echo $(HBDIR)\lib\rddads.lib   + >> b32.bc
   REM echo $(HBDIR)\lib\Ace32.lib    + >> b32.bc
   REM echo $(FWDIR)\lib\dolphinx.lib + >> b32.bc
   REM echo $(FWDIR)\lib\libmysql.lib + >> b32.bc

   echo $(BCDIR)\lib\cw32.lib          + >> b32.bc
   echo $(BCDIR)\lib\import32.lib      + >> b32.bc
   echo $(BCDIR)\lib\uuid.lib          + >> b32.bc
   echo $(BCDIR)\lib\ws2_32.lib        + >> b32.bc
   echo $(BCDIR)\lib\psdk\odbc32.lib   + >> b32.bc
   echo $(BCDIR)\lib\psdk\nddeapi.lib  + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\msimg32.lib  + >> b32.bc
   echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\psapi.lib    + >> b32.bc
   echo $(BCDIR)\lib\psdk\wininet.lib  + >> b32.bc
   echo $(BCDIR)\lib\psdk\shell32.lib  + >> b32.bc
   echo $(BCDIR)\lib\psdk\gdiplus.lib,   >> b32.bc

   IF EXIST WFATURA.res echo WFATURA.res >> b32.bc
   IF EXIST WFATURA2.res echo WFATURA2.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s  @b32.bc
   del b32.bc

.PRG.OBJ:
  $(HBDIR)\bin\harbour $<  /N /m /es2 /gc1 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
  #$(HBDIR)\bin\harbour $< /L /N  /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp2
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp2
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp2 $&.c
  del tmp2

WFATURA.res : WFATURA.res
  $(BCDIR)\bin\brc32.exe -r wfatura.res
WFATURA2.res : WFATURA2.res
  $(BCDIR)\bin\brc32.exe -r wfatura2.res

FUNCTION SUPERVISOR(LSENHA)
  SAIDLG:=.F.
  CRAZ=SPACE(100)
  DEFINE FONT oFNC NAME "Arial" SIZE 0, -12 BOLD
  DEFINE FONT oGetFnt NAME "Arial" SIZE 0, -13
  DEFINE DIALOG tlSENHA RESOURCE "USUARIO" TITLE "Senha do Supervisor/Usuário"
  tlSENHA : LHELPICON := .F.  // Tira a ? da janela
  REDEFINE bitmap img1 ID 101 RESOURCE "SENHA" OF tlSENHA
  REDEFINE GET OGLOF VAR CRAZ ID 103 PICTURE "@!"  OF tlsenha
  REDEFINE BTNBMP oBtn ID 102 OF tlsenha ACTION (VERIFICA(CRAZ),XSETFOCUS(OGLOF));
  TOOLTIP  "Login na Conta" PROMPT "Confirma" LEFT FONT OFNC

  REDEFINE BTNBMP oBtn ID 104 OF tlsenha ACTION (saidlg:=.t.,LSENHA:=2,TLSENHA:END());
  TOOLTIP  "Login na Conta" PROMPT "Cancelar" LEFT FONT OFNC
  ACTIVATE DIALOG tlSENHA CENTER VALID SAIDLG
  RETURN(LSENHA)

May 20, 2016

obrigado

May 19, 2016

Alguém poderia postar um exemplo de compilação em lote. Eu testo o buildx.bat normal sem erro, já o meu bat da um monte de erros. Já olhei mas não achei o erro.

aferra · May 18, 2016

rapaz gastei mesmo, kkkkk quem manda ter o conhecimento.

Agora acabei nesse assunto, como estou atualizando o five esta pipocando um monte de coisas.

abs

Sign In

Alain da Silva

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by Alain da Silva

SEPARATOR RIBBON

Help Relatório Utilprn/TImprime

Workshop windows 10 64bits

Workshop windows 10 64bits

Relatórios em FR3/Alessandro

FASTREPORT Exportar a .PDF direto

browse

browse

ribbon

Folder

Folder

Folder

browse

browse

Combobox

browse

browse

WORKSHOP

WORKSHOP

WORKSHOP

WORKSHOP

WORKSHOP

COMPILAR XHARBOUR

COMPILAR XHARBOUR

browse

Browse

Activity