FiveTech Software tech support forums

... oFont, cMsg, aOptions, cTitle, nDefault, xIcon) Local oGet, oBtn, oIcon Local cSay, cLine Local nMaxWidth, nMaxHeight, nWidth, nHeight, nLines, nFor Local nBtnWidth, nBtnOffset, nBtnHeight, nBtnLength Local lHScroll, lVScroll // jdd local hDC hDC := oDlg:GetDC() setTextColor(hDC, CLR_YELLOW) //

... METHOD Imprimir() CLASS FT604 //se imprime el comprobante de pago Local cPuerto:="LPT1", oPrn LOCAL nLin, nFor oPrn:=TDosPrn():New(cPuerto) oPrn:Command("27,112,0,60,240") oPrn:SayCmp( 01,00, "Caja:" ) FOR nFor = 1 TO Len( AR_DATOS ) imprimo los datos del ...

... { "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto",; "Septiembre", "Octubre", "Noviembre", "Diciembre" } ::aAnos := {} FOR nFor = 2004 TO Year( Date() ) AAdd( ::aAnos, StrZero( nFor, 04 ) ) NEXT ::cMes := Array( 02 ) ::cAno := Array( 02 ) AFill( ::cMes, ::aMeses[ Month( ...

... Alguien me puede decir que cambios hacer en el bOnpostEdit. Ver este ejemplo: STATIC FUNCTION AutoEdit( oWnd ) local oChild, oBrw, oCol local nFor USE DATOS ALIAS DATOS DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL ...

... A LOOPING FROM EXECUTING bPAstEof !!!!!!!!!!!! In testxbrw.prg , i changed : STATIC FUNCTION AutoEdit( oWnd ) local oChild, oBrw, oCol local nFor DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle ...

... A LOOPING FROM EXECUTING bPAstEof !!!!!!!!!!!! In testxbrw.prg , i changed : STATIC FUNCTION AutoEdit( oWnd ) local oChild, oBrw, oCol local nFor DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle ...

... segundo tercero') ? CapsFirst('pRIMero SeGUNdo terceRO') ? CapsFirst('1er 2do 3ero') Return NIL Function CapsFirst( cTxt ) Local nFor, cRet := '' lCaps := .t. For nFor := 1 to Len( cTxt ) if lCaps cChar := Upper( SubStr( cTxt,nFor,1 ) ) lCaps := .f. Else cChar := Lower( SubStr( ...

... segundo tercero') ? CapsFirst('pRIMero SeGUNdo terceRO') ? CapsFirst('1er 2do 3ero') Return NIL Function CapsFirst( cTxt ) Local nFor, cRet := '' lCaps := .t. For nFor := 1 to Len( cTxt ) if lCaps cChar := Upper( SubStr( cTxt,nFor,1 ) ) lCaps := .f. Else cChar := Lower( SubStr( ...