Capturando o Subtotal do Cupom Fiscal

Já imaginou não ter que calcular o valor das vendas de todos os itens com descontos e acréscimos por itens, não ter que ratear descontos no Cupom Fiscal entre os itens e ficar calculando alíquotas, seria bacana não é?

Bom, existe uma função na DarumaFramework.dll que é capaz de nos devolver exatamente o valor final do cupom fiscal já com todos os cálculos necessários.
 Esta função é a rCFSubTotal_ECF_Daruma.

Esta função nos devolve em uma variável por referência o Subtotal do Cupom Fiscal atual.

 
Utilização no C (Sharp) 

//Declaração 

        [DllImport("DarumaFrameWork.dll")]

        public static extern int rCFSubTotal_ECF_Daruma(StringBuilder pszValor);

private void BT_Tef_Click(object sender, EventArgs e)

        {

            StringBuilder Str_SubTotal = new StringBuilder(12);

            Declaracoes.iRetorno = Declaracoes.iCFAbrirPadrao_ECF_Daruma();

            Declaracoes.iRetorno = Declaracoes.iCFVenderResumido_ECF_Daruma("II", "10,00", "Bolacha", "789567893456");

            Declaracoes.iRetorno = Declaracoes.iCFTotalizarCupomPadrao_ECF_Daruma();

            //Após a totatalização já é possivel executar a função para obter o Subtotal.

            Declaracoes.iRetorno = Declaracoes.rCFSubTotal_ECF_Daruma(Str_SubTotal);

            //Acima capturamos o valor do subtotal retornado na variavel Str_SubTotal.

            Declaracoes.iRetorno = Declaracoes.iCFEfetuarPagamento_ECF_Daruma("Dinheiro", Str_SubTotal.ToString(), "");

            //Na função iCFEfetuarPagamento_ECF_Daruma definimos o pagamento dinheiro e o valor do cupom fiscal armezenado na variavel Str_SubTotal.

            Declaracoes.iRetorno = Declaracoes.iCFEncerrarPadrao_ECF_Daruma();

                }

Modo debug


Utilização no VisualBasic 6 

Public Declare Function rCFSubTotal_ECF_Daruma Lib "DarumaFramework.dll" (ByVal pszValor As String) As Integer

Private Sub BT_Enviar_Click()

     iRetorno = iCFAbrirPadrao_ECF_Daruma()

     iRetorno = iCFVenderResumido_ECF_Daruma("F1", "10,00", "Bolacha", "789567893456")

    iRetorno = iCFTotalizarCupomPadrao_ECF_Daruma()

    iRetorno = rCFSubTotal_ECF_Daruma(Str_SubTotal)

    iRetorno = iCFEfetuarPagamento_ECF_Daruma("Dinheiro", Str_SubTotal, "")

    iRetorno = iCFEncerrarPadrao_ECF_Daruma()