FiveTech Support Forums

 DEFINE DIALOG oDlgdatos RESOURCE "RECIBO_2" TITLE "Seleccionar Facturas" of oApp:oWndMain

  REDEFINE BROWSE oBrwdatos ID 101 of oDlgdatos

   obrwdatos:bldblclick   = { | nKey, nFlags | iif((cremesa)->slc="X",;
    ((cremesa)->slc:=" ",vnrecibo:=vnrecibo-1,gvnrecibo:Refresh(),;
     vtimporte:=vtimporte-(cremesa)->total,gvtimporte:Refresh()),;
    ((cremesa)->slc:="X",vnrecibo:=vnrecibo+1,gvnrecibo:Refresh(),;
     vtimporte:=vtimporte+(cremesa)->total,gvtimporte:Refresh())),obrwdatos:refresh()}
  ADD COLUMN to oBrwdatos DATA (cremesa)->slc    HEADER "Slc" size 50
  ADD COLUMN to oBrwdatos DATA (cremesa)->numero HEADER "Numero" size 75 ORDER "NUMERO"
  ADD COLUMN to oBrwdatos DATA (cremesa)->fecha  HEADER "Fecha" size 75
  ADD COLUMN to oBrwdatos DATA alltrim((cremesa)->nombre) HEADER "Nombre" size 400 ORDER "NOMBRE"
  ADD COLUMN to oBrwdatos DATA (cremesa)->total   HEADER "Total" size 100 picture "9,999,999.99" right


  REDEFINE GET gvfcreacion Var vfcreacion  ID 104 OF oDlgdatos
  REDEFINE GET gvfcargo    Var vfcargo     ID 105 OF oDlgdatos VALID IIF(vfcargo>=vfcreacion,.t.,.f.)

  REDEFINE GET gvtimporte Var vtimporte picture "9,999,999.99"  ID 102 OF oDlgdatos when vlsay
  REDEFINE GET gvnrecibo  Var vnrecibo picture "9,999"  ID 103 OF oDlgdatos when vlsay


  REDEFINE BTNBMP aBoton[1] ID 501 PROMPT oemtoansi("A¥ADIR") OF oDlgdatos ;
                  action (anadir(),obrwdatos:gotop(),obrwdatos:refresh());
                  MESSAGE Oemtoansi("A¤adir Facturas")

  REDEFINE BTNBMP aBoton[4] ID 502  PROMPT "BORRAR" OF oDlgdatos;
                  MESSAGE "Borrar Linea";
                  action (borrar(),obrwdatos:gotop(),obrwdatos:refresh())

  REDEFINE BTNBMP aBoton[2] ID 503  PROMPT "IMPRIMIR" OF oDlgdatos;
                  ACTION imprimirremesa(oDlgdatos);
                  MESSAGE "Imprimir Remesa"

  REDEFINE BTNBMP aBoton[3] ID 504  PROMPT "GENERAR" OF oDlgdatos;
                  MESSAGE "Generar Remesa";
                  action (generarremesa())




  ACTIVATE DIALOG oDlgdatos CENTER ON INIT (oBrwdatos:SetOrder(4),oBrwdatos:gotop())

RECIBO_2 DIALOG 210, 42, 585, 354
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
CAPTION "Selecciona"
FONT 10, "Arial"
{
 LISTBOX 101, 10, 4, 561, 287, LBS_NOTIFY | WS_BORDER | LBS_SORT | LBS_USETABSTOPS | LBS_DISABLENOSCROLL | WS_BORDER | WS_TABSTOP
 CONTROL "", 501, "TbtnBmp", 0 | WS_CHILD | WS_VISIBLE, 55, 299, 50, 14
 CONTROL "", 503, "TbtnBmp", 0 | WS_CHILD | WS_VISIBLE, 115, 299, 50, 14
 CONTROL "", 502, "TbtnBmp", 0 | WS_CHILD | WS_VISIBLE, 56, 318, 50, 14
 CONTROL "", 504, "TbtnBmp", 0 | WS_CHILD | WS_VISIBLE, 116, 317, 50, 14
 LTEXT "Total", -1, 476, 311, 19, 8
 EDITTEXT 102, 497, 309, 69, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
 LTEXT "N\xBA Recibos", -1, 491, 332, 40, 8
 EDITTEXT 103, 536, 330, 30, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
 LTEXT "Fecha Creacion", -1, 210, 302, 53, 8
 LTEXT "Fecha Cargo", -1, 213, 323, 44, 8
 EDITTEXT 104, 274, 301, 69, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
 EDITTEXT 105, 274, 320, 69, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP
}

static function imprimirremesa(oDlgdatos)

    lcancel:=printersetup()
    if lcancel = 0
       return nil
    endif
    i:=1
     (cremesa)->(DbSetOrder(2))
     (cremesa)->(dbgotop())

    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10

     REPORT oReport TITLE "Remesa "+dtoc(date());
            PREVIEW FONT ofont1


     COLUMN TITLE "Recibo"   DATA i size 5
     COLUMN TITLE "Factura"  DATA (cremesa)->numero size 5
     COLUMN TITLE "Fecha"    DATA dtoc((cremesa)->fecha)
     COLUMN TITLE "Nombre"   DATA alltrim((cremesa)->nombre) size 40
     COLUMN TITLE "Importe"  DATA val(transform((cremesa)->total,"999999.99")) picture "9,999,999.99" total
     GROUP ON (cremesa)->nombre;
           FOOTER "Total Cliente "+alltrim(oReport:aGroups[1]:cValue)+ ;
                  " ("+ltrim(str(oReport:aGroups[1]:nCounter))+" Recibos)"+CRLF

     END REPORT

     oReport:cGrandTotal := "Total Remesa..."
     oReport:cPageTotal := "Total Pagina..."

      ACTIVATE REPORT oReport for (cremesa)->slc="X";
               ON CHANGE i:=i+1;
               ON STARTGROUP oReport:NewLine()


     (cremesa)->(DbSetOrder(1))
     (cremesa)->(dbgotop())
return nil