FiveTech Software tech support forums

... oBrw, cAlias := cGetNewAlias( "CORREGIR" ) local oBr, oFont local titgral := 'Información Sobre Correcciones' local atitcol := '' local acampos := {} local lcampos local aBmp := { "TildeR.bmp", "TildeA.bmp", "TildeV.bmp" } Private oBar2 acampos := {|| {str(Corregir->Numero,4),dtoc(Corregir->FechaError),Corregir->Tema,if(Corregir->Estado=1,aBtms[1], ...

... de la tabla aAdd( aSql, 'SELECT l.id, l.lugar, l.numerodellaves FROM llaves AS l ORDER BY l.id' ) //campos y cabezales para el xbrowse aAdd( aCampos, { 'id', 'lugar', 'numerollaves' } ) aAdd( aHeaders, { 'Id.', 'Lugar', 'Cant. Llaves' } ) //Título del browse aAdd( aTitleBrw, 'Llaves' ) Ejecución ...

... aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "_ARTFOR" ) local oBr, oFont local titgral := 'Stock' local atitcol := '' local acampos := {} local lcampos Private oBar acampos := {|| {str(ArtFor->Articulo,4)+' '+ArtFor->Detalle+' '+ArtFor->Abrevia } } lcampos := {|| ...

... init de la ventana o dialogo que contiene el browse, llama a la funcion que actualiza el oBrwC ACTIVATE DIALOG ON INIT (Actualiza( oBrwB, oBrwC, @aCampos ) , oBrwC:Refresh()) 2) Cambia el alto del xBrowse según el alto de su ventana contenedora acor := GetDialogBaseUnits()oBrwB:nBottom ...

... oFont local aGrad := ; { ; { 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ; { 0.5, RGB( 237, 234, 109 ), RGB( 185, 170, 164 ) } ; } local acampos := {|| {' '+str(Consorc->Consorcio,2)+' '+Consorc->Nombre+' '+Consorc->direccion } } local lcampos := {|| ' '+str(Consorc->Consorcio,2)+' ...

aCampos := "ctacli, " aCampos += Alltrim(lugarsql) Hola. Serian tan amables de ayudarme con esto por favor ... Tabla en mysql con 13 campos. Cliente y 12 mas con m01,m02,....m11,m12 que significan los meses ctabla ...

Armando. como estas, prueba esto

aCampos:={ 'cod_interno'ion'' }
aValues:={ CodControl }
xServer:Insert("ventadiaria", aCampos, aValues )

oQryId := xServer:Query( "SELECT last_insert_id() AS nId")
nReserva := oQryId:nId

saludos

... xCod_art, cEmpresa) LOCAL oGets:= Array( 05 ), aGets:= Array( 05 ) Local oBtns:= Array( 05 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere, lAppend Local cStock1 :=0, oStock1 Local cStock2 :=0, oStock2 Local cStock3 :=0, oStock3 Local cStock4 :=0, oStock4 cStock1:=cTab_Art:in1_art ...

... mi caso trato de crear un DBF temporal con 2 indices, aquí el código: //FErase(".\TMP\FINAL.DBF") //FErase(".\TMP\FINAL.CDX") aCampos:={{"NUM","N",4,0},{"RUT","C",10,0},{"NOMBRE","C",40,0}} nLargo:=Len(aBen) for i=1 ...

... type {|| oCustomer:First } but I Know the oDbf ( tdatabase ) and I have an array where are the fields of this archive so I have : Function bCampo( aCampos, nFor,oDbf) return oDbf:fieldWBlock(aCampos[nFor] ) but this expression oDbf:fieldWBlock(aCampos[nFor] ) not run ok it not make error and then ...

... fields of oEsercizi and I cannot Make the report when I call the fields array use this command RptAddColumn( {bTitulo(::aTitulos,i)},,{bCampo(::aCampos,i)},::aWidth[i],{bPicture(::aPicture,i)},{||1},::aTotal[i],,upper(::aAlign[i]),::lshadow,::lGrid,) the function bCampo(::aCampos,i) function ...

... xServer:Execute( cSql ) oQryId := xServer:Query( "SELECT last_insert_id() AS nId") nReserva := oQryId:nId aCampos := { 'ma_nume' } aValues := { nPasaje+1} aWhere := "ma_codi= '"+"PASAJE"+"'" xServer :Update( "parametro", ...

... lTDolphin.lib; no la que viene incluida en FWH - utilizo HARBOUR 3.2 +BCC 7 Para agregar un recordset utilizo oServer:Insert( "mitabla", aCampos, aDatos ) En el campo DATETIME probé las indicadas en este post, sin exito Probe: dFEHora:= DtoC( dFecha )+' '+cHora dFEHora:= FW_STR2DT(FW_DT2STR( ...

... LOCAL oGets:= Array( 30 ) Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere Local cCod_Mar :=Space(04), cNom_Mar :=Space(30) If lAppend cCod_Mar := Space(04) cNom_Mar := Space(30) Else cCod_Mar := cExt_Mar:cod_mar ...

... de pistolear la cedula. Function Carga_Lector(cEmpresa,cUsuario) Local cGet LOCAL oGet Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 Local aCampos,aValues,aWhere LOCAL lAceptar := .F. Local Dato:=" " Local Rut:=" " cGet:=Space(70) Define Font oFont1 Name "Tahoma" ...