FUNCTION GeraPISCORegistros(SPEDhandle)
   LOCAL cCRLF := chr(13)+chr(10), cSeparator := '|'
   LOCAL nSomaRegistros := 0
   dbSelectArea('R0000'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0000() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0110'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0110() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0111'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0111() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0120'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0120() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0140'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0140() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0150'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0150() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0190'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0190() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0205'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0205() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0206'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0206() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0208'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0208() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0400'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0400() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0450'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0450() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R0990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR0990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA110'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA110() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA111'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA111() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA120'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA120() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA170'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA170() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RA990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRA990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC110'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC110() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC111'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC111() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC120'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC120() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC170'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC170() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC180'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC180() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC181'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC181() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC185'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC185() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC188'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC188() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC190'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC190() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC191'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC191() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC195'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC195() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC198'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC198() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC199'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC199() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC380'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC380() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC381'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC381() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC385'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC385() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC395'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC395() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC396'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC396() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC400'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC400() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC405'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC405() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC481'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC481() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC485'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC485() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC489'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC489() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC490'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC490() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC491'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC491() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC495'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC495() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC499'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC499() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC501'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC501() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC505'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC505() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC509'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC509() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC601'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC601() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC605'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC605() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC609'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC609() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC800'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC800() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC810'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC810() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC820'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC820() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC830'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC830() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC860'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC860() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC870'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC870() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC880'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC880() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC890'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC890() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RC990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRC990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD101'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD101() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD105'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD105() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD111'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD111() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD201'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD201() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD205'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD205() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD209'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD209() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD300'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD300() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD309'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD309() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD350'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD350() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD359'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD359() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD501'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD501() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD505'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD505() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD509'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD509() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD601'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD601() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD605'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD605() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD609'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD609() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RD990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRD990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF111'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF111() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF120'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF120() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF129'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF129() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF130'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF130() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF139'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF139() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF150'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF150() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF205'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF205() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF210'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF210() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF211'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF211() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF509'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF509() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF510'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF510() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF519'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF519() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF525'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF525() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF550'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF550() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF559'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF559() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF560'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF560() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF569'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF569() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF700'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF700() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF800'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF800() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RF990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRF990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI299'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI299() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI300'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI300() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI399'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI399() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RI990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRI990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM105'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM105() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM110'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM110() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM210'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM210() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM211'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM211() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM220'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM220() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM230'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM230() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM300'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM300() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM350'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM350() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM400'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM400() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM410'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM410() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM505'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM505() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM510'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM510() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM610'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM610() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM611'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM611() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM620'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM620() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM630'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM630() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM700'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM700() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM800'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM800() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM810'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM810() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RM990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRM990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP110'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP110() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP199'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP199() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP210'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP210() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('RP990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroRP990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1010'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1010() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1020'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1020() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1100'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1100() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1101'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1101() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1102'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1102() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1200'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1200() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1210'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1210() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1220'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1220() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1300'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1300() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1500'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1500() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1501'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1501() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1502'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1502() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1600'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1600() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1610'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1610() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1620'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1620() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1700'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1700() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1800'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1800() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1809'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1809() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1900'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1900() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R1990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR1990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R9001'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR9001() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R9900'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR9900() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R9990'); nSomaRegistros := nSomaRegistros + recco(); dbGoTop(); do while .not. eof(); cPISCORegistro := alltrim( PISCORegistroR9990() ); fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) ); dbSkip(); enddo
   dbSelectArea('R9999')
   nSomaRegistros := nSomaRegistros + recco()
   dbGoTop()
   do while .not. eof()
      //cPISCORegistro := alltrim( PISCORegistroR9999() )
      cPISCORegistro := cSeparator + ;
                        StrFill( R9999->CAMPO01 , 0004, ' ', 'R' ) + cSeparator + ;
                        StrZero( nSomaRegistros , 0005 ) + cSeparator + ;
                        cCRLF
      //? nSomaRegistros, cPISCORegistro
      fWrite( SPEDhandle, cPISCORegistro, len( cPISCORegistro ) )
      dbSkip()
   enddo
   RETURN NIL
