Í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 

HOW TO Circuito Clasico de Cobranza
Ir a página 1, 2  Siguiente
 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Modelizacion Commit Soft -> Circuitos (Work Flow)
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 Ago 11, 2006 3:55 pm    Título del mensaje: HOW TO Circuito Clasico de Cobranza Responder citando

Siguiendo estos pasos ud podra configurar un circuito basico de cobranzas.

Publicaremos Script, ubicacion y creacion de objetos.

Laughing


Ultima edición por Typhon Software el Vie Ago 18, 2006 11:27 am; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ago 11, 2006 3:59 pm    Título del mensaje: Creacion de los Tipo Valor Responder citando

Lo principal es crear los objetos, para ello debemos crear algunos objetos.

1- debemos crear un objeto definido llamado tipo de valores.

Dicho objeto debe contener los siguientes campos:

descripcion string 100
fusion check
entrada check
salida check
codigo string 3

El objeto debe tener Rol tipovalor, luego debemos chequear estructuras. Wink
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ago 11, 2006 5:07 pm    Título del mensaje: Llenando los tipo valores Responder citando

Ahora vamos a llenar los tipo valores.

Desde el developer nos dirijimos a objetos definidos y cargamos los siguientes tipo valor.

descripcion Efectivo
salida si
entrada si
fusion si
codigo 1

-------------------------------------------------------------------------------

descripcion Cheques de Terceros
salida si
entrada si
fusion no
codigo 2

-------------------------------------------------------------------------------

descripcion Retenciones de Iva
salida no
entrada si
fusion no
codigo 3

-------------------------------------------------------------------------------

descripcion Retenciones de Ganancias
salida no
entrada si
fusion no
codigo 4

-------------------------------------------------------------------------------

descripcion Retenciones de SUSS
salida no
entrada si
fusion no
codigo 4

-------------------------------------------------------------------------------

descripcion Retenciones de IB
salida no
entrada si
fusion no
codigo 4

-------------------------------------------------------------------------------

descripcion Tarjetas
salida no
entrada si
fusion no
codigo 4


Ultima edición por Typhon Software el Vie Ene 12, 2007 5:24 pm; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ago 18, 2006 11:22 am    Título del mensaje: Vista Buscadora en los Debitos Responder citando

El siguiente paso sera generar los objetos de relacion, primero vamos a generar ahora uno para que cumpla el rol de los recibos.

New Object y complematamos con los siguientes datos.

Nombre del Objeto : Recibo de Cobranza

Seleccionar tipo de objeto de relacion.

Seleccionar una imagen para los recibos.

El objeto puro debe ser "Ingreso de Valores"

Determinar un area para el objeto y aceptar.

Luego Chequear estructuras, para que el objeto quede plasmado.
_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ago 18, 2006 11:26 am    Título del mensaje: Responder citando

Para Continuar lo haremos generando un objeto de aplicacion de Ventas.

New Object y complematamos con los siguientes datos.

Nombre del Objeto : Aplicacion de Recibos.

Seleccionar tipo de objeto de relacion.

Seleccionar una imagen para la aplicacion de Recibo.

El objeto puro debe ser "Aplicacion de Venta"

Determinar un area para el objeto y aceptar.

Luego Chequear estructuras, para que el objeto quede plasmado.

Este objeto es el que relaciona los creditos con los debitos, y nos dice que recibo o nota de credito cancela que facturas o notas de debitos.

(No se desesperen todavia faltan algunos pasos, pero como ven son bastante simples y estan explicados en detalle Wink )
_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 5:44 pm    Título del mensaje: los footer de recibo Responder citando

Deben modelizar los siguientes footer en recibo


_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 5:45 pm    Título del mensaje: Footer en Aplicacion de Ventas Responder citando

Deben modelizar los siguientes footer en la aplicacion de Ventas


_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 5:51 pm    Título del mensaje: script que debe estar en el aceptar de Recibo Responder citando

Código:

Sub Main ()
stop
  'script disparado en el B_Aceptar
  'tengo que sacar los renglones que no tengan codigos

evaluando = true
do while evaluando
  for x = 1 to (grilla_items.maxrows - 1)
     evaluando = false
     'ahora me fijo si la columna dos esta vacia
     grilla_items.row = x
     grilla_items.col = 2
     if trim(grilla_items.text) = "" then
         evaluando = true
         grilla_items.action = 5
         grilla_items.maxrows = grilla_items.maxrows -1
         grilla_id.row = x
         grilla_id.action = 5
         grilla_id.maxrows = grilla_id.maxrows -1
         gri_impositiva.row = x
         gri_impositiva.action = 5
         gri_impositiva.maxrows = gri_impositiva.maxrows -1
         exit for
     end if
  next
