O CFeSatDataset foi criado para facilitar a geração e conversão de lotes de xml.

Através de comandos padrões de Dataset é possível gerar um XML de envio para o SAT.

 

Durante a instalação do componente CFe Sat escolha as seguintes opções:

 

O componente registra automaticamente as (dlls), caso queira fazer manualmente siga o exemplo da documentação CFeSatX.ocx .

 

Agora basta seguir a documentação de sua linguagem de programação para utilizar o ActiveX CFe SAT da Tecnospeed Dataset.

 

Para utilizar em Delphi, de uses na unit : CFeSatDataSetX_TLB.pas localizada no caminho  Fontes\CFeSatDataSetX\TLB, no diretório de instalação.

 

Agora em sua aplicação instancie a classe: TspdCFeSatDataSetX em uma variável ou field.

 

É importante alimentar as propriedades:

  FCFeSatDatasets . VersaoEsquema := 've0006';

  FCFeSatDatasets . ArquivoConversorXml := ' C : \Program Files \TecnoSpeed\C FeSat \Arquivos\Templates\Conversor\C FeSatDataSets . xml ';

  FCFeSatDatasets . DiretorioTemplates := ‘C : \Program Files \TecnoSpeed\C FeSat \Arquivos\Templates\’;

 

É seguro sempre zerar a propriedade LoteCFeSat para limpar o xml gerado anteriormente.

FCFeSatDatasets . LoteCFeSat := '';

 

Após instanciar siga o exemplo abaixo para popula seu datasetX:

  FCFeSatDatasets . VersaoEsquema := 've0006';

  FCFeSatDatasets . DiretorioTemplates := 'C:\Program Files\TecnoSpeed\CFeSat\Arquivos\Templates\';

  FCFeSatDatasets . ArquivoConversorXml := CONVERSOR_XML;

  FCFeSatDatasets . Incluir;

  FCFeSatDatasets . SetCampo ( 'versaoDadosEnt_A03=0.06' );

  FCFeSatDatasets . SetCampo ( 'CNPJ_B11=16716114000172' );

  FCFeSatDatasets . SetCampo ( 'signAC_B12=SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT' );

  FCFeSatDatasets . SetCampo ( 'numeroCaixa_B14=123' );

 

  FCFeSatDatasets . SetCampo ( 'CNPJ_C02=61099008000141' );

  FCFeSatDatasets . SetCampo ( 'IE_C12=111111111111' );

  FCFeSatDatasets . SetCampo ( 'IM_C13=123123' );

  FCFeSatDatasets . SetCampo ( 'cRegTribISSQN_C15=' );

  FCFeSatDatasets . SetCampo ( 'indRatISSQN_C16=N' );

 

  FCFeSatDatasets . SetCampo ( 'CNPJ_E02=10575716000170' );

  FCFeSatDatasets . SetCampo ( 'CPF_E03=' );

  FCFeSatDatasets . SetCampo ( 'xNome_E04=Fazenda' );

 

  FCFeSatDatasets . SetCampo ( 'xLgr_G02=' );

  FCFeSatDatasets . SetCampo ( 'nro_G03=' );

  FCFeSatDatasets . SetCampo ( 'xCpl_G04=' );

  FCFeSatDatasets . SetCampo ( 'xBairro_G05=' );

  FCFeSatDatasets . SetCampo ( 'xMun_G06=' );

  FCFeSatDatasets . SetCampo ( 'UF_G07=' );

 

  FCFeSatDatasets . IncluirItem;

  FCFeSatDatasets . SetCampo ( 'nItem_H02=1' );

  FCFeSatDatasets . SetCampo ( 'cProd_I02=0001' );

  FCFeSatDatasets . SetCampo ( 'cEAN_I03=0012345678905' );

  FCFeSatDatasets . SetCampo ( 'xProd_I04=Trib ICMS Integral Aliquota 10.00% - PIS e COFINS cod 04 - Orig 0' );

  FCFeSatDatasets . SetCampo ( 'NCM_I05=47061000' );

  FCFeSatDatasets . SetCampo ( 'CFOP_I06=5001' );

  FCFeSatDatasets . SetCampo ( 'uCom_I07=kg' );

  FCFeSatDatasets . SetCampo ( 'qCom_I08=1.0000' );

  FCFeSatDatasets . SetCampo ( 'vUnCom_I09=100.00' );

  FCFeSatDatasets . SetCampo ( 'indRegra_I11=A' );

  FCFeSatDatasets . SetCampo ( 'vDesc_I12=' );

  FCFeSatDatasets . SetCampo ( 'vOutro_I13=' );

 

  FCFeSatDatasets . SetCampo ( 'vItem12741_M02=1.00' );

 

  FCFeSatDatasets . SetCampo ( 'Orig_N06=0' );

  FCFeSatDatasets . SetCampo ( 'CST_N07=00' );

  FCFeSatDatasets . SetCampo ( 'pICMS_N08=10.00' );

  FCFeSatDatasets . SetCampo ( 'CSOSN_N10=' );

 

  FCFeSatDatasets . SetCampo ( 'CST_Q07=04' );

  FCFeSatDatasets . SetCampo ( 'vBC_Q08=' );

  FCFeSatDatasets . SetCampo ( 'pPIS_Q09=' );

  FCFeSatDatasets . SetCampo ( 'qBCProd_Q11=' );

  FCFeSatDatasets . SetCampo ( 'vAliqProd_Q12=' );

 

  FCFeSatDatasets . SetCampo ( 'CST_S07=04' );

  FCFeSatDatasets . SetCampo ( 'vBC_S08=' );

  FCFeSatDatasets . SetCampo ( 'pCOFINS_S09=' );

  FCFeSatDatasets . SetCampo ( 'qBCProd_S11=' );

  FCFeSatDatasets . SetCampo ( 'vAliqProd_S12=' );

 

  FCFeSatDatasets . SetCampo ( 'vBC_T02=' );

  FCFeSatDatasets . SetCampo ( 'pCOFINS_T03=' );

  FCFeSatDatasets . SetCampo ( 'qBCProd_T04=' );

  FCFeSatDatasets . SetCampo ( 'vAliqProd_T05=' );

 

  FCFeSatDatasets . SetCampo ( 'vDeducISSQN_U02=' );

  FCFeSatDatasets . SetCampo ( 'vAliq_U04=' );

  FCFeSatDatasets . SetCampo ( 'cMunFG_U06=' );

  FCFeSatDatasets . SetCampo ( 'cListServ_U07=' );

  FCFeSatDatasets . SetCampo ( 'cServTribMun_U08=' );

  FCFeSatDatasets . SetCampo ( 'cNatOp_U09=' );

  FCFeSatDatasets . SetCampo ( 'indIncFisc_U10=' );

 

  FCFeSatDatasets . SetCampo ( 'infAdProd_V01=' );

  FCFeSatDatasets . SalvarItem;

 

  FCFeSatDatasets . IncluirParte ( 'PAGAMENTO' );

  FCFeSatDatasets . SetCampo ( 'cMP_WA03=01' );

  FCFeSatDatasets . SetCampo ( 'vMP_WA04=100.00' );

  FCFeSatDatasets . SetCampo ( 'cAdmC_WA05=' );

  FCFeSatDatasets . SalvarParte ( 'PAGAMENTO' );

 

  FCFeSatDatasets . SetCampo ( 'vDescSubTot_W20=' );

  FCFeSatDatasets . SetCampo ( 'vAcresSubtot_W21=' );

  FCFeSatDatasets . SetCampo ( 'vCFeLei12741_W22=' );

 

  FCFeSatDatasets . SetCampo ( 'infCpl_Z02=' );

  FCFeSatDatasets . Salvar;

 

Após popular e salvar seu dataset, a propriedade LoteCFeSat estará populada com o XML:

FCFeSatDatasets.LoteCFeSat;

 

Pronto seu xml está gerado e pronto para o Envio, claro que os campos devem ser preenchidos corretamente para evitar uma rejeição do equipamento S@T.

 

 

Sumário

 

Arquivos para download