Clipper/FiveWin - Lineas de una Factura

   
Vista:

Lineas de una Factura

Publicado por karulo (11 intervenciones) el 10/04/2008 02:20:03
Estimados Amigos del Foro
Estoy desorientado ya que no tengo ni idea de cómo se crean lines de una factura o de cualquier documento, soy principiante co Fw en clipper usaba dbedit, si alguien me tira alguna ayuda creo que es con tcbrowse o twbrose pero como se hace??
gracias Karulo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Lineas de una Factura

Publicado por leandro alfonso (121 intervenciones) el 10/04/2008 05:08:28
Amigo este es un ejemplo de un browse nativo de fw..

Espero sea lo que andas buscando

// Using FiveWin browses for inline data capture

#include "FiveWin.ch"

//----------------------------------------------------------------//

function Main()

local oDlg, oLbx

USE Data

DEFINE DIALOG oDlg FROM 5,10 TO 24, 56 ;
TITLE "Browse inline data capture"

@ 1, 0.50 LISTBOX oLbx FIELDS SIZE 175, 95 OF oDlg

oLbx:lCellStyle = .t.
oLbx:lAutoEdit = .t.
oLbx:lAutoSkip = .t.

@ 10, 2 BUTTON "&Edit" OF oDlg SIZE 40, 12 ;
ACTION oLbx:Edit()

@ 10, 10 BUTTON "&OK" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End() DEFAULT

@ 10, 18 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------------//

procedure AppSys // XBase++ requirement

return

Saludos

LEANDRO ALFONSO
Bogotá (Colombia)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lineas de una Factura

Publicado por Ricardo (2 intervenciones) el 02/05/2008 19:48:38
Mira lo que yo hago es lo siguiente

Creo una tabla en memoria por cada columna que deseo administrar
Ej si tu factura tiene cantidad, codigo producto, descripcion precio unitario y precio venta
crear las siguientes tablas

CANTIDAD[25]
CODIGO[25]
DESCRIP[25]
PREUNIT[25]
PRETOTA[25]

El tamaño lo dara la cantidad de lineas que puedes imprimir en la factura

Luego te haces un procedimiento parecido a esto

lin=10 && suponiendo que partes en la linea 10

for i = 1 to 25
@ lin,001 get cantidad[i]
@ lin,012 get codigo[i]
@ lin,020 get descrip[i]
@ lin,055 get preunit[i]
@ lin,065 get pretot[i]
lin++
if lin > 23
&&podrias limpiar la pantalla previamente
lin=10
endif
next

y asi las posibilidades son muchas
y asi tambien cuando quieras imprimir
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar