FiveTech Software tech support forums

... con las modificaciones sugeridas #include "FiveWin.ch" #include "XBrowse.ch" STATIC CODBCO, NOMBCO, CTABCO, CTACTA, GRA, NREG, oDlg, oBrw STATIC TNUEVO := .T. FUNCTION MAIN() LOCAL oWnd, oBar, oMeter, oText SET Deleted On SET _3DLOOK ON lMkDir("DATA") IF .NOT. ...

Esteban: Gracias por tu apoyo pero fijate que no doy pie con bola :oops: mira tengo un array de la siguiente forma: aRegs[nReg,nCol] Imaginemos que tiene 5 registros (nReg = 5) y que cada registro tiene 4 campos (nCols = 4), cómo debería definir el código para pasarlo a FastReport y ...

... PUBLIC oFileXLS,oDlg, oLbx, oFont, oMeter, nMeter,oExcel, oHoja, oBrw DEFINE FONT oFont NAME "Arial" SIZE 0,-11 PUBLIC lIni := .t., nReg := RecNo(), cActividad := "" PUBLIC nFormat1, nFormat2,nContar PUBLIC nFont1, nFont2, nFont3, nFont4 nContar = 0 xOrden = "Orden ...

... PUBLIC oFileXLS,oDlg, oLbx, oFont, oMeter, nMeter,oExcel, oHoja, oBrw DEFINE FONT oFont NAME "Arial" SIZE 0,-11 PUBLIC lIni := .t., nReg := RecNo(), cActividad := "" PUBLIC nFormat1, nFormat2,nContar,nContar1 PUBLIC nFont1, nFont2, nFont3, nFont4 nContar = 0 nContar1 = ...

... Function Busque(xBuscar) local cTipoDato:=ValType(xBuscar) local aDBFS:={"test","wmdata"} local n:=0, cAlias local TpoIn:=Seconds(), TpoFi:=0, nRegist:=0, nDbfs:=0, nReg:=0 For n:=1 to len(aDBFS) if !file(aDBFS[n]+".dbf") aadd(aEncont,"NO SE ENCONTRO "+aDBFS[n]+".dbf") else dbUseArea(.t.,,aDBFS[n],aDBFS[n],.t.) ...

... la siguiente: FUNCTION Ingresar(NPar) #INCLUDE "FiveWin.CH" #INCLUDE "RichEdit.CH" LOCAL oSay, oGrp[3], oGet[12], NOM:=SPACE(20) PRIVATE oDlgING, NREG:="Nuevo", oBut[20], Btmp[2], oBtmp[2], oCom[9] PRIVATE CIU:={}, EST:={}, ARB:={}, DTS:={}, EDC[22], RES[22], NDT:=REA:=REF:=LM:=0 PRIVATE JUGADL[14,4], ...

... bEdit ) LOCAL oDlg, oFont, oBrush LOCAL btnNew, btnModify, btnDelete, btnSearch, btnList, btnEnd LOCAL n,BORDEM LOCAL CONTINUA:=.T. LOCAL oReg,nReg PUBLIC AQS PUBLIC oLbx AQS=AQ MFONTES() DEFAULT cTitle := "Browse", cListName := "Registros",; bDelete := {|| oLbx:Setfocus()},; bList := {|| oLbx:Setfocus()},BEDIT:=.F. ...

... !myUSE(DIRDBF+"SLBDPLOJ" , "LOJAS" ,.T. ,3,,xRdd ) RETURN .F. ENDIF oText:SetText( "Indexando Arquivo " + Alias() ) oMeter2:Setpos( LastRec() * 4) NREG := 0 index on LOJAS->PRODUTO + LOJAS->LOJA TAG SLBDPLO1 index on LOJAS->LOJA + LOJAS->PRODUTO TAG SLBDPLO2 index on (DToS( LOJAS->DT_ENTRA ...

... del padron de productos Autor: Econ. Armando Picón S., Lima, Perú */ #include "fivewin.ch" #include "report.ch" PROCEDURE listar( oDlg ) LOCAL nReg := 1 LOCAL Fil := 0 // aqui estuvo el error LOCAL Col := 0 LOCAL nCol := 115 // columnas que tiene el papel LOCAL nFil := 64 // filas que tiene ...

... RECALL ENDIF ELSE APPEND BLANK Clientes->Placa := cPlaca ENDIF ActivaGets() ENDIF SET DELETED ON RETURN NIL FUNCTION BorraRegistro() LOCAL nReg := Recno() -1 IF MsgYesNo("Borrar Registro","Confirme") DELETE ENDIF DBGOTO( nReg ) // para colocarse un registro previo al que se ha borrado // ...

... static oDSay,nReg,cCan,nregis,cPend,pendi STATIC cxc:=.t. //__________________________________________ FUNCTION Main() local oBrush, oBar local nClr1,cStat local ...

... local oDlg,aAlias local oBusco,oboton local oCbx,osay local cBusco, cIndi local nClave local aIndi:={} local nReg:=(cAlias)->(Recno()) DEFAULT BusRaiz:="" aeval( tQbusco[3] , { |LX| aadd(aIndi,strtran(LX,"&")) } ) DEFINE DIALOG oDlg RESOURCE "LOCALIZA2" ...

... del padron de productos Autor: Econ. Armando Picón S., Lima, Perú */ #include "fivewin.ch" #include "report.ch" PROCEDURE listar( oDlg ) LOCAL nReg := 1 LOCAL Fil := 0 // aqui estuvo el error LOCAL Col := 0 LOCAL nCol := 115 // columnas que tiene el papel LOCAL nFil := 64 // filas que tiene ...

... las moscas... envió mi codigo: /* Listar la base de datos del padron */ #include "fivewin.ch" #include "report.ch" PROCEDURE listar( oDlg ) LOCAL nReg := 1 LOCAL Fil := 5 LOCAL Col := 0 LOCAL nCol := 115 // columnas que tiene el papel LOCAL nFil := 64 // filas que tiene el papel LOCAL LstCol := ...

... ON CHANGE IF(VAL(cBusca)=0,(::Assign(),; If((DbSeek(AnsiToOem( SubStr( UPPER(cBusca), 1, ::nPos - 1 ) + ; Chr( nKey ) ) ) ),; ( nreg:=recno(), oB:UpStable(), oB:Refresh(), .t. ),; ( dbgoto(nreg) , oB:UpStable(), oB:Refresh(), .f. ) ) ),; ); WHEN IF(lBusAbr,.f.,.T.) REDEFINE BUTTON ...