Страница 1 из 1

Опять счет-фактура....

Добавлено: 28 окт 2009, 13:53
jornand
Люди добрые, помогите. Как сделать так чтобы в этой форме вместо КПП грузополучателя, вставал КПП получателя.
Вот форма:
.LinkForm 'PRBDOC_110C_110506' Prototype is 'PRBDOC'
.Group 'Продажа'
.Group 'Предоплата продаж'
.NameInList 'Счет-фактура (c 11.05.2006г.)'
.var
SrcCountry:String
GTDNumber:String
MyKPP:String
OrgKPP:String
MyINN:String
OrgINN:String
cRecMyOrg:Comp
ArdOrgGruzFrom:String
ArdOrgGruzTo:String
boIsVhodNal:Boolean
Akciz:Double
CenaAk:Double
SumAk:Double
totSumAk:Double
.endvar
.Create view vSpStep
from
BaseDoc,
KatOrg,
SpStep ,
KatParty
where
((
comp(PosNRec) == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view vBaseDoc
from
BaseDoc
where
((
comp(BaseDocNRec) == BaseDoc.nRec
));
.fields
nomer
ddoc
if (trim(post) = '', '-', post)
if (trim(SFAdrJurMy) = '', '-', SFAdrJurMy)
//adpost)
sGetTune('KatOrg.FldView.UNN') +
'/' + sGetTune('KatOrg.FldView.KodPlatNDS')
if (trim(innpost) = '', '-', innpost)
+
' / ' +
if (trim(KodNDS_pol) = '', '-', KodNDS_pol)
if (trim(ArdOrgGruzFrom) = '', '-', ArdOrgGruzFrom)
//Grpost)
if (trim(ArdOrgGruzTo) = '', '-', ArdOrgGruzTo)
//grpol)
BaseFinNumber
BaseFinDate
if (trim(pol) = '', '-', pol)
if (trim(SFAdrJurPol) = '', '-', SFAdrJurPol)
//adpol)
sGetTune('KatOrg.FldView.UNN') +
'/' + sGetTune('KatOrg.FldView.KodPlatNDS')
if (trim(innpol) = '', '-', innpol)
+
' / ' +
if (trim(KODPLATNDS_pol) = '', '-', KODPLATNDS_pol)
mc
ed
kol
cenaAk
sumAk
Ak
if(IsExistNDS, if(wCountry<>0, string(procnds, 3, 0), string(procnds, 3, 0)+'%')
, '-')
Lpad(if(IsExistNDS, DoubleToStr(Nds, '\2p[|-]366`666`666.88'), '-'), 14)
Newsumma-NSel
if (trim(SrcCountry) = '', '-', SrcCountry)
if (trim(GTDNumber ) = '', '-', GTDNumber )
n2
k1-p2
Director
Main_Buh
page_symb
.endfields
.{
.begin
boIsVhodNal := false;
if (vBaseDoc.GetFirst fastfirstrow BaseDoc = 0)
boIsVhodNal := (vBaseDoc.BaseDoc.VhodNal = 1);
if (nRecGrOtp = nRecMy)
ArdOrgGruzFrom := 'он же'
else
ArdOrgGruzFrom := Grpost + if(grSFAdrPostOtp<>'',', ','') + grSFAdrPostOtp;
ArdOrgGruzTo := Grpol + if(grSFAdrPostPol<>'',', ','') + grSFAdrPostPol;
end.
 Ш Приложение № 1
к Правилам ведения журналов учета
полученных и выставленных счетов-фактур,
книг покупок и книг продаж при расчетах
по налогу на добавленную стоимость,
утвержденным постановлением Правительства РФ
от 02.12.2000 г. № 914

(в ред. Постановлений Правительства РФ
от 15.03.2001 № 189, от 27.07.2002 № 575,
от 16.02.2004 № 84, от 11.05.2006 № 283) Ш

 БСчет-фактура N Б @@@@@@@@@@@@  Бот Б @@@@@@@@@@@@@@@@@@@@@@

 И  БПродавец Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 БАдрес Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Б^ продавца Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 БГрузоотправитель и его адрес Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 БГрузополучатель и его адрес Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 БК платежно-расчетному документу Й
.{CheckEnter ISBASEFIN
 И № @@@@@@@@@@@@@@@@@@@@@ от @@@@@@@@@@@ И
.}
 И  БПокупатель Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 БАдрес Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Б^ покупателя Б @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}

 Р---------------------------------T------T----------T------------T---------------T----------T------T--------------T---------------T----------T--------¬
¦ Наименование товара ¦Еди- ¦Количество¦ Цена ¦ Стоимость ¦В том чис-¦Нало- ¦ Сумма налога ¦ Стоимость ¦ Страна ¦ Номер ¦
¦(описание выполненных ¦ница ¦ ¦ (тариф) за ¦ товаров (ра- ¦ ле акциз ¦говая ¦ ¦ товаров (ра- ¦ проис- ¦таможен-¦
¦ работ, оказанных ¦изме- ¦ ¦ единицу из-¦ бот, услуг), ¦ ¦ставка¦ ¦ бот, услуг), ¦ хожде- ¦ной дек-¦
¦ услуг), имущественного права ¦рения ¦ ¦ мерения ¦ имущественных ¦ ¦ ¦ ¦ имущественных ¦ ния ¦ларации ¦
¦ ¦ ¦ ¦ ¦ прав, всего ¦ ¦ ¦ ¦ прав, всего с ¦ ¦ ¦
¦ ¦ ¦ ¦ ¦ без налога ¦ ¦ ¦ ¦ учетом налога ¦ ¦ ¦
+--------------------------------+------+----------+------------+---------------+----------+------+--------------+---------------+----------+--------+
¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦
+--------------------------------+------+----------+------------+---------------+----------+------+--------------+---------------+----------+--------+ Р
.begin
TotSumAk := 0;
end.
.{
.{table 'vSpStep.SpStep'
.begin
var sRet: string;

sRet := '';
/*
if GetVIPInterface( ExClassFun ) {
wClassCode := ExClassFun.GetCode( coKatParty, 'Страна происхождения' );
sRet := ExClassFun.GetSegName( coKatParty, wClassCode, vSpStep.KatParty.nRec );
SrcCountry := if(sRet = '', '-', sRet);
FreeVIPInterface( ExClassFun );
}
if GetVIPInterface( ExAttrFun ) {
if ExAttrFun.GetAttr( coKatParty, 'ГТД', cAttr, wTypAttr ) = 0 {
sRet := ExAttrFun.GetValue( coKatParty, cAttr, vSpStep.KatParty.nRec, wTypAttr );
GTDNumber := if(sRet = '', '-', sRet);
}
else GTDNumber := '-';
FreeVIPInterface( ExAttrFun );
}
*/
var iCountry : MCOriginCountry;
if (vSpStep.SpStep.PrMC = 1)
{
SrcCountry := if (trim(iCountry.getCountryName(vSpStep.SpStep.cMCUsl, vSpStep.SpStep.cParty)) = '', '-', iCountry.getCountryName(vSpStep.SpStep.cMCUsl, vSpStep.SpStep.cParty))
;
GTDNumber := if (trim(iCountry.getGTDNumber(vSpStep.SpStep.cParty)) = '', '-', iCountry.getGTDNumber(vSpStep.SpStep.cParty))
;
}
else
{
SrcCountry := '-';
GTDNumber := '-';
}

Akciz := Ak/kol;
CenaAk := cenabez + AkCiz;
SumAk := sbez + Ak;
TotSumAk := TotSumAk + SumAk;
end.
 Р¦@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@¦@#@@@@¦&#'&&&&&&&¦&#'&&&&&&.&&¦&#'&&&&&&&&&.&&¦&#'&&&&.&&¦@#~@@@¦^¦&#'&&&&&&&&&.&&¦@~@@@@@@@@¦@~@@@@@@¦ Р
.}
.}
 Р+--------------------------------+------+----------+------------+---------------+----------+------+--------------+---------------+----------+--------+
¦ Всего к оплате ¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦ ¦ ¦
L-------------------------------------------------------------------------------------------------+--------------+---------------+----------+--------- И


Руководитель организации ___________  Д@@@@@@@@@@@@@@@@@@@@@@@@@@ Д Главный бухгалтер ___________  Д^ Д
(подпись) (Ф.И.О.) (подпись) (Ф.И.О.)

Индивидуальный предприниматель___________ __________________________ _________________________________
(подпись) (Ф.И.О.) (реквизиты свидетельства о
государственной регистрации
индивидуального предпринимателя)
Примечание.
Первый экземпляр - покупателю, второй экземпляр - продавцу. Ш

.if DELIMITER
----------------------------------------------------------------------------------------------------------------------------
.else
.end
^
.}
.endform

Добавлено: 29 окт 2009, 05:37
Алексей
подцепите договор, в договоре есть три контрагента. из договора выйдите на нужного вам.

Добавлено: 29 окт 2009, 12:29
Masygreen
когда в галактике вы открваете форму.. по правой кнопке можно открыть прототип .. там смтрите .. потом посмотрите где в филдсах надо подставить нужную переменнуе
а написать за вас отчет .. :) - это не цели форума .. вы бы еще ТЗ выложили ...

Добавлено: 30 окт 2009, 14:12
Maverick
по идее, если я ничего не путаю, в прототипе PRBDOC (кстати - причем здес СФ так и не понял :-) есть поля отвечающие за Плательщика, Получателя, Отправителя, Грузоотправителя, Грузополучателя.. в т.ч. и поле КПП Грузополучателя. Проанализируйте прототип - наверняка найдете поле что-то типа KPPgrpol или grpolkpp