FiveTech Software tech support forums

... los campos del alias del browse // FUNCTION EditCelda(oxBrw,aPict,aCampos) #DEFINE nColActual oxBrw:nColAct #DEFINE nLargo oxBrw:aColSizes[nColActual] #DEFINE cPict IIF( ValType(aPict[nColActual])="B", Eval(aPict[nColActual]) ...

... TTxtFile():New( uTXT, 0 ) ElseIf cType == "O" oTXT:= uTXT Else return .F. EndIf ::lDrawHeaders := .F. ::aHeaders := { "" } ::aJustify := { .F. } ::aColSizes := { 2000 } ::nLineStyle := 0 ::cAlias := "_TXT_" ::bLine := { |cLine| cLine:= oTXT:ReadLine(),; If( IsOem( cLine ), cLine:= OemToAnsi( cLine ...

... oRecordSet:Fields(1):value; ON DBLCLICK (odlgbus:end(),wr:=.t.) ; SIZE 258,68 OF oDlgbus PIXEL olbx1:aheaders := ::titulos olbx1:acolsizes := ::sizes oLbx1:aJustify := ::just olbx1:aHJustify := ::justh oLbx1:bLogicLen = { || oRecordSet:RecordCount } oLbx1:bGoTop = { || oRecordSet:MoveFirst() ...

... pero no se refresca lo que tengo en la funcion del valid es Select Camell1 //alias de nueva tabla oBrw:Enable() oBrw:cAlias := 'Camell1' oBrw:aColSizes := {40,100,50,50} oBrw:bLine := { || _aFields( oBrw ) } oBrw:refresh() oBrw:Gotop() Pero no me refresca, como cambian ustedes de tabla un ...

... before closing the dialog you can ask the browse for the column sizes values, and save the new values of the array to a dbf or ini file (oBrwMov:aColsizes). To use a multiline header you only need to use CRLF, like "Punto"+CRLF+"Venta" ,; that is a multiline header. And to jusfify you can use: ...

oBrw:SetColumns( aData, aHeaders, aColSizes )

... TTxtFile():New( uTXT, 0 ) ElseIf cType == "O" oTXT:= uTXT Else return .F. EndIf ::lDrawHeaders := .F. ::aHeaders := { "" } ::aJustify := { .F. } ::aColSizes := { 2000 } ::nLineStyle := 0 ::cAlias := "_TXT_" ::bLine := { |cLine| cLine:= oTXT:ReadLine(),; If( IsOem( cLine ), cLine:= OemToAnsi( cLine ...

... ayudarme, mira el LIstbox lo tengo asi: REDEFINE LISTBOX oLbx fIELDS GenColumns(); ID 102 OF oDlg; oLbx:aheaders := {"Descripcion","Stock"} oLbx:acolsizes := {400,100} STATIC function GenColumns() local bLine:="" bLine:={ || { (cExi_Suc)->Ma_Des1,cExi_Suc)->Bod_001i } } return(bLine) Lo ...

Felipe,

También tienes que asignar aColSizes y aHeaders. Estos son arrays con el ancho de cada columna en pixeles y aHeaders con el texto de encabezado de cada columna.

... bodega)," // La Funcion cSize :=cSize + "50," //aqui le asigno el Size DBSKIP() EndDo oLbx:aheaders := &cTitulo oLbx:acolsizes := &cSize Los aheaders y acolsizes funcionan bien pero Field no REDEFINE LISTBOX oLbx fIELDS cCampo PERO DE ESTA FORMA me funciona Bien: ...