dadosVenda não foi informado. Me ajudem!

[Willian Marques]

Galera, estou iniciando com o SAT que no meu sistema, mas estou me deparando com o seguinte erro  que não consigo solucionar: 'dadosVenda' não foi informado.

Estou trabalhando com o SAT da Tanca para desenvolvedores, ele ja esta ativado, está operacional, tudo certinho.

Estou usando essa rotina:
  frmVenda.ACBrSAT1.CFe.IdentarXML := true;
  frmVenda.ACBrSAT1.CFe.TamanhoIdentacao := 3;

  // Trasnferindo Informações de Config para o CFe //

  frmVenda.ACBrSAT1.InicializaCFe;

  // Montando uma Venda //
  with frmVenda.ACBrSAT1.CFe do
  begin
    ide.numeroCaixa := 1;

    Dest.CNPJCPF := frmVenda.qPessoacpfcnpj.Value;
    Dest.xNome := frmVenda.qPessoanome.Value;

    Entrega.xLgr := frmVenda.qPessoaendereco.Value;
    Entrega.nro := frmVenda.qPessoanumero.AsString;
    Entrega.xCpl := '';
    Entrega.xBairro := frmVenda.qPessoabairro.Value;
    Entrega.xMun := frmVenda.qPessoanomecidade.Value;
    Entrega.UF := frmVenda.qPessoauf.Value;

    TotalImpostoAprox := 0;

    while not frmVenda.qProdutoVenda.Eof do
    begin
      frmVenda.qProduto.Locate('codigoproduto',
        frmVenda.qProdutoVendacodigoproduto.AsString, []);
      with Det.Add do
      begin
        nItem := numeroItem;
        // Prod.cProd := 'ACBR001';
        // Prod.cEAN := '6291041500213';
        Prod.xProd := frmVenda.qProdutoVendadescricaovenda.Value;
        Prod.NCM := frmVenda.qProdutocodigoncm.Value;

        frmVenda.fabricado := frmVenda.qProdutofabricado.Value;
        DefineBuscaCFOP(frmVenda.fabricado);
        Prod.cfop := frmVenda.cfop;

        Prod.uCom := frmVenda.qProdutounidade.Value;
        Prod.qCom := frmVenda.qProdutoVendaquantidade.Value;
        Prod.vUnCom := frmVenda.qProdutoVendavalorunitario.Value;
        Prod.indRegra := irTruncamento;
        Prod.vDesc := frmVenda.qProdutoVendavalordescontounitario.Value;

        with Prod.obsFiscoDet.Add do
        begin
          xCampoDet := 'campo';
          xTextoDet := 'texto';
        end;

        TotalItem := RoundABNT((Prod.qCom * Prod.vUnCom) + Prod.vOutro -
          Prod.vDesc, -2);

        TotalGeral := TotalGeral + TotalItem;
        Imposto.vItem12741 := TotalItem * 0.12;

        Imposto.ICMS.orig := oeNacional;
        if (frmVenda.qProdutosubstituicaotributaria.Value = 1) then
        begin
          Imposto.ICMS.CSOSN := csosn500;
        end
        else
        begin
          Imposto.ICMS.CSOSN := csosn102;
        end;
        Imposto.ICMS.pICMS := 18;

        Imposto.PIS.CST := pis01;
        Imposto.PIS.vBC := TotalItem;
        Imposto.PIS.pPIS := 0.0065;

        Imposto.COFINS.CST := cof01;
        Imposto.COFINS.vBC := TotalItem;
        Imposto.COFINS.pCOFINS := 0.0065;
        //
        // Imposto.COFINSST.vBC := 87206.46;
        // Imposto.COFINSST.pCOFINS := 1.8457;

        infAdProd := 'Informacoes adicionais';

      end;
      numeroItem := numeroItem + 1;
      frmVenda.qProdutoVenda.Next;
    end;

    Total.DescAcrEntr.vDescSubtot := 0;
    Total.vCFeLei12741 := TotalGeral;

    Pagto1 := RoundABNT(TotalGeral / 2, -2);
    with Pagto.Add do
    begin
      cMP := mpCartaodeCredito;
      vMP := Pagto1;
    end;

    with Pagto.Add do
    begin
      cMP := mpDinheiro;
      vMP := TotalGeral - Pagto1 + 100;
    end;

    InfAdic.infCpl :=
      'Acesse www.projetoacbr.com.br para obter mais;informações sobre o componente ACBrSAT;'
      + 'Precisa de um PAF-ECF homologado?;Conheça o DJPDV - www.djpdv.com.br';
  end;

  ACBrSAT1.CFe.GerarXML(true); // True = Gera apenas as TAGs da aplicação
  ACBrSAT1.EnviarDadosVenda(memoResposta.Text);
  PrepararImpressao;
  ACBrSAT1.ImprimirExtratoResumido;

  { ACBrSAT1.ImprimirExtrato;
    ACBrSAT1.ImprimirExtratoResumido; }
  memoResposta.Lines.Add('Venda Gerada');

 

As configurações coloquei direto no componente, não sei se estou deixando de fazer algo, então por favor, se puderem me ajudar, sou novo com ACBR.

[Willian Marques]

Resolvidooo!!!! Obrigado.

[Juliomar Marchetti]

Poderia descrever como resolveu?