FiveTech Software tech support forums

Code: Select all

  * Programa   :SysCtrl Labels,
* Funcion    :programa para la impresion de etiquedas
* Desarrollo :programado el dia martes 07 de diciembre del 2005 al 08 de dic. 2005
* autor: Cesar Cortes Cruz
* SysCtrl Software

#include "fivewin.ch"

//----------------------------------------------------------------------------//
static nCuantos
static oGet
static oSay

Function _Main()
   local cTitulo := "Impresion de etiquetas "
   local oWnd
   local cSoftWare := "SysCtrl Labels ..."
   local oFont2
   local nFor

   nCuantos := 1

   SET _3DLOOK ON

   USE LABELS new shared

   Define FONT oFont2 NAME GetSysFont() SIZE 0, -12 BOLD

   DEFINE WINDOW oWnd TITLE cTitulo + labels->cia

   @ 2, 2 BUTTON "Imprimir" SIZE 120, 25 OF oWnd ACTION _prnLabels()
   @ 4, 2 BUTTON "Configurar" SIZE 120, 25 OF oWnd ACTION ( _config() )
   @ 6, 2 BUTTON "Salir" SIZE 120, 25 OF oWnd ACTION ( msginfo("Bye.Bye.", "") ,oWnd:end() )

   DEFINE MESSAGE OF oWnd PROMPT cSoftWare CENTERED ;
          DATE KEYBOARD COLOR '*rb+/w' FONT oFont2

     ACTIVATE WINDOW oWnd
   labels->( dbcloseArea() )
    oFont2:end()
return nil

function _prnLabels()
   local cTitulo := "Impresion de etiquetas ..."
   local oDlg
   local oFont
   local aBtn[2]

   DEFINE FONT oFont  NAME "TAHOMA" SIZE 0,-12

   DEFINE DIALOG oDlg RESOURCE 'DIALOG_1' TITLE cTitulo font oFont //brush oBrush
   redefine SAY oSay id 52 prompt "" of oDlg

   REDEFINE GET oGet VAR nCuantos       ID 101 OF oDlg  PICTURE "999999" ;
      valid nCuantos > 0 

   REDEFINE BUTTON aBtn[1] ID 201 OF oDlg ACTION ( _imprimelas() ,oDlg:end() )
   REDEFINE BUTTON aBtn[2] ID 202 OF oDlg ACTION ( oDlg:end())

   Activate dialog oDlg centered

   oFont:end()

return (.T.)

function _imprimelas()
   local oPrn
   local nFor
   if !msgyesno('Impresion de etiquetas ... '+chr(13)+;
         "Continuar ... ?",'Confirmar impresion')
      return .t.
   endif

   CursorWait()

   oPrn := TDosPrn():New( "LPT1" ) //iniciamos el objeto tdosprn.

   oPrn:command( "27","67", "6" ) //la etiqueta mide una pulgada y el salto es cada 6 renglones.
   oPrn:command( "27","48" ) //Condensando los renglones,
   oPrn:command("15") //letra condensada

   for nFor := 1 to nCuantos
      oPrn:say(0,5, field->nombre )
      oPrn:say(1,5, field->direccion )
      oPrn:say(2,5, alltrim(field->colonia)+" " + alltrim( field->localidad)  )
      oPrn:say(3,5, alltrim( field->telefono ) )
      oPrn:say(4,5, alltrim( field->telfax ) )
      oPrn:say(5,5, alltrim( field->rfc ) )
      oSay:settext( "Imprimiendo etiquetas " + str(nFor, 6) )
      oSay:refresh()
      sysrefresh()
   next

   oPrn:say(6,0, CHR(27)+"2" ) //obligamos a que la impresora haga un reset
   oPrn:end()   //matamos el objeto de impresion ...

   CursorArrow()

return (.T.)

function _config() //aqui se configuran los datos que se imprimen en la etiqueta..
   local oDbf
   local cTitulo := "Datos que se imprimen en la etiqueta ..."
   local oGet[10]
   local oFont
   local oDlg
   local oBtn
   dbselectArea("labels")
   database oDbf
   oDbf:load()
   DEFINE FONT oFont  NAME "TAHOMA" SIZE 0,-12
   DEFINE DIALOG oDlg RESOURCE 'DIALOG_2' TITLE cTitulo font oFont //brush oBrush
   REDEFINE GET oGet[1] VAR oDbf:nombre      ID 101 OF oDlg
   REDEFINE GET oGet[2] VAR oDbf:direccion   ID 102 OF oDlg
   REDEFINE GET oGet[3] VAR oDbf:colonia     ID 103 OF oDlg
   REDEFINE GET oGet[4] VAR oDbf:localidad   ID 104 OF oDlg
   REDEFINE GET oGet[5] VAR oDbf:telefono    ID 105 OF oDlg
   REDEFINE GET oGet[6] VAR oDbf:telfax      ID 106 OF oDlg
   REDEFINE GET oGet[7] VAR oDbf:rfc          ID 107 OF oDlg

   REDEFINE BUTTON oBtn ID 201 OF oDlg ACTION ( oDbf:save() ,oDlg:end() )

   Activate dialog oDlg centered

return (.T.)

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