FiveTech Software tech support forums

... function go_code( cBarra, nx,ny,oPrint,lHoRz, nColor, nWidth, nLen) //----------------------------------------------------------------- local n, oBr if empty(nColor) nColor := CLR_BLACK end default lHorz := .t. default nWidth := 0.030 // 1/3 M/mm * default nWidth := 0.035 // 1/3 M/mm * default ...

... function AbmCorregir() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CORREGIR" ) local oBr, oFont local titgral := 'Información Sobre Correcciones' local atitcol := '' local acampos ...

... function AbmOC() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "_ARTFOR" ) local oBr, oFont local titgral := 'Stock' local atitcol := '' local acampos := {} local lcampos ...

... pero jo logro que muestre el nombre del cliente. si alguien ve en que le estoy errando agradecere su ayuda. gracias aca el prg. local oDlg, oBrw, cAlias := cGetNewAlias( "PRECFOR" ) local oBr, oFont local titgral := 'Precios de FORMULARIOS' local oBrw2, cAlias2 := cGetNewAlias( ...

... * * * function AbmConsor() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CONSORC" ) local oBr, oFont local aGrad := ; { ; { 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ; { 0.5, ...

... * Factory,240 * Factory,240 * Factory,110 * Factory,110 * Factory } aJust:= { AL_CENTER , AL_LEFT , AL_LEFT, AL_RIGHT , AL_RIGHT } @ 0, 0 XBROWSE oBr COLUMNS aCol HEADERS aHead COLSIZES aSize JUSTRIFY aJust OF oDlg

DEFINE BRUSH oBr color rgb( 204, 255, 153 )
...
UTILPRN ::oUtil Self:nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH oBr WIDTH 18.2 shadow .T.

... local oDlg1,oError,lNuevo:=.F.,cText := "" local oGet := ARRAY(10) LOCAL lSalir := .F. LOCAL lSalvar := .F. local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4) local cServer := "127.0.0.1" local cDataBase := "fwmariadb" ...

... )      oIni:Set( cAlias, "browse", oBrw:SaveState() )      RETURN NIL  and use it in VALID (SaveWinData(oWndObr,oBrw,cAlias),.T.) [Obr] window= browse=XS1:{{"_nCreationOrders",{1,2,3,4}},{"_nRowHeight",21},{"_nWidths",{72.54,132.99,342.47,326.43}},{"_lHides",{.F.,.F.,.F.,.F.}},{"_cGrpHdrs",{,,,}},{"_cHeaders",{"CODIGO","C.I.F.","NOMBRE","DIRECCION"}}} ...

... )      oIni:Set( cAlias, "browse", oBrw:SaveState() )      RETURN NIL  and use it in VALID (SaveWinData(oWndObr,oBrw,cAlias) .T.) [Obr] window= browse=XS1:{{"_nCreationOrders",{1,2,3,4}},{"_nRowHeight",21},{"_nWidths",{72.54,132.99,342.47,326.43}},{"_lHides",{.F.,.F.,.F.,.F.}},{"_cGrpHdrs",{,,,}},{"_cHeaders",{"CODIGO","C.I.F.","NOMBRE","DIRECCION"}}} ...

... , he llegado a imprimir 70 etiquetas sin que se corra un mm Cualquier duda avisame Saludos function barcode2tp() local opr, xStep, yStep, oBr, oFont , N := 0 * public XCANCELA := "N" PUBLIC XCODIGOC := SPACE(13) public ocodigo if msgyesno ("Imprime Codigo de trazabilidad ...

... para mayor rapidez usa FILLARRAY, aca te coloco las formas en que lo uso, saludos... :shock:  oQryVende:FillArray( {| aRow | AAdd( oBrwASi:aArrayData, { aRow[2], aRow[4] } ) } ) // CON POSICION CAMPOoBrwASi:aArrayData := oQryVende:FillArray( ...

... mayor rapidez usa FILLARRAY, aca te coloco las formas en que lo uso, saludos... :shock:  oQryVende:FillArray( {| aRow | AAdd( oBrwASi:aArrayData, { aRow[2], aRow[4] } ) } ) // CON POSICION CAMPOoBrwASi:aArrayData := oQryVende:FillArray( ...

Hi Nages. I need your help to convert this funtion into xbrowse, this work well with Tsbrowse FUNCTION N21A_DEFCOLUMN(_oBR, D_COLUMNAS) LOCAL X:=0, _PIC, _COLOR:="" D_COLSIZES:={} FOR X = 1 TO LEN(D_COLUMNAS) AADD(D_COLSIZES, IIF(D_COLUMNAS[X,3] < 3 , 40 , D_COLUMNAS[X,3] * 9 ) ) _NCOLO...

gautxori, Lo que te muestra la query generada? muestra esto UPDATE OBRAS SET `OB_FECINI` = '0d20160510' WHERE `ID` = 2 Entonces los campos Obr->ob_fecini y Obr->ob_fecfin son caracter... No, son date fijo. ahora no te lo puedo confirmar pero vienen de la migración de DBF a MySql A la ...