// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
// Reporte:            Conceptos 
//                     
//
//
// Sistema:     ADMINPAQ  Versión v1.0 Windows
//
// Descripcion: 
//  
//
// Consideraciones :
// Creación  :  Luis Palau Castañeda.  12/septiembre/2001
// Revisiones : 
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
// INCLUSION DE ARCHIVOS
  Incluye LibAdminPaq.rpt


// INICIO PARAMETROS
  Parametro PConceptoInical = 21
  Parametro PConceptoFinal = 21
  Parametro pInformacion = '1,2,3,4,5' //1 Encabeazdo 
                                         //2 Descuentos Movtos
                                         //3 Descuentos Doc
                                         //4 Impuestos
                                         //5 Pantallas automaticas 

// INICIO APERTURA TABLAS
  UsaEmpresa tEmpresa;'AdminpaqW'

  UsaEmpresa tEmpresa2;'';tEmpresa->SysDirDatos
  
  UsaTabla tFormulas = tEmpresa2['mgw00002']
  tFormulas.Usaindice['']   

   // Parametros de la empresa
  UsaTabla tParametros = tEmpresa['mgw10000']                    

  //ConceptosDocumentos 
  UsaTabla tConceptosDocumentos = tEmpresa['mgw10006']
  tConceptosDocumentos.Usaindice['cCodigoConcepto']

  //tDocumentosDe
  UsaTabla tDocumentosDe = tEmpresa['mgw10007']
  tDocumentosDe.Usaindice['']

  //Almacenes
  UsaTabla tAlmacenes = tEmpresa['mgw10003']
  tAlmacenes.Usaindice['cCodigoAlmacen']

  //Agentes
  UsaTabla tAgentes = tEmpresa['mgw10001']
  tAgentes.Usaindice['cCodigoAgente']

  //Clientes
  UsaTabla tClientes = tEmpresa['mgw10002']
  tClientes.Usaindice['iCodigoTipo']

  //Productos
  UsaTabla tProductos = tEmpresa['mgw10005']
  tProductos.Usaindice['iCodigoTipo']

  tParametros.Busca Primero   
//DEFINICION DE COLUMNAS 

  Columnas 20;2.7,0.15,5.55,0.15,1.5,0.15,0.9,0.15, 0,0 ,1.65,0.15,1.65,0.15,2.25,1.15,1.05,0.15,0

  UsaLetra 'Arial'
  Altura 9 

//VARIABLES GLOBALES 
  
  gDelaFecha = ''
  gAlaFecha  = ''
  gRenglon = '' 

  kMeses = 'Ene,Feb,Mar,Abr,May,Jun,Jul,Ago,Sep,Oct,Nov,Dic'[C0]

  gDelaFecha = @str(pMes;0) 
  Mientras @len(gDelaFecha)<2
     gDelaFecha   = '0' & gDelaFecha 
  FinMientras
  gDelaFecha = @str(pEjercicio;0) &   gDelaFecha & '02'
  
//FUNCIONES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
//***********************************************************************************************
//	EditaFec
// Descripcion: Esta función recibe una fecha con formato ddmmaaaa y la convierte a formato
//	dd/mmm/aaaa
// Entradas :  Fecha : contiene la fecha AAAAMMDD
// Salida :    regresa una cadena con la fecha en formato DD/MMM/AAAA
// Autor :     FBCS junio 2001
//***********************************************************************************************
DefFunc fEditaFecha(aFecha)
   Local lMes
   Local lRegreso

	lMes = @INT(@SubStr(aFecha;4;2))
	lRegreso[0] = @SubStr(aFecha;6;2) & '/' & @Escoge(kMeses;lMes-1) & '/' & @SubStr(aFecha;0;4)
   Retorna lRegreso
FinFunc

//////////////////////////////////////////////////////////////////////////////////
//ENCABEZADO 
Encab
  Texto '@TC{255,0,0}@S{8}AdminPAQ' 
 	Hoja '"@TC{0,0,0}@S{8}Página: '
  Imprime

  Texto '^@TC{0,0,0}@S{22}' & tEmpresa->Nombre
  Texto '"@TC{0,0,0}@S{8}Fecha: ' & fEditaFecha(@Hoy())
  Imprime
  Texto '^@TC{0,0,0}@S{16}' & ' Conceptos'
  Texto '"@TC{0,0,0}@S{8}Hora: ' & @Hora()
  Imprime
  NEGRITAS TRUE
  Altura 10
  Texto '@TC{0,0,0}@L{-1}'
	Imprime 
  //Código         Nombre(Cliente)                               Segmento CL01    Segmento CL02    Segmento CL03    Segmento CL04
  Columnas 20;2.7,0.15,5.1,0.15,8.1,0.15,2.7,0.15  ,0
  NEGRITAS FALSE
  Altura 10