loop
dim Ccontrol
dim ValorControl
dim totalspread
     'tengo que verificar qeu el valor a ingresar sea igual
     'al total que tengo el spread footer
     
     for each Ccontrol in Formulario     
         if Ccontrol.tag = "ingresa" then
            valorControl = val_dato(Ccontrol.text)
            exit for
         end if
     next
   
     for each Ccontrol in Formulario     
         if Ccontrol.tag = "fecha" then
            lafecha = cstr(format_dato(Ccontrol.value,"YYYYMMDD"))
            exit for
         end if
     next

     'busco un control si hay un recibo para este cliente en la fecha que se esta cargando
     stop
     idcliente = ob_oder.creator.idloaded
     consulta = "select total, fecha, codigo from cab_ingreso_valores" & vbcrlf
     consulta = consulta & "inner join rel_cab_ingreso_valores on rel_cab_ingreso_valores.idcab_ingreso_valores = cab_ingreso_valores.idcab_ingreso_valores" & vbcrlf
     consulta = consulta & "where origen_idcliente = '" & idcliente & "' order by abs(codigo) desc limit 1"

     set resultado = consulta_sql (consulta)

     grillafooter.col = 7
     grillafooter.row = 1
     totalSpread = val_dato(grillafooter.text)

     if not resultado is nothing then
        if resultado.recordcount = 1 then
          if lafecha = format_dato(resultado.fields(1).value,"YYYYMMDD") then
             if resultado.fields(0).value = totalSpread then
                rpta = msgbox ("Se encontro un recibo para el mismo cliente el " & resultado.fields(2).value & " con el mismo valor y con la misma fecha. Desea continuar ??",vbyesno + vbquestion)
                if rpta = 7 then
                   mensaje = "Recibo Abortado por el usuario"
                   exit sub 
                end if
             end if
          end if
       end if
     end if     
 

     'lo dejo escapar por que no esta llegando desde un contado
     if valorcontrol = 0 then exit sub
     
     'ahora busco el valor de la spread_footer
     grillafooter.col = 7
     grillafooter.row = 1
     totalSpread = val_dato(grillafooter.text)
     
     if valorcontrol > totalspread then
          mensaje ="Le estan pagando menos"
     end if
     
     if valorcontrol < totalspread then
          mensaje ="Esta Cobrando de mas"
     end if

end sub




Este script controla que no se cobre de mas, esa linea hay que sacarla si se dejan pagos a cuenta, y verifica tambien si se paga de menos tambien hay que sacar esa linea si se cobra parcialmente
cuidado con los saltos de linea de la pagina web

_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar


Ultima edición por Typhon Software el Vie Ene 12, 2007 7:50 pm; editado 2 veces
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 5:58 pm    Título del mensaje: Responder citando

tenemos que generar un trigger que sera llamado
Documentos adeudados por cliente y debe contener el siguiente codigo

Código:

Sub Main ()
'stop
      'ahora me fijo cual es el id del cliente...
      If Ob_Oder.Creator Is Nothing Then
          Exit Sub
      End If
' ahora busco la spread

consulta = "select * from ( "
consulta = consulta & "select codigo,destinatario,fecha,total, round(sum(ite_aplica),2) as cancelado" & vbCrLf
consulta = consulta & ", round(total-sum(ite_aplica),2) as saldo , idcab_factura_venta" & vbCrLf
consulta = consulta & "from  ( Select cab_factura_venta.idcab_factura_venta, cab_factura_venta.activo," & vbCrLf
consulta = consulta & "codigo, destinatario, fecha, total,   Case isnull(ite_aplica) when '1'" & vbCrLf
consulta = consulta & "then '0' Else ite_aplica End as ite_aplica   from cab_factura_venta" & vbCrLf
consulta = consulta & "inner join rel_cab_factura_venta on cab_factura_venta.idcab_factura_venta = rel_cab_factura_venta.idcab_factura_venta" & vbCrLf
consulta = consulta & "inner join ob_flag on cab_factura_venta.idob_flag = ob_flag.idob_flag" & vbCrLf
consulta = consulta & "left join rel_ite_aplica_venta on  rel_ite_aplica_venta.item_idcab_factura_venta = cab_factura_venta.idcab_factura_venta  " & vbCrLf
consulta = consulta & "left join ite_aplica_venta on rel_ite_aplica_venta.idcab_aplica_venta = ite_aplica_venta.idcab_aplica_venta" & vbCrLf
consulta = consulta & "and rel_ite_aplica_venta.nro = ite_aplica_venta.nro       " & vbCrLf
consulta = consulta & "where ob_flag.descripcion = 'Cerrado'  And cab_factura_venta.activo = 'S' " & vbCrLf
consulta = consulta & "and cab_factura_venta.obj_aplicado = 'N' And rel_cab_factura_venta.destino_idcliente = "  & C(ob_oder.Creator.idloaded)  & "  ) " & vbCrLf
consulta = consulta & "as cab_factura_venta group by  codigo,destinatario,fecha,total " & vbCrLf


