implementação vb6 sat do zero

[edsonmarques]

boa tarde.

Quero uma copia de exemplo em vb6 para utilizar o componente da acbr do sat são paulo, 

como alimentar as propriedades de cada passo abertura do cupom, item de venda, recebimento e fechamento do cupom, cancelamento, reduzao z e leitura x. e como anexar as dll do componente.

quero migrar meus projetos .

[BigWings]

https://projetoacbr.com.br/acbrlib/

Download das DLLs ACBrLibSAT já compiladas, para usuários SAC:

Demo ACBrLibSAT em VB6:

https://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/VB6/Sat

Manual:

https://acbr.sourceforge.io/ACBrLib/ACBrLib.html

 

 

[Rafael Dias]

Os exemplos de ini para usar você encontra no link abaixo

https://acbr.sourceforge.io/ACBrLib/ExemplodeINI3.html

Neste outro link você encontra as informações de configuração.

https://acbr.sourceforge.io/ACBrLib/ConfiguracoesdaBiblioteca17.html

E no svn você encontra um exemplo de como utilizar a dll em VB6, lembre-se de baixar toda a pasta de exemplo pois tem arquivos compartilhados entre os projetos, e usar a dll em StdCall e em x86 pois o vb6 não suporta Cdecl.

http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/VB6/

 

[edsonmarques]

tem exemplo em codigo vb6 para geração mesmo que com dados ficticios para me guiar com todas as tags pra criação do ini, assim o exemolo ficaria completo como uma função etc

achei que fosse alimentando tags pra elaboração dos eventos do cupom, abertura, itens de venda, recebimento, fechamento.

[edsonmarques]

pode postar se tiver um exemplo completo e uma dll que seja demo pra eu ver como funciona

[Juliomar Marchetti]

Nesses locais indicados tem os exemplos.

[edsonmarques]

algo assim

whit produto

produto.ean1 = "xxx"

produto.nome = "xxxxxxxxx"

end whit

ou assim abaixo

 

 

 

      Codigo = TiraAcentos(Itens1![Codigo do produtos])
                EAN13 = TiraAcentos(Itens1![Codigo do produtos])
                Descricao = TiraAcentos(Prod![Nome do produto])
                indiceDepartamento = "01"
                Aliquota = Prod!Alicota
                unidadeMedida = Prod!Unidade
                TipoQuantidade = "I"
                casasDecimaisQuantidade = "2"
                Quantidade = Format(Itens1!Quantidade, "#####0.00")
                casasDecimaisValorUnitario = "2"
                ValorUnitario = Format(Itens1![Valor unitário], "#####0.00")
                TipoAcrescimoDesconto = "$"
                valorAcrescimo = "00,00"
                valorDesconto = "00,00"
                tipoCalculo = "A"
                Ncm = Prod!Ncm
                CFOP = IIf(Prod!Alicota = "FF", "5405", "5102")
                informacoesAdicionais = "OBRIGADO POR COMPRAR NA PROPADEIRO"
                CST_ICMS = "00"
                origemProduto = "0"
                itemListaServico = ""
                codigoISS = ""
                naturezaOperacaoISS = ""
                indicadorIncentivoISS = ""
                codigoIBGE = ""
                CSOSN = IIf(Prod!Alicota = "FF", "500", "102")
                baseCalculoValorRetido = ""
                ICMS_ValorRetido = ""
                modoBaseCalculo = ""
                percentualReducaoBaseCalculo = ""
                ICMS_ST_ModoBaseCalculo = ""
                ICMS_ST_PercentualMargemAdicionado = ""
                ICMS_ST_PercentualReducaoBaseCalculo = ""
                ICMS_ST_ValorReducaoBaseCalculo = ""
                ICMS_ST_Aliquota = ""
                ICMS_ST_Valor = ""
                valorDesoneracaoICMS = ""
                motivoDesoneracaoICMS = ""
                aliquotaCalculoCredito = ""
                creditoICMSSimples = ""
                impostosIncidentes = Format(Itens1![Total dolar], "#####0.00")
                somatrib = somatrib + Itens1![Total dolar]
                CST_PIS = "01"
                PIS_BaseCalculo = "0,00"
                PIS_Aliquota = "0,00"
                PIS_Valor = "0,00"
                PIS_QuantidadeVendida = ""
                PIS_ValorAliquotaReais = ""
                CST_COFINS = "01"
                COFINS_BaseCalculo = "0,00"
                COFINS_Aliquota = "0,00"
                COFINS_Valor = "0,00"
                COFINS_QuantidadeVendida = ""
                COFINS_ValorAliquotaReais = ""
                CEST = ""
        End If
' Opção 1 para concatenar variávies

sParametros = "{" & Chr(34) & "codigo" & Chr(34) & ":" & Chr(34) & Codigo & Chr(34) & "," & Chr(34) & "EAN13" & Chr(34) & ":" & Chr(34) & EAN13 & Chr(34) & "," & Chr(34) & "descricao" & Chr(34) & ":" & Chr(34) & Descricao & Chr(34) & "," & Chr(34) & "indiceDepartamento" & Chr(34) & ":" & Chr(34) & indiceDepartamento & Chr(34) & "," _
& Chr(34) & "aliquota" & Chr(34) & ":" & Chr(34) & Aliquota & Chr(34) & "," & Chr(34) & "unidadeMedida" & Chr(34) & ":" & Chr(34) & unidadeMedida & Chr(34) & "," & Chr(34) & "tipoQuantidade" & Chr(34) & ":" & Chr(34) & TipoQuantidade & Chr(34) & "," & Chr(34) & "casasDecimaisQuantidade" & Chr(34) & ":" & Chr(34) & casasDecimaisQuantidade & Chr(34) & "," _
& Chr(34) & "quantidade" & Chr(34) & ":" & Chr(34) & Quantidade & Chr(34) & "," & Chr(34) & "casasDecimaisValorUnitario" & Chr(34) & ":" & Chr(34) & casasDecimaisValorUnitario & Chr(34) & "," & Chr(34) & "valorUnitario" & Chr(34) & ":" & Chr(34) & ValorUnitario & Chr(34) & "," & Chr(34) & "tipoAcrescimoDesconto" & Chr(34) & ":" & Chr(34) & TipoAcrescimoDesconto & Chr(34) & "," _
& Chr(34) & "valorAcrescimo" & Chr(34) & ":" & Chr(34) & valorAcrescimo & Chr(34) & "," & Chr(34) & "valorDesconto" & Chr(34) & ":" & Chr(34) & valorDesconto & Chr(34) & "," & Chr(34) & "tipoCalculo" & Chr(34) & ":" & Chr(34) & tipoCalculo & Chr(34) & "," & Chr(34) & "NCM" & Chr(34) & ":" & Chr(34) & Ncm & Chr(34) & "," & Chr(34) & "CFOP" & Chr(34) & ":" _
& Chr(34) & CFOP & Chr(34) & "," & Chr(34) & "informacoesAdicionais" & Chr(34) & ":" & Chr(34) & informacoesAdicionais & Chr(34) & "," & Chr(34) & "CST_ICMS" & Chr(34) & ":" & Chr(34) & CST_ICMS & Chr(34) & "," & Chr(34) & "origemProduto" & Chr(34) & ":" & Chr(34) & origemProduto & Chr(34) & "," & Chr(34) & "itemListaServico" & Chr(34) & ":" _
& Chr(34) & itemListaServico & Chr(34) & "," & Chr(34) & "codigoISS" & Chr(34) & ":" & Chr(34) & codigoISS & Chr(34) & "," & Chr(34) & "naturezaOperacaoISS" & Chr(34) & ":" & Chr(34) & naturezaOperacaoISS & Chr(34) & "," & Chr(34) & "indicadorIncentivoISS" & Chr(34) & ":" & Chr(34) & indicadorIncentivoISS & Chr(34) & "," & Chr(34) & "codigoIBGE" & Chr(34) & ":" _
& Chr(34) & codigoIBGE & Chr(34) & "," & Chr(34) & "CSOSN" & Chr(34) & ":" & Chr(34) & CSOSN & Chr(34) & "," & Chr(34) & "baseCalculoValorRetido" & Chr(34) & ":" & Chr(34) & baseCalculoValorRetido & Chr(34) & "," & Chr(34) & "ICMS_ValorRetido" & Chr(34) & ":" & Chr(34) & ICMS_ValorRetido & Chr(34) & "," & Chr(34) & "modoBaseCalculo" & Chr(34) & ":" & Chr(34) & modoBaseCalculo & Chr(34) & "," _
& Chr(34) & "percentualReducaoBaseCalculo" & Chr(34) & ":" & Chr(34) & percentualReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_ModoBaseCalculo" & Chr(34) & ":" & Chr(34) & ICMS_ST_ModoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_PercentualMargemAdicionado" & Chr(34) & ":" & Chr(34) & ICMS_ST_PercentualMargemAdicionado & Chr(34) & "," & Chr(34) & "ICMS_ST_PercentualReducaoBaseCalculo" & Chr(34) & ":" _
& Chr(34) & ICMS_ST_PercentualReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_ValorReducaoBaseCalculo" & Chr(34) & ":" & Chr(34) & ICMS_ST_ValorReducaoBaseCalculo & Chr(34) & "," & Chr(34) & "ICMS_ST_Aliquota" & Chr(34) & ":" & Chr(34) & ICMS_ST_Aliquota & Chr(34) & "," & Chr(34) & "ICMS_ST_Valor" & Chr(34) & ":" & Chr(34) & ICMS_ST_Valor & Chr(34) & "," & Chr(34) & "valorDesoneracaoICMS" & Chr(34) & ":" _
& Chr(34) & valorDesoneracaoICMS & Chr(34) & "," & Chr(34) & "motivoDesoneracaoICMS" & Chr(34) & ":" & Chr(34) & motivoDesoneracaoICMS & Chr(34) & "," & Chr(34) & "aliquotaCalculoCredito" & Chr(34) & ":" & Chr(34) & aliquotaCalculoCredito & Chr(34) & "," & Chr(34) & "creditoICMSSimples" & Chr(34) & ":" & Chr(34) & creditoICMSSimples & Chr(34) & "," & Chr(34) & "impostosIncidentes" & Chr(34) & ":" & Chr(34) & impostosIncidentes & Chr(34) & "," _
& Chr(34) & "CST_PIS" & Chr(34) & ":" & Chr(34) & CST_PIS & Chr(34) & "," & Chr(34) & "PIS_BaseCalculo" & Chr(34) & ":" & Chr(34) & PIS_BaseCalculo & Chr(34) & "," & Chr(34) & "PIS_Aliquota" & Chr(34) & ":" & Chr(34) & PIS_Aliquota & Chr(34) & "," & Chr(34) & "PIS_Valor" & Chr(34) & ":" & Chr(34) & PIS_Valor & Chr(34) & "," & Chr(34) & "PIS_QuantidadeVendida" & Chr(34) & ":" & Chr(34) & PIS_QuantidadeVendida & Chr(34) & "," _
& Chr(34) & "PIS_ValorAliquotaReais" & Chr(34) & ":" & Chr(34) & PIS_ValorAliquotaReais & Chr(34) & "," & Chr(34) & "CST_COFINS" & Chr(34) & ":" & Chr(34) & CST_COFINS & Chr(34) & "," & Chr(34) & "COFINS_BaseCalculo" & Chr(34) & ":" & Chr(34) & COFINS_BaseCalculo & Chr(34) & "," & Chr(34) & "COFINS_Aliquota" & Chr(34) & ":" & Chr(34) & COFINS_Aliquota & Chr(34) & "," & Chr(34) & "COFINS_Valor" & Chr(34) & ":" & Chr(34) & COFINS_Valor & Chr(34) & "," _
& Chr(34) & "COFINS_QuantidadeVendida" & Chr(34) & ":" & Chr(34) & COFINS_QuantidadeVendida & Chr(34) & "," _
& Chr(34) & "COFINS_ValorAliquotaReais" & Chr(34) & ":" & Chr(34) & COFINS_ValorAliquotaReais & Chr(34) & "," & Chr(34) & "CEST" & Chr(34) & ":" & Chr(34) & CEST & Chr(34) & "}" & Chr(13) & Chr(10)
 

eu vou ter que gerar os ini na unha pra let e enviar no exemplo a cima

 

[edsonmarques]

eu vou ter que gerar os ini na unha pra ler e enviar no exemplo a cima, se tiver tem exemplo do layout 0.08

 

[Italo Giurizzato Junior]

Boa tarde Edson,

Pelo que me recordo, não existe muita diferença entre a versão 0.08 e a 0.07

Você pode pegar o exemplo que mostra como gerar o arquivo INI com os dados da venda e tentar enviar para o SAT com ele configurado para a versão 0.08

[Juliomar Marchetti]

vamos continuar somente em um tópico