2024-05-18 SMS Electrica

Inventarios/EntregaAlmacen.aspx.vb

@@ -695,7 +695,7 @@ Partial Class Inventarios_EntregaAlmacen
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
                     If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
-                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
+                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
                         TxtObservaciones.Rows = 4
                     End If
 

Ventas/Ventas.aspx

@@ -631,10 +631,10 @@
                                       <asp:TextBox ID="TxtFolioRemision" runat="server"   Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
                                   </td>
                                   <td runat="server" id="Td10" >
-                                      
+                                     <b>Tipo de Venta:</b> 
                                   </td>
                                   <td runat="server">
-                                      
+                                      <asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
                                   </td>
                               </tr>
                         </table>

Ventas/Ventas.aspx.vb

@@ -6173,6 +6173,10 @@ Partial Class Ventas
                             TxtPaciente.Enabled = False
                             TxtEpisodio.Enabled = False
 
+                            TrVentasMedicas4.Visible = True
+                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
+
+                            LblTipoVenta.Text = DbRowVenta("TipoVenta").ToString
 
                             If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then
                                 TrVentasMedicas2.Visible = True
@@ -6181,12 +6185,9 @@ Partial Class Ventas
 
                                 TxtFechaOS.Text = DbRowVenta("FechaParaSurtir").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
                             End If
+
                         End If
 
-                        If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
-                            TrVentasMedicas4.Visible = True
-                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
-                        End If
                     End If
                 End If
             End Using
@@ -8612,6 +8613,9 @@ Partial Class Ventas
                 'If UsuarioActual.CveEmpresa = 119 Then
                 '    e.Row.FCTextBox("TxtDescuento").Enabled = False
                 'End If
+
+
+
             Else
                 'MODO NORMAL
 
@@ -8760,11 +8764,13 @@ Partial Class Ventas
         End If
 
         If EsVentaMedica Then
+
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
 
-            If DdlTipoComprobante.SelectedValue = "Cot" Then
+            If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                 GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
             End If
+
         End If
 
         If CveCicloComercial > 0 Then
@@ -17676,7 +17682,7 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
-                    If UsuarioActual.CveUsuario = 3986 Then
+                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                         TxtPrecio.Enabled = True
                     End If
 
@@ -22799,8 +22805,9 @@ Partial Class Ventas
             End If
         End If
 
+        TxtAtencionA.Enabled = True
 
-
+        UpCliente.Update()
         UPPVentas.Update()
         UpPS.Update()
         UpCliente.Update()
@@ -37785,6 +37792,10 @@ Partial Class Ventas
             AsignaAlmacenWS()
             'CargaPS(-1, DdlPS)
         End If
+        If RBLTipoVenta.SelectedValue.Contiene("1") Then
+            TxtPrecio.Enabled = True
+            UpPS.Update()
+        End If
 
         RegistraScript("$('#DvModalTipoVenta').modal('hide');")
         UpCliente.Update()