Um pouquinho de sql…

Private Sub LocalizarTodosCampos() ‘O código abaixo, localiza o critério em qualquer campo do formulário ‘Cortesia de Alexandre Minato ‘Permitida a distribuição / utilização desde que mantido os créditos If Me.txtFiltro = “” Then Exit Sub Dim sql As String sql = “SELECT * FROM tblCadastro ” Dim contador As Byte contador = 0 If Not… Read More »

Impressão do DANFe

Alguma vez você já precisou imprimir ou re-imprimir um Documento Auxiliar de Nota Fiscal Eletrônica – DANFe? É claro que você pode entrar no seu sistema ERP e solicitar uma re-impressão… mas e se você não estiver na sua empresa? E se o DANFe foi emitido por um fornecedor? Dois projetos interessantes e gratuitos estão… Read More »

Popular base de dados… sábados…

Function Popular_Base(strAno As String, scont As Integer) Dim dtini As Date, dtFim As Date, strSql As String, icont As Integer, sdia dtini = CVDate(“1/” & “01” & “/” & strAno) dtFim = DateAdd(“M”, 12, dtini) – 1 icont = scont + 1 Do While dtFim >= dtini sdia = Weekday(dtini) If sdia = 7 Then… Read More »

SPED Pis Cofins

A EFD-PIS/Cofins trata-se de um arquivo digital instituído no Sistema Publico de Escrituração Digital – SPED, a ser utilizado pelas pessoas jurídicas de direito privado na escrituração da Contribuição para o PIS/Pasep e da Cofins, nos regimes de apuração não-cumulativo e/ou cumulativo, com base no conjunto de documentos e operações representativos das receitas auferidas, bem… Read More »