Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

País:Todos


02. DESCRIÇÃO

    Ponto de entrada utilizado para substituir a geração padrão dos títulos de impostos e GNREs na confirmação da apuração de ICMS, que possuir saldo devedor para o período.

03. ESPECIFICAÇÃO

Sintaxe

        MT953TIT - Substitui a geração padrão ( [ @PARAMIXB ] ) --> aRetorno
        Parâmetros:

NomeTipoDefaultReferência
PARAMIXBArray of Record

Array de 17 posições contendo as seguintes informações: 

lTitulo,cImposto,cImp,cLcPadTit,dDtIni,dDtFim,dDtVenc,nMoedTit,lGuiaRec,nMes,nAno,lContab,aGNREST,cMVSIGNRE,cProced,cOrgArrec,nValGuia

SF6

X

          Retorno

           aRetorno

    (array_of_record)
  • cNumero ->  Número do título; aGnre -> Array com informações da Guia de Recolhimento ICMS (tabelas SF6);
  • aGnreST ->   Array com informações da Guia de Recolhimento ICMS ST(tabelas SF6);
  • aTitulo ->     Array contendo informações do título (número, data e valor);
  • lInfComp ->  Retorna .F.; cNumero2 -> Branco;
  • aTitCDH ->   Array com os dados dos títulos gerados, para gravação no CDH.

     

04. EXEMPLO DE UTILIZAÇÃO

MT953TIT
User Function MT953TIT()
Local lTitulo     := PARAMIXM[1]
Local cImposto    := PARAMIXB[2]
Local cImp        := PARAMIXB[3]
Local cLcPadTit   := PARAMIXB[4]
Local dDtIni      := PARAMIXB[5]
Local dDtFim      := PARAMIXB[6]
Local dDtVenc     := PARAMIXB[7]
Local nMoedTit    := PARAMIXB[8]
Local lGuiaRec    := PARAMIXB[9]
Local nMes        := PARAMIXB[10]
Local nAno        := PARAMIXB[11]
Local lContab     := PARAMIXB[12]
Local aGNREST     := PARAMIXB[13]
Local cMVSIGNRE   := PARAMIXB[14]
Local cProced     := PARAMIXB[15]
Local cOrgArrec   := PARAMIXB[16]
Local nValGuiaSF6 := PARAMIXB[17]
Local nVlrTitulo  := 1000.00Local cNumero	  := ""
Local aTitulo	  := {}      
Local aGNRE       := {}
Local aRecTit     := {}                     
Local aTitCDH     := {}
Local lConfTit	  := .F.
Local lInfComp    := .F.
Local nRecTit     := 0

//³Grava o titulo do ICMS Normal³

nRecTit := Len(aRecTit)
lConfTit:= .F.

GravaTit(lTitulo,nVlrTitulo,cImposto,cImp,cLcPadTit,dDtIni,dDtFim,dDtVenc,nMoedTit,lGuiaRec,nMes,nAno, nValGuiaSf6,;0,"MATA953",lContab,@cNumero,@aGNRE,,,,,,,,@aRecTit,@lConfTit)

If nRecTit <> Len(aRecTit)	
	aRecTit[Len(aRecTit)][02] := "Apuração do ICMS - ICMS Normal"		
	dbSelectArea("SE2")	
	MsGoto(aRecTit[Len(aRecTit)][01])

//Array com os dados dos titulos gerados, para gravação no CDH 
//Deve estar no seguinte formato: {E2_PREFIXO,E2_NUM,E2_PARCELA,E2_TIPO,E2_FORNECE,E2_LOJA,"IC" ou "ST","Descr"}

AADD(aTitCDH,{SE2->E2_PREFIXO,SE2->E2_NUM,SE2->E2_PARCELA,SE2->E2_TIPO,SE2->E2_FORNECE,SE2->E2_LOJA,"IC","Apuração do ICMS - ICMS Normal"})

Endif

If lTitulo .And. nVlrTitulo>0 .And. lConfTit

	AADD(aTitulo,{"TIT",cNumero+" "+Dtoc(dDtVenc)+" "+cOrgArrec,nVlrTitulo})

Endif

Return( {cNumero,aGNRE,aGNREST,aTitulo,lInfComp,cNumero2,aTitCDH } )




05. INFORMAÇÕES ADICIONAIS

         Não há.