ISTech Support Forum

ISTech Support Forum
http://www.istechforum.com/YaBB.pl
Evo-ERP and DBA Classic >> System Manager >> SU-A
http://www.istechforum.com/YaBB.pl?num=1336682178

Message started by Kelloggs on 05/10/12 at 13:36:18

Title: SU-A
Post by Kelloggs on 05/10/12 at 13:36:18

Two questions:

Is there a manual?

And how can I create a customer grid that show only customers with a value on BKAR.GROSS.YTD diferent than Zero?

:-/

Kelloggs

Title: Re: SU-A
Post by NovaZyg on 05/10/12 at 15:45:33

John,

I would do it as a saved filter.

1) open ARA and load the customer lookup grid. press the filter grid button (looks like a funnel second button on the top left) then select Maintenance.

Should bring up a window with a grid that says "All" = "All"

2) You want to select Edit. Then mouse click on the first field of the second line (AND/OR) it should write in the word AND. Press enter.
3) On the DataBase Field (dropdown) select BKAR.GROSS.YTD. press enter
4) select <> (drop down) press enter
5) type in 0 and press enter
6) Mouse Click Apply.
7) this should give you the Grid you wanted. If you are satisfied then select the filter button again from step 1 and select Maintenance.
8) it will bring up the same grid you just edited. Now either edit some more or press the Save Button.
9) SAVE... It will ask you for a name enter GROSSYTD and press the OK button. (you can save it LOCAL so only you have this filter Or on the Server so everyone has access to this filter)

10) now when you press the Filter Grid button there is Maintenance and GrossYTD if you select GrossYTD it applies that filter.

Hope that helps.

Title: Re: SU-A
Post by Kelloggs on 05/11/12 at 08:14:10

Allen,

Yeah, it works. but the user will have to select the filter.

I love the idea behind the Grids. I think is great that you can make them a "Program" and include them on the menu. The Ext. UDF is an excellent add on!!!

It would be nice:

If you can select the default grid.
If you can select the default filter.
If you can add a SQL View to Evo so that it can be use as a table for the grids, reports, etc, etc. (TAS is including an ODBC Library now)

We have been using the Ext. UDF already, but to today I can not figure it out how to send more than one parameter. We are only able to pass an single one to an external program.

It would be nice if you can tell us what are you using to separate them: space? coma? ??? or share with us the TAS SCR?

:P

John

Title: Re: SU-A
Post by Kelloggs on 05/11/12 at 11:03:22

This is what I have on my VB App. It works fine as long you pass one parameter. but if you pass more it
pass lot of them. maybe i need to trim them

Public Sub Main()
Dim sArgs() As String
Dim iLoop As Integer
'Assuming that the arguments passed from
'command line will have space in between,
sArgs = Split(Command$, " ")
For iLoop = 0 To UBound(sArgs)
dba_wo = (sArgs(iLoop)) 'My dba_wo sub is expeding WOPRE and WOSUF
Next
End Sub

PD: it does not matter if it string or number, both works fine....

http://www.umcorp.com/john/newgrid.JPG

Title: Re: SU-A
Post by NovaZyg on 05/13/12 at 10:17:42

John,

The params boxes are 1 , 2
3 , 4

you are passing param 1) wopre, param 2) blank param 3) wosuf param 4 blank.

Also it was not trimming the params so it was always passing 50 characters But I fixed that and sent you that mod on Friday.

Title: Re: SU-A
Post by Kelloggs on 05/14/12 at 07:34:49

Yes, it does work very well. Thank you.
Here is my VB6 sub

Public Sub Main()
Dim sArgs() As String
Dim wopre As String
Dim wosuf As String
Dim var_sql As String
Dim var_user As String
Dim the_shell As String

var_user = VBA.Environ("USERNAME")
sArgs = Split(Trim(Command$), " ")
wopre = sArgs(0)
wosuf = sArgs(1)

var_sql = "INSERT INTO evo_gridcalls (the_user, the_grid, the_value01, the_value02) VALUES ('" & var_user & "','WOJC','" & wopre & "','" & wosuf & "')"
conn_intranet (var_sql)

'Open WOJC
the_shell = "explorer.exe" & " " & "F:\DBAMFG\EVO_VB\WOJC\WOJC.mdb"
Call Shell(the_shell, 1)

End Sub

:P