FiveTech Software tech support forums

... MsgStop("ERROR AL GRABAR ARCHIVO "+cFILE ,"AVISO") RETURN(.F.) ENDIF RETURN(.T.) PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ASALIDA:=".\"+cNOM hFile := FCreate(asalida) FWrite( hFile, cARCH) FClose( hFile ) RETURN NIL

... sigue igual. El código completo del archivo es este: #include "fivewin.ch" #define OFN_ENABLESIZING 0x00800000 function ANEXA(cnum, cnom, nLibro, dfecha, cCentro, cDoc, cPrio, cClasedoc) Local cRaiz:="\COMPARTIDO\REGSAT\WINSAT\DOCUMENTAL" LOCAL CarpetaSAT:=alltrim(cnum)+"-"+alltrim(cnom) ...

... resolver: Definição de duas variáveis iguais: cWin := [áéíóúàèìòùâêîôûäëïöüýÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜãõÃÕçǺª³²½¼¦|-------°&] // Acentos em Window cNom := [áéíóúàèìòùâêîôûäëïöüýÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜãõÃÕçǺª³²½¼¦|-------°&] Se eu comparar caracter por caracter as variáveis cWin e cNom o xHarbour ...

... de las columnas: OrdSetFocus( "3, 5, 2" ) que ordenaria primero por la columna 3 5 y 2 o tambien OrdSetFocus( "fNacimiento, cNom, nHijos" ) o sea por el nombre de las columnas sean del tipo que sean olvidate de str(), dtos() etc SQL sabe hacerlo Ademas dbsetorder( 5 ...

Disculpen me falto agregar algo, la función FUNCTION Add_Marca_Extintores(lAppend,oBrw, cExt_Mar) *----------------------------------------------- LOCAL oGets:= Array( 30 ) Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere Local cCod_Mar :=Space(04),...

Estimados, trabajo con tdolphin y mysql, con xbrowse, tengo el siguiente problema, cuando doy click sobre el encabezado de una columna, esta se ordena de mayor a menor o viceversa, el tema es que cuando pincho otra columna que no necesito que este ordenada me sale error de funcion y otros.. como pue...

Ruben prueba esta clase : #include "FiveWin.ch" FUNCTION Main() LOCAL oPen PUBLIC oImp, aoFont[4], aAnchop[4] SET DATE TO FRENCH DEFINE PEN oPen WIDTH 5 IniImp(21.5, 27.9, 72, 90, "CompraVenta de Hacienda", .t., .t., .f., 1 ) PAGE PrnBox (22, 7,28,89,oPen) PrnLine(30, 7,30,89,oPe...

amigo en mis cositas encontre esto: #include "FiveWin.ch" FUNCTION Main() LOCAL oPen PUBLIC oImp, aoFont[4], aAnchop[4] SET DATE TO FRENCH DEFINE PEN oPen WIDTH 5 IniImp(21.5, 27.9, 72, 90, "CompraVenta de Hacienda", .t., .t., .f., 1 ) PAGE PrnBox (22, 7,28,89,oPen) PrnLine(30, 7...

... segunda pestaña se ve de forma normal. Alguna ayuda? Gracias. //--------------------- FUNCTION Sys280(oWPpal) LOCAL oWnd, oDlg, oIco, oLbx, oBrw, cNom, n, nx, oFon1, nNroReg, oBtn[6], oBrush, oBrush1, oFld1, oDlgActive DEFINE BRUSH oBrush COLOR RGB(238,238,238) DEFINE BRUSH oBrush1 FILE "wall.bmp" ...

... #include "FiveWin.Ch" #include 'ord.ch' #Include "XBrowse.Ch" #include 'hbcompat.ch' #include "Report.ch" static cNom static oGet FUNCTION Sys650(oWPpal) LOCAL oWnd, oDlg, oIco, oLbx, oFont, nNroReg, oBtn[6], n USE MAEREP INDE MAEREP1,MAEREP2,MAEREP3 SHARED ALIAS ...

Pois é...
Perguntei porque eu faço assim... (para não ter que ´andar´ pela base de dados)

If lAppend
cCod_Agen := space(len(Agen->Cod_Agen))
cNom_Agen := space(len(Agen->Nom_Agen))
Endif

Até mais...
Euclides

Euclides » acho que seja para ser automatico.
eu faço assim ex:

If lAppend
Agen->(DbGoBottom())
Agen->(DbSkip())
Endif
cCod_Agen := Agen->Cod_Agen
cNom_Agen := Agen->Nom_Agen

dessa maneira pega os valores automatico

Hola amigos,,
en esta sentencia, como cambio el tipo de Font en ejecucion? ChooseFont() devuelve un array de datos

Salu2

DEFINE FONT oFont1 NAME "Arial" BOLD SIZE 20,38
...
..
.
REDEFINE SAY oNom
VAR cNom
FONT oFont1
COLOR CLR_RED
ID 101 OF oDlg
....
...
..

Holas Jose, ya probe tu aportacion esta bueno,, como controlas si el formato es a media carta? papel continuo, de media carta,, o ahi seguimos usando tdosprn ? saludos.. Simple, lo haces con la función IniImp(nAncho, nLargo, nFilas, nColumnas, cNom_spooler, lsel_imp, lpreview, lLnds ,nCopias), le d...

Amigos: Me ha funcionado, aplicando la forma que me indico "Manuel Aranda", ya que lo de " Loren ", me arroja error que no he declarado las variables y lo de " Marcelo ", yo no abro las bases con DATABASE. Muchas gracias por su ayuda y tiempo dedicado, Le saluda muy atentamente, Rafael, A ver, prueb...