Diese Seite mit anderen teilen ...

Informationen zum Thema:
Forum:
WinDev Forum
Beiträge im Thema:
3
Erster Beitrag:
vor 4 Jahren, 7 Monaten
Letzter Beitrag:
vor 4 Jahren, 7 Monaten
Beteiligte Autoren:
Thomas Brauner, Henri Parianos

List & Label and Service

Startbeitrag von Henri Parianos am 07.06.2013 10:42

Hi

I have a problem with List & Label.

Is enybody here who use List & Label to create labels, invoices etc.

regds

Antworten:

Re: List & Label and Service

Hi Henri,

i use L&L 18 under .net.
What's your problem?

Thomas

von Thomas Brauner - am 07.06.2013 16:56

Re: List & Label and Service

Hi Henri,

here a code-snip example of using L&L:

//----------------------------------------------------------------------------------
WHEN EXCEPTION IN
LL is ListLabel
DO
Warning(“Error starting L&L!”,ExtractString(ExceptionInfo(),3,CR))
END


stConnection is ST_CONNECTION = GetStConnection()
sConnectionString is string

sConnectionString += "Server=" + stConnection.sServer
sConnectionString += ";dataBase=" + stConnection.sDatabase
IF (NoSpace(stConnection.sUser)="") THEN
sConnectionString += ";Trusted_Connection=True"
ELSE
sConnectionString += “;user=” + stConnection.sUser
sConnectionString += “;Password=” + stConnection.sPasswort
END
connSQL is SqlConnection(sConnectionString)

sSqlCommand is string = "Select * from whatelse"

WHEN EXCEPTION IN
command is SqlCommand(sSqlCommand, connSQL)
command.CommandType = CommandType.Text;
connSQL.Open()
DO
Warning(“Problem with server connection!”,sConnectionString)
END

//------------------- Mit einer DataTable wird nun die Datenbank abgefragt
WHEN EXCEPTION IN
SqlAusgabe is dynamic DataTable
DataAdapter is dynamic SqlDataAdapter

HourGlass(True)
SqlAusgabe = new DataTable("MYTABLENAME")
DataAdapter = new SqlDataAdapter(command)
DataAdapter:Fillschema(SqlAusgabe, SchemaType.Mapped)
DataAdapter:Fill(SqlAusgabe)
connSQL.Close()
HourGlass(False)
provider is AdoDataProvider(SqlAusgabe)
DO
RETURN
END

LL:DataSource = provider

//LL:AutoDestination = LlPrintMode.PreviewControl
LL:AutoProjectType = LlProject.List | LlProject.FileAlsoNew
LL:AutoProjectFile = fExeDir() + "sample.lst"
//ll:AutoShowPrintOptions = False
LL.AutoShowSelectFile = False;
LL:IncrementalPreview =False
LL:LicensingInfo = “*******”

WHEN EXCEPTION IN
LL:Print()
DO

Warning(ExtractString(ExceptionInfo(),3,CR))
END



Thomas

von Thomas Brauner - am 07.06.2013 17:55
Zur Information:
MySnip.de hat keinen Einfluss auf die Inhalte der Beiträge. Bitte kontaktieren Sie den Administrator des Forums bei Problemen oder Löschforderungen über die Kontaktseite.
Falls die Kontaktaufnahme mit dem Administrator des Forums fehlschlägt, kontaktieren Sie uns bitte über die in unserem Impressum angegebenen Daten.