HP LaserJet 6Po Page1Formx|,Band2 @1frUserDSCodBarras { begin / sArticulo:=[TRIM([xDetalleDoc."ARTICULO"])]; - if sArticulo='.' then sArticulo:='999999'; ? sPrecio:=[FORMATFLOAT('0.0', [[xDetalleDoc."P_COSTE"]*33])]; d sPrecio:=copy(sPrecio,1,pos(',',sPrecio)-1)+'*'+copy(sPrecio,pos(',',sPrecio)+1,length(sPrecio));  if pos('.',sPrecio)>0 then  begin S sPrecio:=copy(sPrecio,1,pos('.',sPrecio))+'-'+copy(sPrecio,pos('.',sPrecio));  end; end }>Memo3X,$[ReportData.Precios."PRECIO_VENTA"]Times New Roman Memo41w,2Lote:[[DMArticulos.QMArticulos."P_COSTE"]*1.16*33]ArialMemo1,[xArtBarras."TITULO"]Arial Memo7 (X , Iva IncluidoArial TfrBarCodeViewBar1[O-,$[DMArticulos.QMCodigoBarra."BARRAS"]@NMemo2T>,([DMArticulos.QMArticulos."TITULO_CORTO"]Arial   Datos ImgCodBarrasArticuloxDetalleDoc."ARTICULO"TituloxDetalleDoc."TITULO"PrecioEmpresa VariosMascaraN0MascaraI0MascaraL0MascaraP0MascaraE0PreciosDMMain.DataBaseselect * from ver_art_tarifas_precios >where empresa=?empresa and articulo=?articulo and tarifa='NOR'PreciosDMRFichasArticulos.xArtBarrasEMPRESATARIFAARTICULOTITULO_ARTICULOFAMILIALINEACALCULOTITULO_CALCULO UNID_MINIMAS UNID_MAXIMAS PRECIO_BASE PRECIO_VENTA MARGEN_PC MARGEN_PVCOMISION BLOQUEADOMONEDAACTIVAMARGENID_A