hpcasa 4 $HPage1Formx|,begin , ProcedenciaAnt := 'Se inicia la variable'; Cambio:=1; endbDetalle $ frDBDetalle begin ! if [Proc]=[ProcedenciaAnt] then begin  height:=18;  cambio:=0;  end  else begin  ProcedenciaAnt:=[Proc];  height:=36;  cambio:=1; end end bNotasArtBand12 frDBCabeceraBand2p4frUDPie_Band4=4 frDBxDatosIvaBand50)Band6s0 Band74frUserDataset1Band104 frDBxRecibossBand8jb0 bNotasArtC1begin  bNotasArt.Height:=0; endMemo1!,[L]ArialMemo7#l ,Arial Memo13!S, [Articulo]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier NewMemo14z,[Titulo]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier New Memo15', [Unidades]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier New Memo17,,[[Descuento]+[MascaraP]]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier New Memo18Q,[[Precio]+[MascaraL]]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier New Memo19rV,[[Total]+[MascaraL]]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier New Memo20k"`,8[[Total_a_Cobrar]-[Financiacion]+[Retencion]+[MascaraN]] Courier New-Memo28{7P,[[Retencion]*(-1)+[MascaraN]] Courier NewMemo32oa\,[[Total_a_Cobrar]+[MascaraN]] Courier New^Memo9ul,[Nombre_tipo_iva]ArialMemo160,Dto. PP.ArialsMemo25#\,Base Imponible:ArialMemo26 ,Iva:ArialyMemo27 ,Rec:ArialMemo44R,[[Imp_tras_dto]+[MascaraN]] Courier NewMemo45 0,[[Porc_iva]+[MascaraP]] Courier NewTMemo47;Q,[[Importe_iva]+[MascaraN]] Courier NewMemo480,[[Porc_re]+[MascaraP]] Courier NewMemo50Q,[[Importe_re]+[MascaraN]] Courier NewLine1#,cMemo3#<, Tipo Iva:ArialMemo4Mt,Pgina [Page#]Arial Memo11-D, [[Descuento_Importe]+[MascaraL]]begin  if [cambio]=0 then  Top:=bDetalle.Top+1  else  Top:=bDetalle.Top+19; end Courier NewMemo100,[[Por_dto_pp]+[MascaraP]] Courier NewMemo39c , [Tip_iva]ArialMemo46C70,[[Por_Retencion]+[MascaraP]] Courier NewHMemo436, Dto. Cial.:ArialMemo49 0,[[Dto_cial]+[MascaraP]] Courier NewMemo51Q,[[Imp_dto_pp]+[MascaraN]] Courier New"Memo52;Q,[[Imp_dto_Cial]+[MascaraN]] Courier NewMemo53#h,Base Descuentos: ArialLMemo54W,[[Base]+[MascaraN]] Courier NewMemo55pZ,[[Subtotal]+[MascaraN]] Courier NewpMemo56<3, Subtotal:ArialMemo57{LP,[[Financiacion]+[MascaraN]] Courier NewMemo59CL0,[[Por_Financiacion]+[MascaraP]] Courier NewNMemo60!,Total antes de Retenciones:ArialMemo615@, Retencin:Arialc Memo62JL, Financiacin:Arial Memo63`|,Total a Cobrar [Moneda]:Arial!Memo22=8,Dtos.:Arial3"Memo30rW,/[([Imp_dto_Cial]+[Imp_dto_pp])*(-1)+[MascaraN]] Courier New"Memo34=8,Imptos.:Arialf#Memo58rW,'[[Importe_iva]+[Importe_re]+[MascaraN]] Courier New$Memo65#!,Forma de Pago: [Forma de Pago]Arial TfrRichViewn$Rich1Rv\,[Notas]n$l%Memo66ou\,[[TotalMonSec]+[MascaraNSec]]begin  If ([Moneda]= [Moneda_Sec])  then visible:= 0  else visible:= 1; end Courier NewZ&Memo67t|,TOTAL [Moneda_Sec]:begin  If ([Moneda]= [Moneda_Sec])  then visible:= 0  else visible:= 1; endArial&Memo2$\,Vencimiento.....:Arial'Memo29~H , dd/mm/yyyy [Vencimiento] Courier New (Memo318, Importe.:Arial(Memo69D,[[Liquido ]+[MascaraN]] Courier New0)Memo36 V,ARTICULOArial)Memo37x,TITULOArial9*Memo38~*,CANT.Arial*Memo40,,DTO.ArialA+Memo41Q,PRECIOArial+Memo42rV,TOTALArialh,Memo5*,%[FacTitulo] N [Ejercicio2]/[Factura]Arial ,Memo8*,Almacn: [Almacen]Arial }-Memo12 ,,Canal:Arial .Memo24=R,[Canal]Arial .Memo21, dd/mm/yyyyFecha: [Fecha]Arial !/Memo6,D, IMP. DTO.Arial/Memo64,Agente: [Agente]Arial F0Memo70,Moneda: [Titulo_Moneda]Arial 01MemoProcedencia ,[ProcedenciaUnica]begin  if [cambio]=1 then  visible:=1  else  visible:=0; endArial1MemoProc/ ,,[Proc]Arial j2Memo23#`,begin  ProcedenciaAnt := ''; Cambio:=1; endArial H3Memo79uC,[QMDetalle."NOTAS"]begin Bvisible:=not ([uppercase(copy([QMDetalle."NOTAS"],1,3))]='OBS')endArial3Memo68m ,6Tel.[[xTercero."TELEFONO01"] Fax.[xTercero."TELEFAX"]]Arial 4Memo33$jQ,jCC:[xTerceroBanco."ENTIDAD"]-[xTerceroBanco."SUCURSAL"]-[xTerceroBanco."CONTROL"]-[xTerceroBanco."CUENTA"]Arial 5Memo35*oX,SERIE:[QMCabecera."SERIE"]Arial V CabeceraEmpresa Empresa_CifEmpresa_Direccion Empresa_Cod Empresa_Prov Empresa_PaisTelefonoClientexCliente."CLIENTE" Empresa_ClixCliente."TITULO"CifxCliente."NIF" DireccionxDireccion_Cliente."DIRECCION" CodPostalxDireccion_Cliente."CODPOB" ProvinciaxDireccion_Cliente."PROVINCIA"PaisxDireccion_Cliente."PAIS"ImagenFechaQMCabecera."FECHA"CanalFacturaQMCabecera."RIG"AlmacenQMCabecera."ALMACEN"Dto_cialQMCabecera."DTO_CIAL"AgentexAgente."TITULO"NotasQMCabecera."NOTAS" EjercicioQMCabecera."EJERCICIO" Ejercicio2copy(str([Ejercicio]),3,2)MonedaQMCabecera."MONEDA" Titulo_Moneda Moneda_Canal FacTitulo Moneda_Sec DetalleExpArt!if([Articulo]='.',' ',[Articulo])ArticuloTituloQMDetalle."TITULO" ExpTipo_Iva!if([Articulo]='.',' ',[Tipo_Iva])Tipo_IvaQMDetalle."TIPO_IVA"CantidadQMDetalle."UNIDADES"Unidades DescuentoQMDetalle."DESCUENTO"Descuento_ImporteQMDetalle."I_DESCUENTO"PrecioQMDetalle."PRECIO"TotalQMDetalle."B_DTO_LINEA"P_IvaQMDetalle."P_IVA"ExpP_Ivaif([Articulo]='.',' ',[P_Iva]) PieSubtotal Total_FacturaQMCabecera."LIQUIDO" Por_RetencionQMCabecera."P_RETENCION" RetencionQMCabecera."I_RETENCION"Por_FinanciacionQMCabecera."POR_FINANCIACION" FinanciacionQMCabecera."I_FINANCIACION"Total_a_CobrarQMCabecera."TOTAL_A_COBRAR"Total_a_CobrarE Forma de PagoxFormaPago."TITULO" TotalMonSec VariosMascaraN0MascaraL0MascaraI0MascaraP0MascaraE0 MascaraNSec0L C  PieIvaNombre_tipo_ivaxNombreIva."TITULO"Tip_ivaxNombreIva."TIPO"Base iva_dto_ppxDatosIva."DTO_PP" iva_dto_cialQMCabecera."DTO_CIAL" Imp_dto_ppxDatosIva."I_DTO_PP" Imp_dto_Cial Por_dto_ppxDatosIva."DTO_PP" Imp_tras_dtoxDatosIva."S_BASES_DTO"Porc_ivaxDatosIva."P_IVA"Porc_rexDatosIva."P_RE" Importe_ivaxDatosIva."I_IVA" Importe_rexDatosIva."I_RE" SubdetalleNotasArt ProcedenciaProcedenciaUnicaProc Recibos VencimientoxRecibos."VENCIMIENTO"LiquidoxRecibos."LIQUIDO"