HP LaserJet 6P+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 } TfrBarCodeView/Bar1s@O9,$[DMArticulos.QMCodigoBarra."BARRAS"]@Memo4u}K,2Lote:[[DMArticulos.QMArticulos."P_COSTE"]*1.16*33]Arial7Picture10\^,7Memo346,$[ReportData.Precios."PRECIO_VENTA"] Arial BlackoMemo2p, IVA INCLUIDO Arial Black Line1 |, Line2 ,\Line3|,Line4 ,JMemo5`b,![DMArticulos.QMArticulos."NOTAS"]ArialMemo6`|,2Ubicacin:[DMArticulos.QMArticulos."TITULO_CORTO"]Arial Memo1I%,[xArtBarras."TITULO"] Arial Black 8 Memo7|(,'[DMArticulos.QMArtStocks."EXISTENCIAS"]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