Revisió 99 – Modificació Model 347 – Exercici 2010.

Posted: 25. February 2011
by:

Updated: 18. June 2015
by:

1.- Al generar el fitxer de text importable per la plataforma d’Hisenda, han afegit un camp nou on demanen l’exercici de l’import cobrat en metàl·lic. En les posicions de la 130-133 hi afegim “0000” perquè en Adsgest no posem import en metàl·lic, l’usuari el modifica en la plataforma d’hisenda directament. (PMOD_AEAT.SCX)

Form: pmodaeat.scx
BtnDskt347.Click()

BtnDskt347_Click()

*=====================================*

* Comença la seleccio del registre 2 *

*=====================================*

****************+

select TmpList

go top

do while not eof()

Cadena = ""

lcOper = IIF(TmpList.TIP_TERCER = "C" , "B" , "A")

lcNif_tercer = RIGHT(SPACE(9)+ALLTRIM(AjustaNif(TMPLIST.cif)),9)

lcNom_Tercer = LEFT(ALLTRIM(CARACTER_BO(TmpList.nom))+SPACE(40),40)

lcCpost = strtran(substr(TmpList.cpost,1,2)," ","0")

lcpais = LEFT(ALLTRIM(TmpList.pais)+SPACE(2),2)

IF lcpais ='ES'

lcpais = SPACE(2)

ELSE

lccpost = '99'

ENDIF

lcImport = STRTRAN(str(ROUND(TmpList.Tot_Fra,2) * 100, 15)," ","0")

lcimport_met = STRTRAN(SPACE(15)," ","0")

lcimport_inm = STRTRAN(SPACE(15)," ","0")

lnexer_met = “0000”

Cadena = "2" + "347" + lcExer + lcNif + lcNif_tercer + ;

SPACE(9) + lcNom_Tercer + ;

"D" + lcCpost + lcpais + SPACE(1) + ;

lcOper + lcImport + SPACE(1) + SPACE(1) + lcimport_met + ;

lcimport_inm + lnexer_met + SPACE(367)

aux=FPUTS(nf,Cadena)

select TmpList

skip + 1

enddo

Tocat a BBDD:

Passar parxe : ADSGEST_0099.SQL per deixar registre al sys_revisions conforme s'ha fet aquesta Revisió.

Tocat a l'Aplicació:

Forms:

PMOD_AEAT.SCX(Modificat)(1)

Meta Keywords: parxes adsgest varis

Documents adjunts: ADSGEST_0099.SQL

----------------------------------------------------------------------------------------
Àngel Berga

Otras preguntas en esta categoría

	» Más preguntas

Revisió 99 &#8211; Modificació Model 347 &#8211; Exercici 2010.

Revisió 99 – Modificació Model 347 – Exercici 2010.