sped Fiscal e Pis/cofins com 65 (consumidor)

dbdc5554 · Mensagem por **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

Mensagem por **fladimir** » 18 Mai 2017 19:10

Olá Paiva eu fiz o SPED da NFCe mas ICMS/IPI não o PIS/COFINS, serve?

dbdc5554 · Mensagem por **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

Mensagem por **JoséQuintas** » 18 Mai 2017 22:51

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

Código: Selecionar todos

/*
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

Mensagem por **JoséQuintas** » 18 Mai 2017 23:00

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

https://pctoledo.org/forum/viewto ... hilit=sped

Mensagem por **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

Código: Selecionar todos

//------------------------------------------------------------------------------
* 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

dbdc5554 · Mensagem por **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 · Mensagem por **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

Mensagem por **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.

dbdc5554 · Mensagem por **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

card0z0 · Mensagem por **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..."