Clipper On Line • Ver Tópico - sped Fiscal e Pis/cofins com 65 (consumidor)

sped Fiscal e Pis/cofins com 65 (consumidor)

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor dbdc5554 » 18 Mai 2017 16:11

BOA tarde

alguem gera ?

poderia disponibilizar um txt com os registro da NFE CONSUMIDOR ?

cpaivasistemas@gmail.com

desde ja agradeço

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor fladimir » 18 Mai 2017 19:10

Olá Paiva eu fiz o SPED da NFCe mas ICMS/IPI não o PIS/COFINS, serve?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor dbdc5554 » 18 Mai 2017 20:47

Fladimir Boa noite

CLARO que serve.

? vc nao faz PIS/cofins é isso ? posso te passar faço ele também,
na realidade e´o mesmo prg ai tenho uma variavel tipo pis_cofins = Fiscal ou Pis (rs)

são MUITOS parecidos na REALIDADE eram UM só depois parece que brigaram e separaram kkk

e sobra para nos

fico no aguardo

Muito ob

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor JoséQuintas » 18 Mai 2017 22:51

Eu fiz em 2011, até hoje só eu usei pra teste, por isso nunca mais atualizei... rs

/*
PGOV0030 - SPED PIS/COFINS
2011.09.30 - José Quintas
...
   mTipoSped := "P"
   mPerfil   := "A"

   @ 5, 5 SAY "Data Inicial......:" GET mDatIni
   @ 6, 5 SAY "Data Final........:" GET mDatFim
   @ 7, 5 SAY "Sped Fiscal ou Pis:" GET mTipoSped PICTURE "!A" VALID mTipoSped $ "FP"
   @ 8, 5 SAY "Perfil............:" GET mPerfil PICTURE "!A" VALID mPerfil $ "ABC"
   @ 10, 5 SAY "Temporariamente retirado bloco C110 (Pis/Cof) ref informações complementares"
   ...
   IF mTipoSped == "P"
      mLayout := "003" // 2.01A
      mFileSped := "EXPORTA\SPPC" + SubStr( DToS( mDatFim ), 3, 4 ) + ".TXT"
   ELSE
      mLayOut := "006"
      mFileSped := "EXPORTA\SPFI" + SubStr( DToS( mDatFim ), 3, 4 ) + ".TXT"
   ENDIF
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor JoséQuintas » 18 Mai 2017 23:00

Tem pequenas partes do fonte postadas, que mostram bem a diferença ( na época ).

http://www.pctoledo.com.br/forum/viewtopic.php?f=20&t=13752&hilit=sped
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor fladimir » 19 Mai 2017 01:18

Basicamente para NFCe precisa somente C100 e C190 (Perfil C q fiz, não verifiquei o Perfil A)

Segue trecho dos 2 registros

//------------------------------------------------------------------------------
* C100 - Notas Fiscais ao Consumidor Emitidas

procedure _reg_C100_NFCe 
   local cLinha
   
   //-- Notas Fiscais Avulsas
   USI('Vendas', 'Vendas')      && Cabe‡aho
   USI('Itens',  'Itens')   && Itens

   //------------------------------------------------------------------------
   while Vendas->(!EOF())
      if Vendas->DtNFC_Emi >= dtINI .and. Vendas->DtNFC_Emi <= dtFIM .and. !empty(Vendas->Status)
         ('AUTORIZADA' $ Vendas->Status .or. 'CANCELADA'  $ Vendas->Status .or. 'INUTILIZAD' $ Vendas->Status)

         cod_mod      := '65'
         ser          := alltrim(Vendas->SerieNFCe)
         ind_oper     :=  '1'  //-- 0 Entrada 1 Saida
         vl_doc       := NumericoSPED( Vendas->Tot_Ven  )
         vl_merc      := NumericoSPED( Vendas->Tot_Ven  )
         chv_nfe      := ALLTRIM(NFe_Aux_PegaChave(Vendas->Chave))
         cod_part     := '' //if( LEN(ALLTRIM(Vendas->CODCLI)) >6, 'C', 'F') + strzero(val(Vendas->CodCli),8)
         num_doc      := Vendas->NrNFCe
         dt_doc       := Dt2SPED(Vendas->DtNFC_Emi)
         dt_e_s       := Dt2SPED(Vendas->DtNFC_Emi)
         ind_frt      := '0'
         ind_emit     := '0'  //-- Emissao Pr¢pria
         cod_sit      := '00'
         ind_pgto     := '0'  //-- 0 Pgto a vista 1 Prazo 2 Outros
         vl_desc      := NumericoSPED( Vendas->DescFinal  ) //--"0,00"

         vl_frt       := NumericoSPED( 0  )
         vl_seg       := NumericoSPED( 0  )
         vl_out_da    := NumericoSPED( 0  )
         vl_abat_nt   := NumericoSPED( 0  )

         vl_bc_icms   := ''//NumericoSPED( 0  )
         vl_icms      := ''//NumericoSPED( 0  )
         vl_bc_icmsst := ''//NumericoSPED( 0  )
         vl_icms_st   := ''//NumericoSPED( 0  )
         vl_ipi       := ''//NumericoSPED( 0  )
         vl_pis       := ''//NumericoSPED( 0  )
         vl_cofins    := ''//NumericoSPED( 0  )
         vl_pis_st    := ''//NumericoSPED( 0  )
         vl_cofins_st := ''//NumericoSPED( 0  )

         cod_sit := PegaSitDoc(2)
         if Cod_Sit == '05' .or. ; && Inutilizado informar apenas campos Cod_Sit, Ind_oper e CodMod
            Cod_Sit == '02'        && Cancelada   //Cod_Sit == '03' .or. ; && Extemporaneo Cancelado   // Cod_Sit == '04' && Denegada

            cLinha = SEP + 'C100' + SEP + ;
                         ind_oper + SEP + ;
                         ind_emit + SEP + ;
                               '' + SEP + ;
                          cod_mod + SEP + ;
                          cod_sit + SEP + ;
                              ser + SEP + ;
                          num_doc + SEP + ;
   if(Cod_Sit=='05', '', chv_nfe) + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP + ;
                               '' + SEP
         
         else
            cLinha = SEP + "C100" + SEP + ;
                         ind_oper + SEP + ;
                         ind_emit + SEP + ;
                         cod_part + SEP + ;
                          cod_mod + SEP + ;
                          cod_sit + SEP + ;
                              ser + SEP + ;
                          num_doc + SEP + ;
                          chv_nfe + SEP + ;
                           dt_doc + SEP + ;
                           dt_e_s + SEP + ;
                           vl_doc + SEP + ;
                         ind_pgto + SEP + ;
                          vl_desc + SEP + ;
                       vl_abat_nt + SEP + ;
                          vl_merc + SEP + ;
                          ind_frt + SEP + ;
                           vl_frt + SEP + ;
                           vl_seg + SEP + ;
                        vl_out_da + SEP + ;
                       vl_bc_icms + SEP + ;
                          vl_icms + SEP + ;
                     vl_bc_icmsst + SEP + ;
                       vl_icms_st + SEP + ;
                           vl_ipi + SEP + ;
                           vl_pis + SEP + ;
                        vl_cofins + SEP + ;
                        vl_pis_st + SEP + ;
                     vl_cofins_st + SEP
          endif
         SPED_GravaLinha( cLinha, 'C100 - Cabe‡alho das NFs Modelos: 01, 1B, 04, 55 e 65')
         ++nBloco_C_tot_lin
         ++nReg_C100
         if Cod_Sit == '05' .or. ; && Inutilizado informar apenas campos Cod_Sit, Ind_oper e CodMod
            Cod_Sit == '02'        && Cancelada   //Cod_Sit == '03' .or. ; && Extemporaneo Cancelado   // Cod_Sit == '04' && Denegada
         else // S¢ gera se for pra situa‡Æo regular
            _reg_C190( 3 ) //-- Consolidacao CST x CFOP x Aliquota
         endif
      endif            
      Vendas->(dbskip())
   END
   Vendas->(dbclosearea())
return

//------------------------------------------------------------------------------
* C190 - Notas Fiscais Avulsas

procedure _reg_C190_NFCe()
   local cLinha

   DBSELECTAREA('Itens->')

   && CRIA UM INDICE TEMPORARIO COM OS CAMPOS QUER QUERO FILTRAR E PARA O DOCUMENTO SELECIONADO
   FERASE('iC190.CDX')
   INDEX ON Itens->CFOP + STRZERO(VAL(Itens->CSTCSOSN),3) + STRZERO(Itens->AliqICMS,2) TAG _C190 TO(GERANOME()) ;
      FOR Itens->Ticket == Vendas->Ticket .and. Itens->DataVdas == Vendas->DataVdas ADDITIVE MEMORY
   DBGOTOP()
   
   Itens->(Dbgotop())  && Varre nota no Itens->
   while !EOF()
      nVL_OPR        := 0
      nVL_BC_ICMS    := 0
      nVL_ICMS       := 0
      nVL_BC_ICMS_ST := 0
      nVL_ICMS_ST    := 0
      nVL_RED_BC     := 0
      nVL_IPI        := 0

      && PEGA OS CAMPOS NO PRIMEIRO REGISTRO
      cCFOP   := Itens->CFOP
      cCST    := STRZERO(val(Itens->CSTCSOSN),3)
      cALIQ   := STRZERO( Itens->AliqICMS,2 )
      cLINHA  := cCFOP + cCST + cALIQ

      NOTA54    := Vendas->NrNFCe
      DTEN54    := Vendas->DTNFC_Emi
      DTEM54    := Vendas->DTNFC_Emi
      CFOR54    := Vendas->Codcli

      MODEE     := '65'
      SERIE     := Vendas->SerieNFCe
      TPRO54    := Vendas->Tot_Ven
      TSUB54    := 0
      BaseSub54 := 0
      TIPI54    := 0
      TFRE54    := 0
      Seguro54  := 0
      
      TotProdICM := TotBCICMS  := TotIPIICMS := ;
      TotProdSub := Item := VlTPSubNt :=0 && Valor dos produtos substituicao na nota
      SubsRat54E := 0
      
      
      while Itens->CFOP + STRZERO(VAL(Itens->CSTCSOSN),3) + STRZERO(Itens->AliqICMS,2) == (cLINHA)
            nVL_OPR        += Itens->Vl_Tot
            nVL_BC_ICMS    += Itens->BCICMS
            nVL_ICMS       += Itens->VlrICMS

            if Aux_ProdEhSubst(Itens->CSTCSOSN)
               nVlr_BCICMS_ST  := Itens->BCICMST
               nVlr_ICMS_ST    := Itens->VlrICMST
            else
               nVlr_BCICMS_ST  := 0
               nVlr_ICMS_ST    := 0
            endif

            nVL_BC_ICMS_ST += nVlr_BCICMS_ST //Itens->BaseSubst
            nVL_ICMS_ST    += nVlr_ICMS_ST
            nVL_OPR        += nVlr_ICMS_ST  //--> Somo no Vl_Opr o ICMS ST
            nVL_RED_BC     += 0
            nVL_IPI        += 0

            Itens->(DBSKIP())
            if Itens->(EOF())
               EXIT
            endif
      end

      cLinha = SEP + 'C190' + SEP + ;
                      STRZERO(VAL(cCST),3)  + SEP + ;
                      cCFOP + SEP + ;
                      cALIQ + SEP + ;
                      NumericoSPED(nVL_OPR)  + SEP
      if nCRT = 1
         cLinha +=   NumericoSPED(0)  + SEP + ;
                     NumericoSPED(0)  + SEP + ;
                     NumericoSPED(0)  + SEP + ;
                     NumericoSPED(0)  + SEP + ;
                     NumericoSPED(0)  + SEP + ;
                     NumericoSPED(0)  + SEP + ;
                      '' + SEP
      else
         cLinha +=   NumericoSPED(nVL_BC_ICMS)  + SEP + ;
                     NumericoSPED(nVL_ICMS)  + SEP + ;
                     NumericoSPED(nVL_BC_ICMS_ST)  + SEP + ;
                     NumericoSPED(nVL_ICMS_ST)  + SEP + ;
                     NumericoSPED(nVL_RED_BC)  + SEP + ;
                     NumericoSPED(nVL_IPI)  + SEP + ;
                      '' + SEP
      endif
      SPED_GravaLinha( cLinha, 'C190 - Consolida‡„o CST x CFOP x Aliquota')
      ++nBloco_C_tot_lin
      ++nReg_C190
   end
return
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor dbdc5554 » 19 Mai 2017 08:28

Obrigado

vou dar uma olhada

o Perfil que preciso é o A rs + já ajuda muito

vou olhar e te falo

ob

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor dbdc5554 » 19 Mai 2017 10:10

o Problema era ...

no reg C100 estava colocando 0 nas bases e valores de st pis cofins rs
o lerdo só aceitam BRANCO UAUAUAUA

pelo que entendi só é permitido Valor numérico nos campos: base icms e icms

o campo Código do participante mandam deixar em branco... estou fazendo isso.

e NÃO aceitam que se inclua no reg 0150 o cliente de nfe-Consuidor

DUVIDA e se o consumidor for IDENTIFICADO ele vai aceitar informar o cliente ?
com essas nfe das UF tipo nfe Goiania que concorrem a premios rs

vou ver se tem algum manual + novo, só falta gente ter que criar outro cadastro para essas nfe de consumidor identificao para concorrer a premios nas UF

o

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor Jairo Maia » 19 Mai 2017 12:25

dbdc5554 escreveu:DUVIDA e se o consumidor for IDENTIFICADO ele vai aceitar informar o cliente ?
com essas nfe das UF tipo nfe Goiania que concorrem a premios rs
Paiva, mas se informar o CPF ou CNPJ na NF-e ou NFC-e, e se o CPF ou CNPJ estiver cadastrado na Nota Fiscal Goiana, irá aparecer automaticamente. Quando o documento é transmitido, se o usuário acessar seu cadastro já verá o documento na conta dele, e estará concorrendo aos prêmios.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor dbdc5554 » 22 Mai 2017 08:38

Jairo BOM dia

realmente rs

menos um problema

tinha que gerar para os Cupons e transmitir para quem NAo fazia sped

ob

Paiva
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez

sped Fiscal e Pis/cofins com 65 (consumidor)

Mensagempor card0z0 » 27 Jun 2017 08:50

Ótima observação Jairo. Parabéns.
________________________________________________________________________________________
"Cada um trabalha como quer, mas pagar imposto temos que ser iguais!nesse país não há trégua..."
card0z0
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 8
Data de registro: 08 Mai 2017 16:45
Cidade/Estado: Pelotas/RS
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro