Dzień Dobry,
czy pomoże mi ktoś w jaki sposób można wyeksportować do pliku xml kod obcy towaru ?
Zrobiłem tak ale nie działa
Z góry dziękuje za pomoc.Eksport.PoczatekPodsekcji( "Towar" )
BasTW.SetKey( "id" )
BasTW.SetKeySeg( "id", lIdTowaru )
If BasTW.GetRec( EQ ) && sKodTowaru != "" Then
ERROR_STAMP( Using "Nie można odczytać danych towaru '%s'", sKodTowaru )
Else
If BasTW.GetField( "kod" ) != sKodTowaru && sKodTowaru != "" Then
ERROR_STAMP( Using "Kod towaru w pozycji dokumentu ( '%s' ) niezgodny z kodem towaru w definicji ( '%s' )", sKodTowaru, BasTW.GetField( "kod" ) )
Else
If sKodTowaru == "" Then
BasTw.Clear()
BasTw.SetField( "subtypi", 1 )
EndIf
Eksport.Pole( "Kod", sKodTowaru )
eFakturaNAZWA( "Nazwa", sNazwaTowaru, lIdDlugiejNazwy )
Eksport.Pole( "KodPaskowy", BasTW.GetField( "kodpaskowy" ) )
Eksport.Pole( "KodObcy", BasTW.GetField( "kodobcy" ) )
Eksport.Pole( "PKWiU", sPKWiU )
Eksport.Pole( "CN", BasTW.GetField( "pcn" ) )
Eksport.PoczatekPodsekcji( "JednostkaMiary" )
Eksport.Pole( "Ewidencyjna", BasTW.GetField( "jm" ) )
Eksport.Pole( "Dodatkowa1", BasTW.GetField( "jmdod1" ) )
Eksport.Pole( "Przelicznik1", ( Using "%.4f", BasTW.GetField( "przeljmdod1" ) ) )
Eksport.Pole( "Dodatkowa2", BasTW.GetField( "jmdod2" ) )
Eksport.Pole( "Przelicznik2", ( Using "%.4f", BasTW.GetField( "przeljmdod2" ) ) )
Eksport.KoniecSekcji()
Eksport.Pole( "StawkaVAT", LTRIM_VAT( eFakturaSTAWKAVAT( lNrStawkiVAT ) ) )
Select Case BasTW.GetField( "subtypi" )
