necesito algo de ayuda.
SI tengo un XBROWSE con un conjunto de datos ACCESS como el que adjunto.
Como podria actualizar este conjunto de datos sin salir del XBROWSE?
Espero haberme explicado
- Code: Select all Expand view
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.
Saludos
Juan Jose
