Bematech_FI_AbreBilhetePassagemMFD

Bematech_FI_AbreBilhetePassagemMFD

Abre o cupom na impressora bilhete de passagem MFD.

Parâmetros:

Embarque: STRING com até 40 caracteres com o local de embarque.

Destino: STRING com até 40 caracteres com o local de destino.

Linha: STRING com até 40 caracteres com o nome da linha (Ex. Curitiba x São Paulo &endash; Executivo)

Agencia: STRING com até 40 caracteres com o nome da agência.

Data: STRING com a data de embarque no formato ddmmaa, dd/mm/aa, ddmmaaaa ou dd/mm/aaaa.

Hora: STRING com a hora do embarque no formato hhmmss ou hh:mm:ss.

Poltrona: STRING com até 2 caracteres com o número da poltrona.

Plataforma: STRING com até 3 caracteres com o número da plataforma.

TipoPassagem: STRING com:

0 (zero) - passagem Rodoviário Intermunicipal;

1 (um) - passagem Ferroviário Intermunicipal;

2 (dois) - passagem Aquaviário Intermunicipal;

3 (três) - passagem Rodoviário Interestadual;

4 (quatro) - passagem Ferroviário Interestadual;

5 (cinco) - passagem Aquaviário Interestadual;

6 (seis) - passagem Rodoviário Internacional;

7 (sete) - passagem Ferroviário Internacional ou;

8 (oito) - passagem Aquaviário Internacional.

RG: STRING até 29 caracteres com o RG do cliente.

Nome: STRING até 30 caracteres com o nome do cliente.

Endereco: STRING até 80 caracteres com o endereço do cliente.

UF: STRING com 2 caracteres com a UF do estado de destino.

Retornos da Função (INTEIRO):

0 - Erro de comunicação.

1 - Ok.

-2 - Parâmetro inválido.

-4 - Arquivo ini não encontrado ou parâmetro inválido para o nome da porta.

-5 - Erro ao abrir a porta de comunicação.

-27 - Status da impressora diferente de 6,0,0,0 (Ack, St1, St2 e St3).

Observações:

• Para o registro de itens, utilize a função Bematech_FI_VendeItem.

• O primeiro item a ser vendido deve possuir a descrição "TARIFA".

Exemplo:

' Exemplo em Visual Basic

iRetorno = Bematech_FI_AbreBilhetePassagemMFD("Curitiba", "São Paulo", "Curitiba/São Paulo - Leito", "Itapemirim", "22/04/02", "11:30:00", "15", "D10", "3", "5.021.659-66", "Fulano de Tal", "Rua sem Fim, 1000", "SP")

// Exemplo em Delphi

cEmbarque     := 'Curitiba';

cDestino      := 'São Paulo';

cLinha        := 'Curitiba/São Paulo - Leito';

cAgencia      := 'Itapemirim';

cData         := '22/04/02';

cHora         := '11:30:00';

cPoltrona     := '15';

cPlataforma   := 'D10';

cTipoPassagem := '3';

cRG           := '5.021.659-66';

cNome         := 'Fulado de Tal';

cEndereco     := 'Rua sem Fim, 1000';

cUFDestino    := 'SP';

iRetorno := Bematech_FI_AbreBilhetePassagemMFD( pchar( cEmbarque ), pchar( cDestino ), pchar( cLinha ), pchar( cAgencia ), pchar( cData ), pchar( cHora ), pchar( cPoltrona ), pchar( cPlataforma ), pchar( cTipoPassagem ), pchar( cRG ), pchar( cNome ), pchar( cEndereco ), pchar( cUFDestino ) );