FinEncab

//PRINCIPAL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  gRenglon = '' 
  tConceptosDocumentos.busca Primero
  Mientras tConceptosDocumentos->encontro
    Si tConceptosDocumentos(cCodigoConcepto)< @col(@str(PConceptoInical;0);0)
      tConceptosDocumentos.Saltareg[1]
      Continua
    FinSi
    Si tConceptosDocumentos(cCodigoConcepto)> @col(@str(PConceptoFinal;0);0)
      Finciclo
    FinSi
    NEGRITAS true 
    Texto '@TC{0,0,0}@L{-1}'
	  Imprime 
    texto 'Código:    ' & tConceptosDocumentos(cCodigoConcepto)
    Imprime
    texto 'Nombre Concepto:    ' & tConceptosDocumentos(cNombreConcepto)
    Imprime
    Texto '@TC{0,0,0}@L{-1}'
	  Imprime 
    NEGRITAS false 
    tDocumentosDe.busca[@str(tConceptosDocumentos(cIdDocumentoDe);0)]
    Si tDocumentosDe->Encontro     
      texto 'Documento Modelo:    ' & tDocumentosDe(cDescripcion)
    Sino
      texto 'Documento Modelo:    ' 
    Finsi
    Imprime
    // N.D.3922 En caso de ser CFD no se debe de mostrar la forma preimpresa
    Si tConceptosDocumentos(cEsCFD) = 0 O tConceptosDocumentos(cNaturaleza) = 2
      texto 'Forma Pre-Impresa(Archivo):    ' & tConceptosDocumentos(cFormaPreimpresa)
      Imprime
    FinSi
    texto 'Número Máximo de Movimientos:    ' & tConceptosDocumentos(cMaximoMovtos)
    Imprime
    Si tConceptosDocumentos(cNaturaleza) != 2
      Si tConceptosDocumentos(cDoctoACredito)
        texto 'Documentos a Crédito:    Sí'
      Sino
        texto 'Documentos a Crédito:    No'
      Finsi      
      Imprime
    FinSi
    // N.D.3922 Informar si es un CFD o no
    Si tParametros(cEsCFD) = 1 Y tConceptosDocumentos(cNaturaleza) != 2
      Si tConceptosDocumentos(cEsCFD) = 1
        Texto 'Es un Comprobante Fiscal Digital:    Sí'
      Sino
        Texto 'Es un Comprobante Fiscal Digital:    No'
      FinSi
      Imprime
    Finsi
    texto ' '
    Imprime
    Si @pos(@col(pInformacion;0);'1') != -1     
      texto 'CONFIGURACION DEL ENCABEZADO DEL DOCUMENTO'
      Imprime
      //Campo                 Propiedad             Valor Asumido
      texto ''
      texto c0;'Campo'
      texto c2;'Propiedad'
      texto c4;'Valor asumido'
	    Imprime 
      Texto '@TC{0,0,0}@L{-1}'
	    Imprime 
      Texto c0;'Serie' 
      Texto c2 ;'Escritura'
      Texto c4 ;tConceptosDocumentos(cSeriePorOmision)
	    Imprime 
      Texto c0;'Folio'
      Si tConceptosDocumentos(cTipoFolio)=1
        Texto c2; 'Escritura'
      Sino
        Texto c2; 'Lectura'
      Finsi
      Texto c4;'Automático-Consecutivo'
	    Imprime 
      Texto c0;'Nombre del Cliente' 
      Si tConceptosDocumentos(cCreaCliente)=1
        Texto c2; 'Escritura'
      Sino
        Texto c2; 'Lectura'
      Finsi
	    Imprime 
      Texto c0;'RFC' 
      Si tConceptosDocumentos(cUsaRFC)=1
        Texto c2; 'No es visible'
      Sino
        Si tConceptosDocumentos(cUsaRFC)=2
          Texto c2; 'Lectura'
        Sino
          Texto c2; 'Escritura'
        Finsi
      FInsi
	    Imprime 
      Texto c0;'Fecha de vencimiento' 
      Si tConceptosDocumentos(cUsafechaVencimiento)=1
        Texto c2; 'No es visible'
      Sino
        Si tConceptosDocumentos(cUsafechaVencimiento)=2
          Texto c2; 'Lectura'
        Sino
          Texto c2; 'Escritura'
        Finsi
      FInsi
	    Imprime 
      Texto c0;'Fecha de Entrega' 
      Si tConceptosDocumentos(cUsafechaEntregaRecepcion)=1
        Texto c2; 'No es visible'
      Sino
        Si tConceptosDocumentos(cUsafechaEntregaRecepcion)=2
          Texto c2; 'Lectura'
        Sino
          Texto c2; 'Escritura'
        Finsi
      FInsi
	    Imprime 
      Texto c0;'Moneda' 
      Si tConceptosDocumentos(cUsaMoneda)=1
        Texto c2; 'No es visible'
      Sino
        Si tConceptosDocumentos(cUsaMoneda)=2
          Texto c2; 'Lectura'
        Sino
          Texto c2; 'Escritura'
        Finsi
      FInsi
	    Imprime 
   Texto c0;'Tipo de Cambio' 
   Si tConceptosDocumentos(cUsaTipoCambio)=1
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaTipoCambio)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Código de agente' 
   Si tConceptosDocumentos(cUsaCodigoAgente)=1
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaCodigoAgente)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Nombre de agente' 
   Si tConceptosDocumentos(cUsaNombreAgente)=1
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaNombreAgente)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Dirección Fiscal' 
   Si tConceptosDocumentos(cUsaDireccion)=1
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaDireccion)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Texto extra 1' 
   Si tConceptosDocumentos(cUsatextoExtra1doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsatextoExtra1doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Texto extra 2' 
   Si tConceptosDocumentos(cUsatextoExtra2doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsatextoExtra2doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Texto extra 3' 
   Si tConceptosDocumentos(cUsatextoExtra3doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsatextoExtra3doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Importe extra 1' 
   Si tConceptosDocumentos(cUsaImporteExtra1doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaImporteExtra1doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Importe extra 2' 
   Si tConceptosDocumentos(cUsaImporteExtra2doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaImporteExtra2doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Importe extra 3' 
   Si tConceptosDocumentos(cUsaImporteExtra3doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaImporteExtra3doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Importe extra 4' 
   Si tConceptosDocumentos(cUsaImporteExtra4doc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaImporteExtra4doc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   Texto c0;'Fecha Extra' 
   Si tConceptosDocumentos(cUsaFechaExtradoc)=0
     Texto c2; 'No es visible'
   Sino
     Si tConceptosDocumentos(cUsaFechaExtradoc)=1
       Texto c2; 'Escritura'
     Finsi
   FInsi
	Imprime 
   texto ' '
   Imprime
  Finsi
  Si @pos(@col(pInformacion;0);'3') != -1     
    texto 'DESCUENTOS DEL DOCUMENTO'
    Imprime
    //Campo                 Propiedad             Valor Asumido
    texto ''
    texto c0;'Campo'
    texto c2;'Propiedad'
    texto c4;'Base del Cálculo'
    texto c6;'Buscar valor en..'
	  Imprime 
    Texto '@TC{0,0,0}@L{-1}'
	  Imprime 
   Texto c0;'Descuento 1' 
   Si tConceptosDocumentos(cUsaDescuentoDoc1)=1
     Texto c2; 'No se usa'
   Sino
     Si tConceptosDocumentos(cUsaDescuento1)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDesDoc1);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Descuento 2' 
   Si tConceptosDocumentos(cUsaDescuentoDoc2)=1
     Texto c2; 'No se usa'
   Sino
     Si tConceptosDocumentos(cUsaDescuento2)=2
       Texto c2; 'Lectura'
     Sino
       Texto c2; 'Escritura'
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDesDoc2);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   texto ' '
   Imprime
  Finsi
  Si @pos(@col(pInformacion;0);'2') != -1     
   texto 'DESCUENTOS DEL MOVIMIENTO'
   Imprime
   //Campo                 Propiedad             Valor Asumido
   texto ''
   texto c0;'Campo'
   texto c2;'^Importe        Porcentaje'
   texto c4;'Base del Cálculo'
   texto c6;'Buscar valor en..'
	Imprime 
   Texto '@TC{0,0,0}@L{-1}'
	Imprime 
   tTempDesc= ''
   Texto c0;'Descuento 1' 
   Si tConceptosDocumentos(cUsaDescuento1)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaDescuento1)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaDescuento1)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeDescuento1)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeDescuento1)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeDescuento1)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDescuento1);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Descuento 2' 
   Si tConceptosDocumentos(cUsaDescuento2)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaDescuento2)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaDescuento2)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeDescuento2)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeDescuento2)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeDescuento2)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDescuento2);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Descuento 3' 
   Si tConceptosDocumentos(cUsaDescuento3)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaDescuento3)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaDescuento3)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeDescuento3)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeDescuento3)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeDescuento3)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDescuento3);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 

   Texto c0;'Descuento 4' 
   Si tConceptosDocumentos(cUsaDescuento4)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaDescuento4)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaDescuento4)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeDescuento4)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeDescuento4)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeDescuento4)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDescuento4);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Descuento 5' 
   Si tConceptosDocumentos(cUsaDescuento5)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaDescuento5)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaDescuento5)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeDescuento5)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeDescuento5)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeDescuento5)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaDescuento5);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   texto ' '
   Imprime
  Finsi
  Si @pos(@col(pInformacion;0);'4') != -1     
   texto 'IMPUESTOS Y RETENCIONES'
   Imprime
   //Campo                 Propiedad             Valor Asumido
   texto ''
   texto c0;'Campo'
   texto c2;'^Importe        Porcentaje'
   texto c4;'Base del Cálculo'
   texto c6;'Buscar valor en..'
	Imprime 
   Texto '@TC{0,0,0}@L{-1}'
	Imprime 
   tTempDesc= ''
   Texto c0;'Impuesto 1' 
   Si tConceptosDocumentos(cUsaImpuesto1)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaImpuesto1)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaImpuesto1)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeImpuesto1)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeImpuesto1)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeImpuesto1)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaImpuesto1);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Impuesto 2' 
   Si tConceptosDocumentos(cUsaImpuesto2)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaImpuesto2)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaImpuesto2)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeImpuesto2)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeImpuesto2)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeImpuesto2)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaImpuesto2);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Impuesto 3' 
   Si tConceptosDocumentos(cUsaImpuesto3)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaImpuesto3)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaImpuesto3)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeImpuesto3)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeImpuesto3)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeImpuesto3)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaImpuesto3);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Retención 1' 
   Si tConceptosDocumentos(cUsaRetencion1)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaRetencion1)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaRetencion1)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeRetencion1)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeRetencion1)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeRetencion1)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaRetencion1);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   Texto c0;'Retención 2' 
   Si tConceptosDocumentos(cUsaRetencion2)=1
      tTempDesc = 'No se usa'[c2]
   Sino
     Si tConceptosDocumentos(cUsaRetencion2)=2
        tTempDesc = 'No es visble'[c2]
     Sino
       Si tConceptosDocumentos(cUsaRetencion2)=3
        tTempDesc = 'Lectura'[c2]
       Sino
        tTempDesc = 'Ecritura'[c2]
       Finsi
     Finsi
   FInsi
   Si tConceptosDocumentos(cUsaPorcentajeRetencion2)=1
     Texto c2;'^'& @col(tTempDesc;2) &  '           No se usa'
   Sino
     Si tConceptosDocumentos(cUsaPorcentajeRetencion2)=2
       Texto c2;'^'& @col(tTempDesc;2) &  '        No es visible'
     Sino
       Si tConceptosDocumentos(cUsaPorcentajeRetencion2)=3
         Texto c2;'^'& @col(tTempDesc;2) &  '              Lectura'
       Sino
         Texto c2;'^'& @col(tTempDesc;2) &  '            Escritura'
       Finsi
     Finsi
   FInsi
   tFormulas.busca[@str(tConceptosDocumentos(cidFormulaRetencion2);0)]   
   Si tFormulas->encontro
     Texto c4;tFormulas(cDescripcion)
   Finsi
   //! falta buscar valor en
	Imprime 
   texto ' '
 	Imprime 
  Finsi
  Si @pos(@col(pInformacion;0);'5') != -1     
   Texto 'CONFIGURAR LAS PANTALLAS QUE APARECEN AUTOMATICAMENTE EN LA CAPTURA'
   Imprime
   Si tConceptosDocumentos(cPresentaFiscal)=1
     Texto 'Domicilio Fiscal: Sí'
   Sino
     Texto 'Domicilio Fiscal: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaReferencia)=1
     Texto 'Observaciones y Campos Extras: Sí'
   Sino
     Texto 'Observaciones y Campos Extras: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaCondiciones)=1
     Texto 'Condiciones de Crédito: Sí'
   Sino
     Texto 'Condiciones de Crédito: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaEnvio)=1
     Texto 'Datos y Dirección de Envío: Sí'
   Sino
     Texto 'Datos y Dirección de Envío: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaDetalle)=1
     Texto 'Movimientos Detallados: Sí'
   Sino
     Texto 'Movimientos Detallados: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaImprimir)=1
     Texto 'Imprimir: Sí'
   Sino
     Texto 'Imprimir: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaPagar)=1
     Texto 'Pagar: Sí'
   Sino
     Texto 'Pagar: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaSaldar)=1
     Texto 'Saldar Factura con Abonos del Cliente: Sí'
   Sino
     Texto 'Saldar Factura con Abonos del Cliente: No'
   Finsi
   Imprime
   Si tConceptosDocumentos(cPresentaDocumentar)=1
     Texto 'Documentar Deuda: Sí'
   Sino
     Texto 'Documentar Deuda: No'
   Finsi
   Imprime
  FInsi
   texto ' '
   Imprime  
   tConceptosDocumentos.Saltareg[1]
  Finmientras







