Índice del Foro Modelizacion Commit Soft Modelizacion Commit Soft
Podra Buscar casos tipicos de errores y soluciones
 
 F.A.Q.F.A.Q.   BuscarBuscar   Lista de MiembrosLista de Miembros   Grupos de UsuariosGrupos de Usuarios   RegístreseRegístrese 
 PerfilPerfil   Conéctese para revisar sus mensajesConéctese para revisar sus mensajes   ConectarseConectarse 

GADGETS - Re Establecer Pendientes al anular un comprobante

 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Modelizacion Commit Soft -> Gadgets Para Commit Soft
Ver tema anterior :: Ver siguiente tema  
Autor Mensaje
Typhon Software
Site Admin


Registrado: 24 Jul 2006
Mensajes: 248
Ubicación: Bs As Argentina

MensajePublicado: Vie Mar 20, 2009 12:23 pm    Título del mensaje: GADGETS - Re Establecer Pendientes al anular un comprobante Responder citando

Este Gadget nos sirve para re establecer los pendientes cuando anulamos un comprobante y el mismo fue procesado por intermedio de una relacion.

Descripcion

Se busca por intermedio de Ob_Traza, si el comprobante fue procesado por intermedio de una relacion y si es asi simplemente se llama a la funcion EvaluaRelaciones (Ver funciones especiales de Commit Soft), que se encarga de todo....

El mismo esta programado universalemente para cualqueir modelo, la idea de este GadGet es que se utilice como un script asociado a la firma digital que conduce al estado anulado.

Es probable que anteriormente se deba analizar otras cuestiones, que pudieran frenar la anulacion del comprobante, en ese caso agreguen esta porcion de script si el comprobante puede ser anulado.

Saludos.-


Código:
Sub Main ()

'cuando se anula un objeto este Gadgets lo que hace es
'busca si el mismo fue procesado con una relacion
'y al objeto hasta le aplica una restauracion del pendiente

sql = "select * from ob_traza where idcab_hasta = " & c(ob_oder.id)
Set Reg_Traza = Consulta_Sql(sql)

Restaura = False
If Not reg_traza Is Nothing Then
   If reg_traza.RecordCount > 0 Then
       Restaura = True
   End If
End If

If Restaura Then
   Do While Not reg_traza.eof
      TrayMsn "Info","Restaurando Pendientes Espere por favor"
            EvaluaRelaciones  reg_traza.fields("id_objeto_desde").value, reg_traza.fields("idcab_desde").Value
      reg_traza.movenext
   Loop
End If

End Sub

_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Modelizacion Commit Soft -> Gadgets Para Commit Soft Todas las horas están en GMT - 3 Horas
Página 1 de 1

 
Saltar a:  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas


Powered by PhpBB © 2001, 2005 phpBB Group y Typhon © Empresa Desarrolladora de Software