HMGforum.com

Code: Select all

#include "hmg.ch"

function Main()

        // Database driver.
	REQUEST DBFCDX , DBFFPT

        // [x]Harbour modifiers.
	SET CENTURY ON
	SET DELETED ON
        SET DATE ITAL
        // Set default language to English.
        HB_LANGSELECT( "EN" )
        // Define window.
	DEFINE WINDOW Win_1			;
	        AT        0,0 			;
	        WIDTH     640 			;
        	HEIGHT    480 			;
	        TITLE     "DEMO             " 	;
        	MAIN 				;
		ON INIT OpenTable() 		;
		ON RELEASE CloseTable() 	;
		BACKCOLOR GRAY

		DEFINE MAIN MENU OF Win_1
        		POPUP "&File"
                		ITEM "&Batch Entry     "   ACTION BatchEntry()
                                //ITEM "&Batch Label Print" ACTION ExecuteReport('Report1',.t.,.t. )
				SEPARATOR
                                ITEM "About"               ACTION About()
                                SEPARATOR
        	        	ITEM "E&xit"               ACTION Win_1.Release
		        END POPUP
		END MENU

	END WINDOW

        // Open window.
	MAXIMIZE WINDOW Win_1
	ACTIVATE WINDOW Win_1

Return Nil



/*-----------------------------------------------------------------------------*/
Procedure OpenTable()
        CLOSE DATABASES
	//USE TRANS VIA "DBFCDX" INDEX TRANS NEW
	USE TRANS VIA "DBFCDX" NEW

Return Nil



/*-----------------------------------------------------------------------------*/
Procedure CloseTable()

        CLOSE TRANS

Return Nil



/*-----------------------------------------------------------------------------*/
Procedure BatchEntry()

        LOCAL aFields   := { "Product Code","Product Name","Batch No","Mfg. Date","Exp. Date",;
                             "Mfg. Lic.No.","Gross Wt.","Tare Wt.","Net Wt"  }

        LOCAL aReadOnly := { .f., .f., .f., .f., .f., .f., .f., .f., .f. }

        LOCAL bSave     := {|aContent, lEdit| BatchSave( aContent, lEdit ) }

        EDIT WORKAREA    TRANS ;
                TITLE    "Label - Batch Entry" ;
                FIELDS   aFields ;
                READONLY aReadOnly ;
                SAVE     bSave

Return Nil



/*-----------------------------------------------------------------------------*/
Procedure BatchSave( aContent, lEdit )

        LOCAL i
        LOCAL aFields   := { "Prodcode","Prname","Batchno","Mfgdate","Expdate",;
                             "Mfglicno","Grosswt","Tarewt","Netwt"  }
        // Chek content.
        FOR i := 1 TO Len( aContent )
                IF Empty( aContent[i] )
                        MsgInfo( aFields[i] + " - please supply data" )
                        Return .f.
                ENDIF
        NEXT

        // Save record.
        IF .NOT. lEdit
                TRANS->( dbAppend() )
        ENDIF
        FOR i := 1 TO Len( aContent )
                TRANS->( FieldPut( i, aContent[i] ) )
        NEXT

Return .t.

/*-----------------------------------------------------------------------------*/
Procedure SelItem( aItems )

        LOCAL nItem := 0

        DEFINE WINDOW wndSelItem ;
                AT 0, 0 ;
                WIDTH 265 ;
                HEIGHT 160 ;
                TITLE "" ;
                MODAL ;
                NOSIZE ;
                NOSYSMENU

                @ 20, 20 LISTBOX lbxItems ;
                        WIDTH 140 ;
                        HEIGHT 100 ;
                        ITEMS aItems ;
                        VALUE 1 ;
                        FONT "Arial" ;
                        SIZE 9

                @ 20, 170 BUTTON btnSel ;
                        CAPTION "&Select" ;
                        ACTION {|| nItem := wndSelItem.lbxItems.Value, wndSelItem.Release } ;
                        WIDTH 70 ;
                        HEIGHT 30 ;
                        FONT "ms sans serif" ;
                        SIZE 8

        END WINDOW

        wndSelItem.lbxItems.SetFocus

        CENTER WINDOW wndSelItem
        ACTIVATE WINDOW wndSelItem

return ( nItem )

Code: Select all

Procedure AdvTestSave( aContent, lEdit )

        LOCAL i
        LOCAL aFields  := { "Nombre", "Apellidos", "Dirección", "Población " ,;
                            "Estado", "Codigo ZIP", "F. Nacimiento", "Casado",;
                            "Edad", "Salario", "Notas"    }



//---- Czarny_Pijar addition begin

        if len(alltrim(aContent[1])) = 0         // empty surname ?  ( 1st column) 
          aContent[1]:='Doe'
        endif
        
        if len(alltrim(aContent[2])) = 0         // empty name ?     ( 2nd column)
          aContent[2]:='John'
        endif
        
        if aContent[10] = 0                      //  0 salary ?      ( 10th column)
          aContent[10] :=  123.45        
        endif
        
//---- Czarny_Pijar addition end


//---- Czarny_Pijar substraction begin
        // Chek content
        .
//        FOR i := 1 TO Len( aContent )-4
//                IF Empty( aContent[i] )
//                        MsgInfo( aFields[i] + " no puede estar vacio" )
//                        Return .f.
//                ENDIF
//        NEXT

//---- Czarny_Pijar substraction end

        // Calculate age.
        aContent[9] := 0
        FOR i := ( Year( aContent[7] ) + 1 ) to Year( Date() )
                aContent[9] += 1
        NEXT    

        // Save record.
        IF .NOT. lEdit
                CLIENTES->( dbAppend() )
        ENDIF
        FOR i := 1 TO Len( aContent )
                CLIENTES->( FieldPut( i, aContent[i] ) )
        NEXT

Return .t.