Fórum Imprimindo cupom na SWEDA - URGENTE!!!! #180289

cECF := VenderItem( CodBarra,         //  Código EAN-13
                      rxQtde.Value,     // Qtde c/ decimais
                      nValor,           //  Valor com decimais
                      cDescricao,       //Descrição c/ 24 pos
                      cICMS );          //  Código do ICMS

if nDLL=0 then
  begin
P:= PChar( cECF );// Transforma em formato do ECF
  ECFWrite( P );// Manda para o ECF
  ECFRead( Status, 1024 );// Obtem resultado do ECF
  end else
  begin
    StrPCopy(Comando, cECF);
    Resposta :=EnviaComando(Comando); //LANÇAR ITEM DE VENDA
    StrPCopy(Status, Resposta);
  end;