consulta = consulta & "union" & vbCrLf

consulta = consulta & "select codigo,destinatario,fecha,total, round(sum(ite_aplica),2) as cancelado" & vbCrLf
consulta = consulta & ", round(total-sum(ite_aplica),2) as saldo , idcab_debito_venta" & vbCrLf
consulta = consulta & "from  ( Select cab_debito_venta.idcab_debito_venta, cab_debito_venta.activo," & vbCrLf
consulta = consulta & "codigo, destinatario, fecha, total,   Case isnull(ite_aplica) when '1'" & vbCrLf
consulta = consulta & "then '0' Else ite_aplica End as ite_aplica   from cab_debito_venta" & vbCrLf
consulta = consulta & "inner join rel_cab_debito_venta on cab_debito_venta.idcab_debito_venta = rel_cab_debito_venta.idcab_debito_venta" & vbCrLf
consulta = consulta & "inner join ob_flag on cab_debito_venta.idob_flag = ob_flag.idob_flag" & vbCrLf
consulta = consulta & "left join rel_ite_aplica_venta on  rel_ite_aplica_venta.item_idcab_debito_venta = cab_debito_venta.idcab_debito_venta  " & vbCrLf
consulta = consulta & "left join ite_aplica_venta on rel_ite_aplica_venta.idcab_aplica_venta = ite_aplica_venta.idcab_aplica_venta" & vbCrLf
consulta = consulta & "and rel_ite_aplica_venta.nro = ite_aplica_venta.nro       " & vbCrLf
consulta = consulta & "where ob_flag.descripcion = 'Cerrado'  And cab_debito_venta.activo = 'S' " & vbCrLf
consulta = consulta & "and cab_debito_venta.obj_aplicado = 'N' And rel_cab_debito_venta.destino_idcliente = "  & C(ob_oder.Creator.idloaded)  & "  ) " & vbCrLf
consulta = consulta & "as cab_debito_venta group by  codigo,destinatario,fecha,total " & vbCrLf

consulta = consulta & ") as consulta where saldo > 0 order by fecha, abs(codigo) desc"

InSpread Formulario.Spread(1), consulta, "false"


Formulario.Spread(1).maxcols=formulario.Spread(1).maxcols+1  'Agrego una columna al final de la grilla

Formulario.Spread(1).row=-1                                     'selecciono todas las filas
Formulario.Spread(1).col=formulario.Spread(1).MaxCols           'devuelve el maximo de columna
Formulario.Spread(1).celltype=10                                'definimos check type
Formulario.Spread(1).TypeCheckCenter = True
Formulario.Spread(1).row=0
Formulario.Spread(1).text="Seleccion"
Formulario.Spread(1).colwidth(Formulario.Spread(1).maxcols)=12  'defino el ancho de la columna


Formulario.Spread(1).maxrows=formulario.Spread(1).maxrows+1     'agrego una fila mas
Formulario.Spread(1).row=formulario.Spread(1).MaxRows           'seteo la ultima fila
Formulario.Spread(1).celltype=5                                 'le digo que la ultima fila es tipo static text
Formulario.Spread(1).col=-1



'Etiqueto la ultima fila
Formulario.Spread(1).col=1
Formulario.Spread(1).TypeHAlign=2
Formulario.Spread(1).fontbold=true
Formulario.Spread(1).text="Totales"


Formulario.Spread(1).Col = 4                                    'Sumarizo el total
For x = 1 To Formulario.Spread(1).MaxRows
   'me tengo que fijar cual es la suma de los impagos !!!
   Formulario.Spread(1).Row = x   
   impagos = impagos + Val_Dato(Formulario.Spread(1).Text)
Next
Formulario.Spread(1).forecolor=vbred
Formulario.Spread(1).fontbold=true
Formulario.Spread(1).text=impagos


Formulario.Spread(1).Col = 5                                    'Sumarizo cancelado
For x = 1 To Formulario.Spread(1).MaxRows
   'me tengo que fijar cual es la suma de los impagos !!!
   Formulario.Spread(1).Row = x
   cancelado = cancelado + Val_Dato(Formulario.Spread(1).Text)
