mojaSymfonia FORUM
https://forum.mix-soft.pl/

Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
https://forum.mix-soft.pl/viewtopic.php?f=2&t=7394		 Strona 1 z 1
Autor:  slavo_s2k [ 2016-08-10, 22:05 ]
Tytuł:  Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Czy jest jakiś sposób by "hurtowo" usunąć kreski z NIP ?? Przez lata zrobił się duży bałagan z kontrahentami, różne osoby różnie wpisywały, raz nip z kreskami, raz bez, dodatkowo często jeden kontrahent jest wpisany dwa razy, bo jest minimalnie inaczej zapisany (np. nazwa bez cudzysłowia), chciałbym ujednolicić bazę, jeśli pozbył bym się kresek z NIPów to już bym łatwo wychwycił duplikaty, czy jest na to jakiś sposób??
Autor:  Glajder [ 2016-10-26, 11:24 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Kiedyś stworzyłem automat do zmiany wielkości nazw, ulic i miejscowości na wielkie oraz wywalenie znaku cudzysłów z nazw kontrahentów. Możesz sobie to przerobić na usuwanie kresek z NIPów.
Kod:
basekh baskh
baskh.open()
baskh.setkey("id")
baskh.setkeyseg("id",65535)
int err=baskh.getrec(ge)

while !err
   if baskh.getfield("znaczniki")==91 then
      buf=ucase(baskh.getfield("nazwa"))
      while replace "\"",""
         replace "\"",""
      wend
      print baskh.getfield("id"),buf,"\n"
   
      baskh.setfield("nazwa",buf)
   
      buf=ucase(baskh.getfield("ulica"))
      baskh.setfield("ulica",buf)

      buf=ucase(baskh.getfield("miejscowosc"))
      baskh.setfield("miejscowosc",buf)

      baskh.update()
   endif
   err=baskh.getrec(nx)
wend

baskh.close()


Kod działał pod wersją 2013.1. Nie powinno być problemów z 2016 ale nie daję żadnej gwarancji.
Autor:  rafal [ 2016-10-26, 12:05 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Możesz także wyeksportować do pliku kod_kontrahenta i NIP. W Excelu usunąć kreski. Ponownie zaimportować.
Autor:  slavo_s2k [ 2016-10-27, 08:45 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Ale jak importować/eksportować z/do excela??
Autor:  Glajder [ 2016-10-27, 19:44 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Eksportowanie:
Otwierasz kontrahentów, zaznaczasz wszystkich, wybierasz Operacje/eksport.
Z listy wybierasz Kontrahenci Format 2.0
W pole zbiór danych wpisujesz ścieżkę dostępu do pliku tekstowego w którym zapiszesz dane.
Ogranicznik pola - tabulacja
Ogranicznik tekstu - brak
Typ zbioru Windows
Klikasz OK.
Pojawi się lista kolumn do wybrania do eksportu.
Najlepiej przenieść tylko KOD i NIP Czyli podświetlasz:
Pole KOD i klikasz <<Dodaj
Klikasz pole NIP i klikasz <<Dodaj
Z lewej strony będziesz mieć listę polami KOD i NIP
klikasz OK.
Do pliku txt wyeksportują się dane

-----Teraz Excel
Uruchom Excel.
Wybierz Otwórz
Następnie wskaż plik tekstowy z bazą NIPów i KODów
Uruchomi się import z pliku tekstowego.
Wybierasz Rozdzielany.
Format jako Windows Środkowoeuropejski.
Potem Klikasz Dalej
Ogranicznik: Tabulator
Kwalifikator tekstu: BRAK
Klikasz Dalej
Potem musisz ustalić format danych importowanych:
Dla wszystkich kolumn jest on ustawiony na ogólne
Musisz dla wszystkich zaznaczyć TEKST - możesz to zrobić naciskając shift i kliknąć na ostatnią kolumnę a potem wybrać Tekst.
Klikasz Zakończ
(import na podstawie Excel 2013 - w innych wersjach może się różnić chociaż o ile pamiętam to raczej nic tu się od lat nie zmieniło)

I masz zaimportowane dane w postaci: w pierwszej kolumnie KOD klienta w drugiej kolumnie NIP.
Teraz "tylko" usunięcie kresek, zapisanie do pliku tekstowego i import

A import:
Menu Firma/import danych
Wybrać Format 2.0 Kontrahenci i Kliknąć Wykonaj
Zbiór danych: plik w którym zapisano dane i Kliknąć OK.
Teraz należy "sparować" kolumny
Z prawej strony masz kolumny wyeksportowane KOD i NIP
Klikasz na kod z prawej strony klikasz na kod z lewej strony i klikasz na <<Łącz
Pole kod zniknie z prawej strony
Teraz musisz sparować NIPy - analogicznie jak z KODem ;)
Pole z lewej klikasz NIP pole z prawej NIP i klikasz <<Łącz
Jak już połączysz oba pola możesz importować - Klikasz OK.
Pojawi się formatka aktualizacji danych kontrahenta.

Tu się upewniasz że dobrze masz poparowane pola - czyli pole nip aktualizujesz polem NIp a nie inne pole i Klikasz ZMODYFIKUJ.
I tak przez wszystkich kontrahentów.
Jak już się upewnisz że jest ok klikasz ZMODYFIKUJ WSZYSTKIE i patrzysz jak ładnie aktualizują się dane.

I to wsio. NIPY zaktualizowane.

Tylko Pamiętaj: Przed pracą zrób KOPIĘ DANYCH.
Autor:  rafal [ 2016-10-27, 21:09 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Glajder - dziękujemy. Bardziej dokładnie chyba już nie można tego opisać.
Autor:  zalepak [ 2016-11-09, 19:07 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
A czy jak zrobi się to bezpośrednio w bazie poprzez
Kod:
update [NaszBaza].[SSCommon].[STContractors]
set NIP = REPLACE (NIP , '-' , '')

to nic się nie namiesza? Czy mogą się pojawić kiedyś jakieś problemy? Jakieś powiązania itd itp?
Autor:  slavo_s2k [ 2016-11-16, 00:44 ]
Tytuł:  Re: Usuwanie kresek z NIP w bazie kontrahentów (HMP2016)
Taki rozwiązanie było by dla mnie wygodniejsze niż import/export, tylko właśnie - czy jest prawidłowe i nic nie namieszam?
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/