FiveTech Software tech support forums

Code: Select all | Expand

      cSentencia := "SELECT F_ART.CODART, F_ART.DESART, F_ART.EANART, Sum(F_STO.ACTSTO) AS STOCK, F_FAM.TEXFAM,round( F_LTA.PRELTA,2) AS TARIFA1,round( F_LTA_1.PRELTA,2) AS TARIFA2, F_ART.CP1ART, F_ART.TIVART, IIf(F_ART.TIVART=0,21,F_ART.TIVART) AS TIPOIVA, round(TARIFA1*(1+tipoIVA/100),2) AS PVP1, round(TARIFA2*(1+tipoIVA/100),2) AS PVP2, F_ART.PCOART, F_ART.DSCART " +;
                    "FROM (((F_ART INNER JOIN F_STO ON F_ART.CODART = F_STO.ARTSTO) INNER JOIN F_LTA ON F_ART.CODART = F_LTA.ARTLTA) INNER JOIN F_LTA AS F_LTA_1 ON F_ART.CODART = F_LTA_1.ARTLTA) INNER JOIN F_FAM ON F_ART.FAMART = F_FAM.CODFAM " +;
                    "GROUP BY F_ART.CODART, F_ART.DESART, F_ART.EANART, F_FAM.TEXFAM, F_ART.CP1ART, F_ART.TIVART, F_LTA.PRELTA, F_LTA_1.PRELTA, F_LTA.TARLTA, F_LTA_1.TARLTA, F_ART.PCOART, F_ART.DSCART " +;
                    "HAVING (((F_FAM.TEXFAM)='BAN' Or (F_FAM.TEXFAM)='WEB') AND ((F_LTA.TARLTA)=1) AND ((F_LTA_1.TARLTA)=2)) " +;
                    "ORDER BY F_ART.CODART"

      MemVar->oAr := Usar( Memvar->oDgAct, cSentencia )

      aDatos :=  { { "CodArt", "Referencia"        ,nil, 100 } ,;
                   { "DesArt", "Descripcion"       ,nil, 300 } ,;
                   { "TexFAM", "Destino"           ,nil,  60 } ,;
                   { "Stock" , "Stock"             ,nil, 100 } ,;
                   { "Cp1ART", "St.Subido"         ,nil, 100 }  ;
                 }

      @ 1,1 XBROWSE oBrw size 700,nVer-360 PIXEL OF oDlg FONT oFont ;
            DATASOURCE MemVar->oAr ;
            COLUMNS aDatos ;
        AUTOSORT CELL LINES NOBORDER FOOTERS                       

      WITH OBJECT oBrw
        :nStretchCol   := 1
        :nMarqueeStyle := 4
        :bClrSelFocus  := { || { CLR_BLACK, aSelGrad } }
        :bClrRowFocus  := { || { CLR_BLACK, aRowGrad } }
        :bClrStd       := { || { nRGB( 88,88,88,88 ), CLR_WHITE } }
      END

      oBrw:CreateFromCode()
      oBrw:lOemAnsi := .t.

 

Code: Select all | Expand

oRsFtr:Requery()
oBrwFt:Refresh()