Next
If cancelado>=impagos Then
 Formulario.Spread(1).forecolor=&H00008000&
Else
 Formulario.Spread(1).forecolor=vbred
End If
Formulario.Spread(1).fontbold=true
Formulario.Spread(1).text=cancelado

Formulario.Spread(1).Col = 6                                    'Sumarizo Saldo
For x = 1 To Formulario.Spread(1).MaxRows
   'me tengo que fijar cual es la suma de los impagos !!!
   Formulario.Spread(1).Row = x
   saldo = saldo + Val_Dato(Formulario.Spread(1).Text)
Next
Formulario.Spread(1).forecolor=vbred
Formulario.Spread(1).fontbold=true
Formulario.Spread(1).text=saldo

Formulario.Spread(1).col= 7
Formulario.Spread(1).colhidden = True

End Sub




Cuidado con los saltos de linea de la pagina web cuando lo copian y lo pegan !!!!
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar


Ultima edición por Typhon Software el Vie Ene 12, 2007 6:36 pm; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 6:05 pm    Título del mensaje: Generar un trigger llamado sumarizadorrecibo Responder citando

Código:

Sub Main ()
Stop

colEfectivo = 1
colcheque   = 2
colretenciones = 4
colingresosbrutos = 5
coltarjeta = 3

   'hay que ver de que tipo es el valor y sumar en la grilla_footer

totalcheque = 0
totalefectivo = 0
totalretencion = 0
totalIngresos  = 0
totaltarjeta = 0

Impagos = 0
mitotal = 0

'hay que ver en la grilla de arriba y sumar todas las facturas impaga

Formulario.Spread(1).Col = Formulario.Spread(1).MaxCols
Formulario.Spread(1).Row = Formulario.Spread(1).MaxRows


'For x = 1 To Formulario.Spread(1).MaxRows -1
'   'me tengo que fijar cual es la suma de los impagos !!!
'   Formulario.Spread(1).Row = x
   impagos = impagos + Val_Dato(Formulario.Spread(1).Text)
'Next

'ahora me fijo la ultima columna si es cero le asigno la diferencia !!

Grilla_Items.Col = 4

For x = 1 To Grilla_Id.MaxRows
   Grilla_Items.Row = x
   mitotal = mitotal + Val_Dato(Grilla_Items.Text)   
Next

Grilla_Items.Row = Grilla_Items.MaxRows -1
If Grilla_Items.Text = "" Then
   mitotal = impagos - mitotal
   If mitotal > 0 Then
      Grilla_Items.Text = mitotal
   End If
End If



For x = 1 To Grilla_Id.MaxRows
   Grilla_Id.Row = x
   Grilla_Id.Col = 1

   Set tipovalor =   Obj("tipovalor","idtipovalor",grilla_id.Text)
   
If Not tipovalor Is Nothing Then
   Select Case tipovalor.Field("descripcion")
 
      Case "Efectivo"
        Grilla_Items.Col = 4
        Grilla_Items.Row = x
        totalEfectivo = totalEfectivo + Val_Dato(Grilla_Items.Text)
     
      Case "Cheques de Terceros"
        Grilla_Items.Col = 4
        Grilla_Items.Row = x
        totalCheque = totalCheque + Val_Dato(Grilla_Items.Text)

      Case "Retenciones de Iva","Retenciones de Ganancias","Retenciones de SUSS"
        Grilla_Items.Col = 4
        Grilla_Items.Row = x
        totalretencion = totalretencion + Val_Dato(Grilla_Items.Text)
     
      Case "Retenciones de IB"
        Grilla_Items.Col = 4
        Grilla_Items.Row = x
        totalIngresos = totalIngresos + Val_Dato(Grilla_Items.Text)
     
      Case "Tarjetas"
        Grilla_Items.Col = 4
        Grilla_Items.Row = x
        totaltarjeta = totaltarjeta + Val_Dato(Grilla_Items.Text)

      Case Else
   End Select
End If

Next


GrillaFooter.Row = 1
GrillaFooter.Col = colefectivo
GrillaFooter.Text = Format_Dato(totalefectivo,"#,###,###,###,##0.00")

GrillaFooter.Col = colcheque
GrillaFooter.Text = Format_Dato(totalcheque,"#,###,###,###,##0.00")


GrillaFooter.Col = colcheque
GrillaFooter.Text = Format_Dato(totalcheque,"#,###,###,###,##0.00")


GrillaFooter.Col = colretenciones
GrillaFooter.Text = Format_Dato(totalretencion,"#,###,###,###,##0.00")


