<Main><Name>Actividades Completadas del día (Lista y Cantidad) </Name><Key>2aafef67-562b-443f-98fe-c7c0788f1370</Key><Version>1</Version><DynamicProperties><Main><DynamicProperties /></Main></DynamicProperties><Code>constNumeroProgramID=0
varTextostrSQL=""
varNumeroMotor=0
varTextoUsuarios=""
varTextoResultado=""
varDSNdsn=""
varCuentaCorreoIDCuenta=0
varTextoPara=""
varTextoAsunto=""
'FIN PARAMETROS/
SQL_ActividadesHistoricas varTextostrSQL,varNumeroMotor,varTextoUsuarios
Insertar_Titulo varTextoResultado,"Lista de actividades completadas"
Plantilla_Registros varDSNdsn,varTextostrSQL,varTextoResultado
SQL_QActividadesHistoricas varTextostrSQL,varNumeroMotor,varTextoUsuarios
Insertar_Titulo varTextoResultado,"Cantidad de actividades completadas por usuario y tipo"
Plantilla_Registros varDSNdsn,varTextostrSQL,varTextoResultado
Enviar_Correo varCuentaCorreoIDCuenta,varTextoPara,varTextoAsunto,varTextoResultado,strErrors
Sub SQL_ActividadesHistoricas(byref strSQL,byval Motor,byval Usuarios)
If Motor = 1 Then
strSQL = _
"select " & _
"historia.usuario as Usuario, " & _
"historia.actividad as Actividad, " & _
"historia.fecha as Fecha, " & _
"historia.referencia as Referencia, " & _
"(historia.Fin - historia.Inicio) as 'Duración (min)', " & _
"left(historia.notas,600) as Notas, " & _
"historia.nombre as Nombre, " & _
"historia.empresa as Empresa, " & _
"Case historia.origen " & _
"When 2 Then 'Empresa' " & _
"When 3 Then 'Contacto' " & _
"When 4 Then 'Particular' " & _
"When 0 Then 'No enlazado' " & _
"End as Entidad " & _
"From historia " & _
"Where " & _
"historia.usuario in " & Usuarios & " AND " & _
"historia.fecha = curdate() " & _
"Order By historia.usuario,historia.actividad"
Else
strSQL = _
"select " & _
"historia.usuario as Usuario, " & _
"historia.actividad as Actividad, " & _
"historia.fecha as Fecha, " & _
"historia.referencia as Referencia, " & _
"(historia.Fin - historia.Inicio) as 'Duración (min)', " & _
"substring(historia.notas,1,600) as Notas, " & _
"historia.nombre as Nombre, " & _
"historia.empresa as Empresa, " & _
"Case historia.origen " & _
"When 2 Then 'Empresa' " & _
"When 3 Then 'Contacto' " & _
"When 4 Then 'Particular' " & _
"When 0 Then 'No enlazado' " & _
"End as Entidad " & _
"From historia " & _
"Where " & _
"historia.usuario in " & Usuarios & " AND " & _
"CONVERT(CHAR(10),historia.fecha,103) = CONVERT(CHAR(10),getdate(),103) " & _
"Order By historia.usuario,historia.actividad"
End If
End Sub
Sub Plantilla_Registros(byval dsn,byval strSQL,byref strResultado)
Dim cn
Dim strHead
Dim strBody
dim F 'as adodb.Field
set cn = createobject("Adodb.Connection")
set rs = createobject("Adodb.recordset")
cn.open dsn
rs.open strsql,cn
'ARMA EL ENCABEZADO
strHead = strHead & "<table width=""100%"" border=""1"" bordercolor=""#00FF00"">"
strHead = strHead & " <tr>"
For Each F in rs.Fields
strHead = strHead & " <th width=""96"" scope=""col"">" & F.Name & "</th>"
Next
strHead = strHead & " </tr>"
While Not Rs.Eof
strBody = strBody & " <tr>"
For Each F in Rs.Fields
strBody = strBody & " <td>" & F.Value & "</td>"
Next
strBody = strBody & " </tr>"
rs.movenext
Wend
If Len(strBody) > 0 Then
strBody = strHead & strBody & "</table>"
strResultado = strResultado & strBody
End IF
if rs.state = 1 then
rs.close
end if
set rs = nothing
if cn.state = 1 then
cn.close
end if
set cn = nothing
End Sub
Sub Insertar_Titulo(byref strResultado,byval strTitulo)
If Len(strResultado) > 0 Then
strResultado = strResultado & "<BR></BR>"
End If
strResultado = strResultado & "<B>" & strTitulo & "</B>"
End Sub
Sub SQL_QActividadesHistoricas(byref strSQL,byval Motor,byval Usuarios)
If Motor = 1 Then
strSQL = _
"select " & _
"historia.usuario as Usuario, " & _
"historia.actividad as Actividad, " & _
"count(historia.recid) as 'Cantidad' " & _
"From historia " & _
"Where " & _
"historia.usuario in " & Usuarios & " AND " & _
"historia.fecha = curdate() " & _
"group by historia.actividad,historia.usuario " & _
"order by historia.usuario,historia.actividad"
Else
strSQL = _
"select " & _
"historia.usuario as Usuario, " & _
"historia.actividad as Actividad, " & _
"count(historia.recid) as 'Cantidad' " & _
"From historia " & _
"Where " & _
"historia.usuario in " & Usuarios & " AND " & _
"CONVERT(CHAR(10),historia.fecha,103) = CONVERT(CHAR(10),getdate(),103) " & _
"group by historia.actividad,historia.usuario " & _
"order by historia.usuario,historia.actividad"
End If
End Sub
Sub Enviar_Correo(byval IDCuenta,byval Para,byval Asunto,byval Cuerpo,byref Errores)
dim oMail
Set oMail = CreateObject("StrategiconMain.sMail")
oMail.Send_Mail constNumeroProgramID, IDCuenta, Para, "", "", Asunto, Cuerpo, "", Errores
End Sub
</Code></Main><Main><Name>Punto de Pedido (Asist)</Name><Key>d4734f24-84a0-492b-a44d-688812e248a6</Key><Version>1</Version><DynamicProperties><Main><DynamicProperties /></Main></DynamicProperties><Code>constNumeroProgramID=0
varDSNdsn=""
varTextoResultado=""
varTextostrSQL=""
varCuentaCorreoIDCuenta=0
varNumeroMotor=0
'FIN PARAMETROS/
SQL_PuntoDePedido varTextostrSQL,varNumeroMotor
Plantilla_Registros varDSNdsn,varTextostrSQL,varTextoResultado
Ejecutar_SiLaCadenaEsMayorACero varTextoResultado
Sub Enviar_Correo(byval IDCuenta,byval Para,byval Asunto,byval Cuerpo,byref Errores)
dim oMail
Set oMail = CreateObject("StrategiconMain.sMail")
oMail.Send_Mail constNumeroProgramID, IDCuenta, Para, "", "", Asunto, Cuerpo, "", Errores
End Sub
Sub Ejecutar_SiLaCadenaEsMayorACero(byval CadenaDeTexto)
If len(CadenaDeTexto)> 0 Then
Enviar_Correo varCuentaCorreoIDCuenta,"fabian@tacticasoft.com","Aviso de STRATEGICON",varTextoResultado,""""
End IF
End Sub
Sub Plantilla_Registros(byval dsn,byval strSQL,byref strResultado)
Dim cn
Dim strHead
Dim strBody
dim F 'as adodb.Field
set cn = createobject("Adodb.Connection")
set rs = createobject("Adodb.recordset")
cn.open dsn
rs.open strsql,cn
'ARMA EL ENCABEZADO
strHead = strHead & "<table width=""100%"" border=""1"" bordercolor=""#00FF00"">"
strHead = strHead & " <tr>"
For Each F in rs.Fields
strHead = strHead & " <th width=""96"" scope=""col"">" & F.Name & "</th>"
Next
strHead = strHead & " </tr>"
While Not Rs.Eof
strBody = strBody & " <tr>"
For Each F in Rs.Fields
strBody = strBody & " <td>" & F.Value & "</td>"
Next
strBody = strBody & " </tr>"
rs.movenext
Wend
If Len(strBody) > 0 Then
strBody = strHead & strBody & "</table>"
strResultado = strBody
End IF
if rs.state = 1 then
rs.close
end if
set rs = nothing
if cn.state = 1 then
cn.close
end if
set cn = nothing
End Sub
Sub SQL_PuntoDePedido(byref strSQL,byval Motor)
If Motor = 1 Then 'MYSQL
strSQL = strSQL & _
"select productos.descripcion as 'Descripción',productos.codigo as 'Código',a.Total, (productos_stock.PuntoPedido-a.total) as 'Diferencia' " & _
"FROM productos " & _
"INNER JOIN productos_stock ON productos_stock.idproducto=productos.recid " & _
"INNER JOIN ( " & _
"SELECT productos_stock.idproducto,Sum(ifnull(CASE productos_stockmov.TIPO " & _
"WHEN 0 THEN (productos_stockmov.cantidad * " & _
"productos_stockmov.Equivalencia) " & _
"WHEN 1 THEN -(productos_stockmov.cantidad * " & _
"productos_stockmov.Equivalencia) ELSE 0 END,0)) AS Total " & _
"FROM productos_stock LEFT JOIN productos_stockmov ON productos_stock.idproducto=productos_stockmov.idproducto " & _
"AND productos_stockmov.tipo <> 2 AND productos_stockmov.tipo <> 3 " & _
"GROUP BY productos_stock.idproducto " & _
") as a " & _
"ON a.idproducto = productos.recid " & _
"WHERE a.total < productos_stock.PuntoPedido"
Else 'SQLSERVER
strSQL = strSQL & _
"select productos.descripcion as 'Descripción',productos.codigo as 'Código',a.Total, (productos_stock.PuntoPedido-a.total) as 'Diferencia' " & _
"FROM productos " & _
"INNER JOIN productos_stock ON productos_stock.idproducto=productos.recid " & _
"INNER JOIN ( " & _
"SELECT productos_stock.idproducto,Sum(isnull(CASE productos_stockmov.TIPO " & _
"WHEN 0 THEN (productos_stockmov.cantidad * " & _
"productos_stockmov.Equivalencia) " & _
"WHEN 1 THEN -(productos_stockmov.cantidad * " & _
"productos_stockmov.Equivalencia) ELSE 0 END,0)) AS Total " & _
"FROM productos_stock LEFT JOIN productos_stockmov ON productos_stock.idproducto=productos_stockmov.idproducto " & _
"AND productos_stockmov.tipo <> 2 AND productos_stockmov.tipo <> 3 " & _
"GROUP BY productos_stock.idproducto " & _
") as a " & _
"ON a.idproducto = productos.recid " & _
"WHERE a.total < productos_stock.PuntoPedido"
end if
End Sub
</Code></Main>