--

Contabilidad/RegPrePolizaS.aspx.vb

@@ -459,7 +459,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
                 TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToShortTimeString
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
-                DdlPlantilla.SelectedValue = CvePlantillaPoliza.ToString
+                DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
                 HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
                 HplImprimirPDF.Visible = True
                 If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
@@ -579,20 +579,16 @@ Partial Class ContabilidadC_RegPrePolizaS
 
     Private Sub CargaPlantillas(TipoPlantilla As Integer)
 
-        'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-        'GvPlantillas.DataBind()
+        Dim dtt As DataTable = Nothing
 
         If UsuarioActual.CveEmpresa.Contiene(120) Then
-            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
-            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
-
+            dtt = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
         Else
-            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-
+            dtt = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
         End If
 
-
+        DdlPlantilla.DataSource = dtt
+        DdlPlantilla2.DataSource = dtt
         DdlPlantilla.DataBind()
         DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
 
@@ -1722,9 +1718,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If dr("EsMonedaExtranjera").ToString = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
         End If
 
-        If DdlPorcentajeIVAE.Visible Then
-            dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
-        End If
+        If DdlPorcentajeIVAE.Visible Then dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
 
         If TxtCargoE.Text <> "" Then
             dr("Cargo") = TxtCargoE.Text.ToDecimal : dr("Abono") = 0
@@ -1743,7 +1737,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         GvPrePoliza.DataBind()
         UpPrePoliza.Update()
         GvPrePoliza.Visible = True
-        If IndiceGrid > 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
+        If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
 
         TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
         TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero