-

Contabilidad/ContabilizacionVentas.aspx

@@ -217,7 +217,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>

Inventarios/RecepcionUsados.aspx.vb

@@ -1730,11 +1730,12 @@ Partial Class Inventarios_RecepcionUsados
         DivClienteSucursal.Visible = False
         DdlClientesSucursales.Items.Clear()
 
-        Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("EsDistribuidor", $"CveCliente = {DdlClientes.SelectedValue.ToEntero()}"))
-
-        CargaSucursalesCliente()
-        CargaFacturasCliente()
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("EsDistribuidor", ""))
 
+            CargaSucursalesCliente()
+            CargaFacturasCliente()
+        End If
         UpGenerales.Update()
     End Sub
     Private Sub CargaFacturasCliente()
@@ -2767,6 +2768,8 @@ Partial Class Inventarios_RecepcionUsados
                     "", "-1", "-1", "-1", "", "", "", -1, "", "", CveTamaño)
 
             End If
+        Else
+            Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
         End If
         ObjPS.Dispose()
     End Sub