Para realizar a impressão do DACTEOS de um CT-eOS basta utilizar o método ImprimirCTeOS informando a chave do manifesto, a quantidade de cópias e o nome da impressora. Segue abaixo os detalhes do método e de seu retorno.
Detalhes ImprimirCTeOS
Função: Realiza a impressão do DACTEOS de um CT-eOS diretamente em uma impressora.
Classe: TspdCTeOSClientX
Método: ImprimirCTeOS
Tipo Retorno: spdRetImpressaoX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aChaveCTeOS | Texto | Sim | Chave do CT-eOS a ser impresso. |
aQuantidade | Texto | Sim | Quantidade de cópias. |
aImpressora | Texto | Sim | Nome da impressora configurada no Manager SaaS/EDoc. |
Delphi
procedure TfrmExemplo.btnImprimirCTeOSClick(Sender: TObject);
var
_Retorno: spdRetImpressaoX;
_ChaveCTeOS: string;
begin
if not InputQuery('Chave do Conhecimento', 'Chave do Conhecimento:', _ChaveCTeOS) then exit;
//Esse método faz a impressão do conhecimento através do Componente Manager Client
_Retorno := CTeOS.ImprimirCTeOS(_ChaveCTeOS, '1', '');
//Exibe o retorno no memo
memoRetorno.Clear;
if _Retorno.Status = Sucesso then
memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
end;
C#
private void btnImprimirCTeOS_Click(object sender, EventArgs e)
{
IspdRetImpressaoX Retorno = null;
string _ChaveCTeOS = InputBox("Chave do Conhecimento", "Chave do Conhecimento:", "");
if (_ChaveCTeOS != "")
{
//Esse método faz a impressão de um conhecimento através do Componente Manager Client
Retorno = CTeOS.ImprimirCTeOS(_ChaveCTeOS, "1", "");
//Exibe o retorno no memo
memoRetorno.Text = "";
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = ("Mensagem: " + Retorno.Mensagem);
else
memoRetorno.Text = ("Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem);
}
}
Visual Basic 6
Private Sub btnImprimirCTeOS_Click()
Dim Retorno As spdRetImpressaoX
Dim Chave As String
Chave = InputBox("Chave do Conhecimento:", "Chave do Conhecimento", "")
'Esse método imprime o conhecimento através do Componente Manager Client
Set Retorno = CTeOS.ImprimirCTeOS(Chave, "1", "")
'Exibe o retorno no memo
If Retorno.Status = Sucesso Then
memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + vbCrLf
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
End Sub
Retorno
O tipo spdRetImpressaoX possui os seguintes campos:
Campo | Tipo | Descrição |
Status | Constante | Retorna o status da operação: Sucesso ou Erro. |
NomeExcecao | Texto | Em caso de erro retorna a classe da Exception. |
Mensagem | Texto | Retorna a descrição da resposta do servidor. |
A mensagem traz o resultado da comunicação, em caso de sucesso, a mensagem será "OK operação realizada com sucesso", e no caso de falha, ele terá a mensagem do motivo da falha.
Comentários
0 comentário
Por favor, entre para comentar.