GrillaFooter.Col = colIngresosBrutos
GrillaFooter.Text = Format_Dato(totalIngresos,"#,###,###,###,##0.00")

GrillaFooter.Col = coltarjeta
GrillaFooter.Text = Format_Dato(totaltarjeta,"#,###,###,###,##0.00")


GrillaFooter.Col = GrillaFooter.MaxCols
total = totalcheque + totalefectivo + totalretencion + totalIngresos + totaltarjeta
GrillaFooter.Text = Format_Dato(total,"#,###,###,###,##0.00")


End Sub



Cuidado con el salto de linea de las paginas web cuando copian y pegan el script
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar


Ultima edición por Typhon Software el Vie Ene 12, 2007 6:37 pm; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 6:18 pm    Título del mensaje: Colgar Trigger en Recibo Responder citando

La imagen muestra como colgar los trigeers antes cargados en el recibo


_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 6:30 pm    Título del mensaje: Complementos de Cobranza Responder citando

Cada uno de los tipos de valores que antes cargamos tienen datos especiales por ejemplo un cheque de tercero al momento de ser cargado deberia el sistema pedirme los datos del banco el cuit etc...

Ello lo manejamos con los datos complementarios del objeto tipo de valores, vemos que hay un solapa en la parte inferior de la pantalla llamada "Datos Auxiliares" y alli debemos ingresar los siguientes datos complementarios que a mi entender cubren todas las necesidades



Note que la imagen tiene un renglon azul tachado, es un ejemplo para dolares que no esta incorporado en este pequeño tutorial...


Esta es una muestra de como deberia completar los campos de la solapa datos auxiliares, el ejemplo corresponde a la primera linea, observe que se definio un tipo string con 60 de largo y se aplico a Cheques de Tercero.



_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar


Ultima edición por Typhon Software el Vie Ene 12, 2007 6:53 pm; editado 2 veces
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 6:34 pm    Título del mensaje: Script en el Evento Click en Grilla del recibo Responder citando

Este script va en el evento Click en Grilla del Objeto Recibo..

Código:
Sub Main ()
'**************SCRIPT CLICK EN GRILLA ******************
    stop
For x = 1 To Formulario.Spread(1).MaxRows-1
   grillaclick.row = x
   grillaclick.col = grillaclick.maxcols
   'suma todos de los saldos seleccionados !!!
   if grillaclick.text="1"   then
     Formulario.Spread(1).Col = 6                                'Sumarizo el total
     Formulario.Spread(1).Row = x   
     sumador = sumador + Val_Dato(formulario.Spread(1).Text)
   end if
   Formulario.Spread(1).Col = Formulario.Spread(1).maxcols                               
Next

 formulario.spread(1).col= Formulario.Spread(1).maxcols
 formulario.spread(1).row=formulario.spread(1).maxrows
 formulario.spread(1).forecolor=vbblue
 formulario.spread(1).fontbold=true
 formulario.spread(1).text=sumador
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 7:11 pm    Título del mensaje: Numero Interno de valores Responder citando

Ahora vamos a generar en el sql un campo llamado numero interno y vamos hacer que este campo sea auto incremental, de modo que cada vez que nos ingresen un tipo de valor complementario el Sql automaticamente nos numere los numere...


debemos buscar en nuestro paradigma, el objeto de tipo de valor, vemos cual es su tabla sql y luego buscamos esa tabla pero sumandole el sufijo _comple

Antes de hacer nada debemos asegurarnos de que la tabla no contenga ningun registro o sea la tabla debe estar vacia...

sigamos este ejemplo didactico que nos muestra como hacer esto en un modelo que utiliza Mysql..

click en el siguiente link http://www.typhon.com.ar/imageforo/numerointerno.htm
_________________
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
Typhon Software
Site Admin


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

MensajePublicado: Vie Ene 12, 2007 7:28 pm    Título del mensaje: Tabla Temporal de Cobro Responder citando

En el proximo paso vamos a generar una tabla temporal para guardar las aplicaciones que se hacen desde el objeto de Recibos...

La tabla debe llamarse

temporal_cobro
y debe contener dos campos uno llamado
idrecibo varchar(50) notnull y otro
llamado idfactura varchar(50) notnull


Sigue en la otra pagina
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar


Ultima edición por Typhon Software el Mar Ene 16, 2007 5:09 pm; editado 1 vez
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 -> Circuitos (Work Flow) Todas las horas están en GMT - 3 Horas
Ir a página 1, 2  Siguiente
Página 1 de 2

 
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