using .NET SDK in NetExpress 5.1

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

Can you please clarify what you are trying to do?

Although Net Express has an add-on .NET module that allows you to create managed code applications in Visual Studio 2008, it is quite outdated when compared to the Visual COBOL product which supports Visual Studio 2015 and the latest .NET Framework versions.

Are you using the .NET add-on in Net Express or are you trying to call this from a native unmanaged COBOL application in Net Express?

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

I was looking for a tool which generates automatically the GiroCode-QR-Code for SEPA-payments. The informations in the QR-Code needs to be in a strict order : bic, Name, iban, amount,purpose

I've found the above mentioned tool, which provides exactly what we need. But I don't know, if the use with NetExpress 5.1 would be possible and if so, how to call it correctly.

The above Information about the call was sent to me by the Tool-Provider to check first if the use is possible.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

It is possible but like I stated in the earlier post this would be much easier to call in Visual COBOL which fully supports modern managed .NET code then it would be in Net Express. In Net Express in order to call this directly would require that you have the .NET add-on which only works in Visual Studio 2008. It would be possible to call it from native Net Express code but you would have to go through a .NET wrapper that you could then call through the NX COM interface.

So the answer is yes, it can be done but I cannot give you an example unless I know if your NX code is itself managed or native.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

Our code is itself managed with Cobol NetExpress 5.1. We're not using Visual Cobol nor Visual Studio.

An example would be much appreciated.

Thanks.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

Our code is itself managed with Cobol NetExpress 5.1. We're not using Visual Cobol nor Visual Studio.

An example would be much appreciated.

Thanks.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

Allthough mi case is different, perhaps it helps you.

Our invoicing program generates an XML file.

We send all values corresponding to this invoice to a DLL program (CiberPac).

This program returns the QR-Code as *.bmp file

Once having this .BMP file it is easy to insert it in the invoice.

Here the example

************************************************************************

000900 01 Prog-call PIC x(13) vALUE "CiberPAC".

000902 01 XmlIn-xml PIC X(26). *> VALUE "FACTURA.xml".

000903 01 XmlOut-xml pic X(30). *> VALUE "salida.xml".

000905 01 Archivo-cer pic X(40).

000910 01 Archivo-key pic X(40). *> "\\LIC\\LICENCIA.TXT"

000924 01 PasswordKey pic X(20) VALUE z"CEDROSA-2012".

000929 01 UsuarioCiberSAT pic X(20) VALUE z"CDR8311251R8".

002200 CALL-DLL.

002218 SET DLLNAME TO ENTRY Prog-call *> Apuntador a DLL

002219

002232 CALL "CiberPAC_SignXml"

002233 USING

002234 by REFERENCE XmlIn-xml

002236 by REFERENCE Archivo-cer

002237 by REFERENCE Archivo-key

002238 by REFERENCE PasswordKey

002239 by REFERENCE XmlOut-xml

002240 by REFERENCE UsuarioCiberSAT

002241 by REFERENCE LlaveElectr

002242 by VALUE nFlags *> genera UTF-8

002249 RETURNING ID-STAT

002250 on Exception STOP "ERROR CALL".

002252

002253****************************************************

The program I use is CiberPac.

The entry point is "CiberPAC_SignXml"

The info that the program needs are in XmlIn-xml, etc.

The program delivers several files.

A log file reports if every thing worked.

If yes, I receive a file example A-079362.xml.bmp that is the QR-Code.

This picture is inserted in our invoices with no problem.

If this is usefull to you, but you need more info: Rolf@cedrosa.mx

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

I used NetExpress with .Net for several years. The IDE for this product was Microsoft Visual Studio 200n.

Freundlicher Grüsse

Werner Lanter

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

Hello Rolf,

thanks for your message.

I can't find any Information about CiberPac QR-Code in the Internet. What do I've to look for?

thanks

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

If your using Net Express, just wrap the Managed code in a COM wrapper or make it COM visible. From Net Express you just call the component.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

CIBERPAC is nothing that you can use. I just mentioned it, because I suppose the general structure is simmilar: I deliver some info to the DLL and receive a QR-Code as a *.BMP file that I can manage afterwards and insert where I Need it.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

CIBERPAC is nothing that you can use. I just mentioned it, because I suppose the general structure is simmilar: I deliver some info to the DLL and receive a QR-Code as a *.BMP file that I can manage afterwards and insert where I Need it.

Hi,

we want to provide our bills with the GiroCode-QR-Code. For generating the QR-Code we might use the function "Girocode.dll" in the .Net SDK.

Please see below for an example how to use this:

FormatName[] imageFormats = new FormatName[] { FormatName.BMP,

FormatName.PNG, };

foreach (FormatName fn in imageFormats)

{

string bic = "SOLADES1PFD";

string name = "GiroSolution AG";

string iban = "DE23690516200012345600";

Decimal amountBD = 15.00m;

String purpose = "Zahlen mit Code";

GiroCode.GiroCode giroCode = new GiroCode.GiroCode

{

BIC = bic,

Name = name,

IBAN = iban,

Amount = amountBD,

Purpose = purpose

};

GiroCodeEncoder encoder = new GiroCodeEncoder();

byte[] ba = encoder.encode(giroCode, null, null, fn, 250, 250, null, null);

string fileType = fn.ToString();

string filePath = "C:/temp/girocode." fileType;

File.WriteAllBytes(filePath, ba);

}

Can any one convert this to Net Express Cobol code.

Thanks,

Silke

If you still dont’t have the solution to the QR problem, perhaps this is the solution:

In Internet you will find the program QRENCODE (it is a free program from Kentaro Fukuchi).

After downloading it insert in your NETEXPRESS program the following:

77 run-id pic 9(8) comp-5.

01 CmdLine pic x(256).

STRING 'qrcode -o 'MY-QRCODE.BMP -s 5 " TEXT TO BE CODED” X”00”

DELIMITED BY SIZE INTO cmdline.

002846 move 1 to CmdShow,

call "CBL_EXEC_RUN_UNIT" using CmdLine

by value 130 *>length of cmdline

by reference run-id

by value id-stat *> stack-size

x"01" *> flags

returning CmdStatus.

You will receive a file “MY-QRCODE.BMP” which you can print where you need it.

The TEXT TO BE CODED is all you want to code: "GiroSolution AG DE23690516200012345600" etc.

QRCODE allows a series of Parameters, you will find with the program. -s 5 is the size 5

Rolf@cedrosa.mx

Sign up

Please log in or register:

Welcome to the Rocket Forum!

Please log in or register:

Scanning file for viruses.

This file cannot be downloaded