Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 21:31

Экспорт Счет фактуры

Автор AndreyCY, 07 июл 2011, 10:08

0 Пользователей и 1 гость просматривают эту тему.

AndreyCY

При следующей обработки (Экспорт в ДБф файл счет фактур в интервале дат (НачДата и КонДата), выдает список из пару счетфактур, остальные счетфактуры не находит хотя они имеются в бухгалтерии 7.7...В Чем может быть дело?

var Path;
var Ofile;
var filtr;
var File_Chet;
procedure Chet()
   doct=createobject("Документ.СчетФактураПолученный");
   dbf=CreateObject("XBase");
   dbf.addfield("K_Agent","S",20,0);     
   dbf.addfield("Name","S",100,0);
   dbf.addfield("DateDoc","D",10,0);     
   dbf.addfield("NomDoc","S",20,0);   
   dbf.addfield("Summ","N",15,4);
   dbf.addfield("NDS","N",15,4);         
   FullFile=File_Chet;
   dbf.createfile(FullFile);   
   if doct.ВыбратьДокументы(НачДата,КонДата)=1 then              
      while (doct.ПолучитьДокумент()=1) do                                                
         doct.ВыбратьСтроки();
         while doct.ПолучитьСтроку()>0 do                  
            dbf.add();
            dbf.K_Agent=doct.Контрагент.Код;
            dbf.Name=doct.Контрагент.ПолнНаименование;
            dbf.DateDoc=doct.ДатаОприходование;
            dbf.NomDoc=doct.номердок;         
            dbf.Summ=doct.Всего;                  
            dbf.NDS=((doct.НДС20)+(doct.НДС10));
            dbf.save();
         enddo         
      enddo                         
   endif;                    
   dbf.closefile()
endprocedure       


procedure AllExport()
Chet();
Сообщить("Данные успешно экспортированы");
endprocedure

File_Chet="c:\Export\Doc\CHET.dbf"; 

Path="c:\Export\";
Ofile="V.dbf";
FullFile=Path+Ofile;             
filtr="dbf"

prog1c7.7

вместо "if doct.ВыбратьДокументы(НачДата,КонДата)=1 then"
надо doct.ВыбратьДокументы(НачДата,КонДата)   
соответственно удалить еще  "endif" 

вроде должно помочь

AndreyCY

Данное действие не помогло устранить ошибку. Результат остается прежним...Выбираются только две счет-фактуры...

prog1c7.7

перед
dbf.save();
поставь
сообщить(doct.номердок);
и посмотри сейчас перебирает на самом деле или нет

AndreyCY

Номера документов не перебирает, ни в том не в другом случае...(Выдает только два номера и всё)

prog1c7.7

а теперь
после
while (doct.ПолучитьДокумент()=1) do
поставь
сообщить(doct.номердок);
а в старом месте убери и посмотри

AndreyCY

При таком раскладе перебираются номера документов...

prog1c7.7

Вооооот...    ;)   понял ошибку свою?

AndreyCY

Нет ещё...Что за ошибка?  :dfbsdfbsdf:

AndreyCY

И как её устроинить?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск