FiveTech Software tech support forums

... incluir en el QR ENDPAGE ENDPRINT //............................................ FUNCTION BuildQR( oPrn ,nRow,nCol,cCode ) local nFlags := 0 local nCode := 14 // codigo para el CODEBARQR oCode := TCodeBars():New(600,600,10,10,nCode,cCode,0 ) oCode:Reset() oCode:Build() Drawbitmap( oPrn:hDCOut, ...

... cDoc  the problem of this function is ( the same of james ) if I not save arecord it lose the code and the next code is ncode+1 But on this application first it use a code type 0000000001 and the the code of customer become , i not Know where, another code for a sample ...

... AnsiToHtml(<cAnsiString>)->cHtmlString Array(<nElements>,[<nElements>,...])->aArray Asc(<cExp>)->nCode AScan(<aTargets>,<expSearch>,[<nStart>],[<nCount>],[<lExact>],[<lASCII>])->nStoppedAt ASCIISum(<cString>)->nASCIISum ...

... "DATAMATRIX" action( BuildCode( CODEBAR_DATAMATRIX, "DataMatrix :)") ) endmenu endmenu return oMenu function BuildCode( nCode, cCode, nFlags ) * local hDC := oWndP:GetDC() default nFlags := 0 oCode:Reset() if nCode < CODEBAR_PDF417 oCode:nHeightCode = oCode:nHeight ...

Silvio, Silvio wrote : if we use oBtn[n]:bAction := bEjecutaBoton(n, nrow,ncol , nCode,nCaption,obtn[n]) the control draw a border don't use nrow,ncol !! oBtn[n]:bAction := bEjecutaBoton(n, 0, 0 ,nCode,nCaption,obtn[n]) will display the popup on top / left of the ...

... 15+1oBtn:= array(nCount) k:= 1RA->(dbgotop())    Do While ! Ra->(eof()) nCode:= Ra->racodice                 nCaption:=Ra->Radesc      @ nrow,ncol BTNBMP ...

... -> nArcSine ATan(<nRadians>) -> nArcTangent Array(<nElements> [, <nElements>,...]) -> aArray Asc(<cExp>) -> nCode AScan(<aTargets>, <expSearch>, [<nStart>], [<nCount>],[<lExact>], [<lASCII>]) -> nStoppedAt ASCIISum( <cString> ...

... nFlags, @cProxyDir, @cProxyCert, @cProxyExe) if Kode > 0 SmtpReply := CHR(0) if len(trim(proxyport))=0 .or. len(trim(smtpport))=0 nCode := XClose(0) nCode := XRelease() lHadError := .T. exit endif nProxy:=VAL(proxyport) nSmtpp:=VAL(Smtpport) Code :=XSmtpConnectSSL(0, nProxy, nSmtpP,@SmtpServer,@cSmtpUser, ...

...              WINDOW.PRG      772   923   939   943   943   947   950 NCMOUSEMOVE()          (function  in ?)    WINDOW.PRG      698  3672 NCODE                  WINDOW.PRG      893  1837  1843  1843 NCOL                    WINDOW.PRG      510   521   564   583   591   592   674   675   ...

... a un archivo, sin pasar por una ventana, hice este ejemplo aunque igual uso el DIBWRITE, que otro comando se puede usar oCode:SetType( nCode ) oCode:SetCode( cCode ) oCode:SetFlags( nFlags ) oCode:Build() // DrawBitmap( hDC, oCode:hCodeBar, 0, 0 ) hDib:=( oCode:hCodeBar ) DibWrite( ...

... nLen ) ENDIF return cError // ========================================================================== // Method TCrw::PEGetErrorCode() -> nCode // // Returns a number that indicates the status of the most recent Report // Engine method called. When a call to another method fails, this ...

... "patients" MYSQL FROM "127.0.0.1" USER "fusion" PASSWORD "fusion" ALIAS "Patients" go bottom ncode:=Patients->code +1//primary key, IF YOU HAVE ANY PROBLEM USE DATABASE SORT BY PRIMARY KEY Patients->DBAPPEND()) Patients->FIELDPUT(fieldpos("CODE ...

... "patients" MYSQL FROM "127.0.0.1" USER "fusion" PASSWORD "fusion" ALIAS "Patients" go bottom ncode:=Patients->code //primary key Patients->DBAPPEND()) Patients->FIELDPUT(fieldpos("CODE "), ncode)) //primary key Patients->FIELDPUT(fieldpos("Last ...

... nLen ) ENDIF return cError // ========================================================================== // Method TCrw::PEGetErrorCode() -> nCode // // Returns a number that indicates the status of the most recent Report // Engine method called. When a call to another method fails, this ...

... DATA <nData> ]; <oComm> The variable to hold this object. <nNumber> Number of queue to flush. <nData> Number of bits. <nCode> Escape code to send. <cString> A text to send. <nDevice> Device number. <nBaud> Bauds speed. <nOutQueue> Size of the ...