Translate Google :
Implementing my POS point of sale application, I needed to have on hand a list of countries (GS1 Prefix) and thus identify the origin of the product for sale.
these prefixes are assigned by the international organization GS1.
you can look at: http://www.gs1.org/barcodes/support/prefix_list
the products handled by the POS system are EAN13 (European Article Number) This application generated from a table of countries and their prefixes, another table containing prefixes, image name, order.
The order indicates the location of the 120 images available from a total of 1026 GS1 prefixes available.
these images are displayed depending on the product entered the POS application, you can couple this code with your application as the same (code) is released for use on my part.
Read my comment in GS1.PRG [attachment=1]GS1 Sources.rar[/attachment]
PD: the application takes a while to load the grid, in my post is instant, can not find the error if you have some time and desire can help me fix this?
Español:
Implementando mi aplicación P.O.S point of sale, necesitaba tener a mano una lista de paises (Prefix GS1) y de esa forma identificar el origen del producto en venta.
estos prefijos estan asignados por la entidad internacional GS1.
puede usted mirar en : http://www.gs1.org/barcodes/support/prefix_list
los productos manejados por el sistema P.O.S son EAN13 (European Article Number) esta aplicacion genera a partir de una tabla de paises y su prefijos, otra tabla conteniendo Prefijos, nombre de la imagen , orden.
el orden indica la ubicacion de las 120 imagenes disponibles de un total de 1026 prefijos GS1 disponibles.
estas imagenes son mostradas dependiendo del producto ingresado con la aplicación P.O.S, usted puede acoplar este codigo con su aplicacion ya que la misma (codigo) esta liberado para su uso por mi parte.
Lea mi comentario en GS1.PRG PD:la aplicacion tarda un poco en cargar el grid, en mi post es instantaneo; no encuentro el posible error si usted tiene un poco de tiempo y ganas puede ayudarme a corregirlo ?
In the routine of the POS system of the country image is searched in this way. (This method is being changed to improve the code)
En la rutina del sistema P.O.S la imagen del pais es buscada de esta manera. (este metodo se esta cambiando para mejorar el codigo)
Code: Select all
Function CargarItems() /**********************************************************/
Sele 1
Productos->( DBGOTOP() )
Do While !Eof()
AADD( aCargarItems , { GetCode( Productos->PAIS ) , ;
Productos->CODIGO , ;
Productos->SCS , ;
Productos->RUBRO } )
Productos->(DBSKIP(1))
End Do
Return ( aCargarItems )
Function GetCode(nCountry) /**********************************************************/
Local nFor := 0
Local nPosCountry := 0
Local cPosCountry := ''
For nFor := 1 To 111
IF STR( nCountry, 3 ) = aBanderas[nFor][CODIGO_PAIS]
nPosCountry := Val ( aBanderas[nFor][ORDEN_PAIS] )
Return( nPosCountry )
Else
nPosCountry := 70
Endif
Next
Return( nPosCountry )