Histórico da Página
...
MT953TIT - Substitui a geração padrão ( [ @PARAMIXB ] ) --> aRetorno
Parâmetros:
Nome | Tipo | Default | Referência |
---|---|---|---|
PARAMIXB | Array 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
...
04. EXEMPLO DE UTILIZAÇÃO
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas