Alain da Silva

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()

Desconsiderar.

valeu obrigado

tem como instalar?

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

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.

opa, obrigado.

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

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

Era isso mesmo Kapiaba, tinha que mudar para systabcontrol32. obrigado

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

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 }

É isso mesmo, obrigado Alessandro.

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.

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

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

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.) ​

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

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 }

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

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

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)

obrigado

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.

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